vb控制结构与算法.pptVIP

第5章 控制结构与算法 1﹒事件过程 ? VB程序同Windows下的其他应用程序一样，都是由事件驱动的。 ? “事件过程”是VB程序中最基本的过程。 ? 事件过程存储在“窗体模块”文件中（扩展名为.frm），缺省情 况下是“私有的”（Private）。即缺省时，事件过程仅在该窗体内有效。 VB系统自动提供事件过程的代码框架。 2﹒通用过程 ? “通用过程”由可被共享的代码构成。 ? 通用过程是由事件过程或其他通用过程调用而执行的。 ? 通用过程在缺省情况下，是“公有的”（Public），通用过程可以被所有窗体共享。 3、 If 语句的嵌套 （多分支） If 条件1 Then If 条件2 Then …… Else …… End If Else If 条件3 Then …… End If End If 四、 Selece Case 语句 Select Case 测试表达式 Case 表达式1 语句块1 Case 表达式2 语句块2 …… [ Case Else 语句块n+1] End Select Select Case 语句的流程图: 作业： P135 三、1、2、3、4 上机作业 实验六 五、 Do …Loop 语句 循环结构： 所谓循环，就是重复执行某些操作。 循环结构主要包括：当型结构和直到型结构。 并且每种结构又有两种不同的执行方式（先判断再执行和先执行再判断）。 VB 提供了相应的语句用于实现各种不同类型的循环 Do……Loop 语句 有四种形式： P119 例5.21 编程：判断一个数是否为素数。 应用程序界面如图： Li _5_2.vbp 编写代码： Private Sub Command1_Click() Dim m as integer ,k as integer Dim n As Long If Val(Text1.Text) 2147483647 Then MsgBox 数据溢出，请重新输入, vbOKCancel + vbInformation, “数据错误” Text1.Text = Else n = CLng(Text1.Text) m = 0: k = 2 ‘ m是一个标记 ：1—否，0—是 Do While k = Sqr(n) And m = 0 If n Mod k = 0 Then m = 1 Else k=k + 1 End If Loop If m = 0 Then Label2.Caption = “是一个素数” Else Label2.Caption = “不是一个素数” End If End If Text1.SetFocus End Sub 例1：求1~1000之间所有能够被13整除的数。 按每行10个数排列满足条件的数。 应用程序界面如图： 编写代码如下： Private Sub Command1_Click() Dim i As Integer, j As Integer J = 0 For i = 1 To 1000 If I Mod 13 = 0 Then j = j + 1 Picture1.Print i; If j Mod 10 = 0 Then Picture1.Print