《第3节程序中的逻辑判断.ppt》由会员分享，可在线阅读，更多相关《第3节程序中的逻辑判断.ppt（9页珍藏版）》请在三一文库上搜索。
1、第3节 程序中的逻辑判断,第4章 程序设计,一、学习目标,1、掌握vb程序中的条件语句。,2、提高从模仿到自主设计程序的能力。,二、复习回顾,VB中的对象有各自的属性、事件和方法，它们构成了对象的三要素。,（1）属性,（2）事件,（3）方法,属性决定了对象的具体特征。如大小、位置、颜色等。,事件指对象的某个动作。如单击、双击、移动鼠标等。一个对象 可以响应多种事件。,封装在对象内部的现成的、可以直接调用的程序。各种对象中包 含有不同的方法。如Print（打印）、Circle（画圆）、Line（画线） Cls（清除屏幕内容）等。,三、游戏：“猜币”程序,四、条件语句,在程序中，判断功能是由条件语
2、句来实现的。,格式,If Then Else End If,执行过程：当”条件“成立就执行Then后面的程序段A,否则就执行 Else后面的程序段B。,如果 那么, 否则,结束,游戏：“猜币”程序,对“掷币”按钮写代码：P99,Private Sub Command1_Click() Dim n As Integer Dim x As Integer Randomize n = Int(Rnd * 2) If n = 1 Then Image1.Picture = LoadPicture(“E:.正面.jpg) Else Image1.Picture = LoadPicture(E:.反面.j
3、pg) End If x = Val(Text1.Text) If x = n Then Label2.Caption = Good,你猜对了！ Else Label2.Caption = Sorry,你猜错了。 End If End Sub,五、综合实践,编写一个”猜数游戏“的程序。,五、综合实践,Dim a As Integer,Private Sub Form_Load() Randomize a = Int(Rnd * 100 + 1) End Sub,Private Sub Command2_Click() End End Sub,Private Sub Command1_Click() x = Val(Text1.Text) If x = a Then Label1.Caption = 猜对了。你真聪明！ End If If x a Then Label1.Caption = 你猜得太大了，请再猜！ End If If x a Then Label1.Caption = 你猜得太小了，请再猜！ End If End Sub,六、课堂总结,条件语句,If Then Else End If,If Then End If,