第3节程序中的逻辑判断第4章程序设计一、学习目标1、掌握vb程序中的条件语句。2、提高从模仿到自主设计程序的能力。二、复习回顾VB中的对象有各自的属性、事件和方法，它们构成了对象的三要素。（1）属性（2）事件（3）方法属性决定了对象的具体特征。如大小、位置、颜色等。事件指对象的某个动作。如单击、双击、移动鼠标等。一个对象可以响应多种事件。封装在对象内部的现成的、可以直接调用的程序。各种对象中包含有不同的方法。如Print（打印）、Circle（画圆）、Line（画线）Cls（清除屏幕内容）等。三、游戏：“猜币”程序对象名属性属性值Label1Caption请输入（）Text1Text空Image1StretchTrueCommand1Caption掷币Label2Caption空四、条件语句在程序中，判断功能是由条件语句来实现的。格式If<条件>Then<程序段A>Else<程序段B>EndIf执行过程：当”条件“成立就执行Then后面的程序段A,否则就执行Else后面的程序段B。……………………如果<条件>那么………………………………否则………………………………结束游戏：“猜币”程序对“掷币”按钮写代码：P99PrivateSubCommand1_Click()DimnAsIntegerDimxAsIntegerRandomizen=Int(Rnd*2)Ifn=1ThenImage1.Picture=LoadPicture(“E:\...\正面.jpg")ElseImage1.Picture=LoadPicture("E:\...\反面.jpg")EndIfx=Val(Text1.Text)Ifx=nThenLabel2.Caption="Good,你猜对了！"ElseLabel2.Caption="Sorry,你猜错了。"EndIfEndSub五、综合实践对象名属性属性值Image1StretchTrueLabel1Caption请输入Label2Caption有一个…Text1Text空Command1Caption确定Command2Caption结束编写一个”猜数游戏“的程序。五、综合实践DimaAsIntegerPrivateSubForm_Load()Randomizea=Int(Rnd*100+1)EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand1_Click()x=Val(Text1.Text)Ifx=aThenLabel1.Caption="猜对了。你真聪明！"EndIfIfx>aThenLabel1.Caption="你猜得太大了，请再猜！"EndIfIfx
Then<程序段A>Else<程序段B>EndIfIf<条件>Then<程序段A>EndIf
