第3节程序中的逻辑判断

1、第3节 程序中的逻辑判断第4章 程序设计一、学习目标1、掌握vb程序中的条件语句。2、提高从模仿到自主设计程序的能力。二、复习回顾VBVB中的对象有各自的中的对象有各自的属性属性、事件事件和和方法方法，它们构成了对象的三要素。，它们构成了对象的三要素。（1 1）属性）属性（2 2）事件）事件（3 3）方法）方法属性决定了对象的具体特征。如大小、位置、颜色等。 事件指对象的某个动作。如单击、双击、移动鼠标等。一个对象可以响应多种事件。 封装在对象内部的现成的、可以直接调用的程序。各种对象中包含有不同的方法。如Print（打印）、Circle（画圆）、Line（画线）Cls（清除屏幕内容）等。三、

2、游戏：“猜币”程序对象名对象名属性属性属性值属性值Label1Caption请输入（）请输入（）Text1Text空空Image1StretchTrueCommand1Caption掷币掷币Label2Caption空空四、条件语句在程序中，在程序中，判断功能判断功能是由条件语句来实现的。是由条件语句来实现的。格式格式If If Then Then ElseElse End IfEnd If 执行过程：执行过程：当”条件“成立就执行Then后面的程序段A,否则就执行 Else后面的程序段B。 如果如果 那么那么 否则否则结束结束游戏：“猜币”程序对对“掷币掷币”按钮写代码：按钮写代码：P99P

3、99Private Sub Command1_Click()Dim n As IntegerDim x As IntegerRandomizen = Int(Rnd * 2)If n = 1 Then Image1.Picture = LoadPicture(“E:.正面正面.jpg)Else Image1.Picture = LoadPicture(E:.反面反面.jpg)End Ifx = Val(Text1.Text)If x = n Then Label2.Caption = Good,你猜对了！你猜对了！Else Label2.Caption = Sorry,你猜错了。你猜错了。En

4、d IfEnd Sub五、综合实践对象名对象名属性属性属性值属性值Image1StretchTrueLabel1Caption请输入请输入Label2Caption有一个有一个Text1Text空空Command1Caption确定确定Command2Caption结束结束编写一个”猜数游戏“的程序。五、综合实践Dim a As IntegerPrivate Sub Form_Load()Randomizea = Int(Rnd * 100 + 1)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command1_Click()x = Val(Text1.Text)If x = a Then Label1.Caption = 猜对了。你真聪明！End IfIf x a Then Label1.Caption = 你猜得太大了，请再猜！End IfIf x a Then Label1.Caption = 你猜得太小了，请再猜！End IfEnd Sub六、课堂