Visual Basic程序设计三.ppt

Visual Basic程序设计 主讲人：马正元 山东大学物理微电子学院 Visual Basic程序设计 第十讲 第四章 程序流程 （三） 4.4 循环结构 4.4 循环结构 循环结构是算法语言中一种重要的结构，它的应用非常广泛，把要重复执行的语句放在循环结构中，就可避免多次重复输入。在使用循环结构时，有些循环的次数事先可以确定，这种循环称为确定性循环。有些循环的循环次数是不能事先确定，需要根据条件来决定是否继续循环，我们称这种循环为不确定循环。 在VB程序设计语句中有二种形式的循环结构。 其中For循环结构用来设计循环次数可以事先确定的循环结构。即循环次数已知循环结构。 而Do…Loop循环结构一般用来设计循环次数无法事先确定的循环结构。 4.4.1 For循环结构 For 循环结构的一般形式： For 循环控制变量= 初值 To 终值[Step 步长] [语句组1] [Exit For] 循环体 [语句组2] Next [ 循环控制变量] For 循环结构 ---格式 说明： For循环以For语句开始，以Next语句结束。 循环变量用来控制循环次数； 初值代表循环变量的初始被赋的值； 终值代表循环变量最终能继续进行循环的值； 步长代表每循环一次循环变量增长的值。 循环的次数可以从循环初值、终值、和步长计算出来： R=INT((终值-初值+步长)/步长) 例如: For I=1 To 10 Step 2 循环次数 R=INT((10-1+2)/2)=INT(5 .5)=5 For I=5.0 To 25. Step 0.5 R=INT((25.-5.0+0.5)/0.5)=INT(41.0)=41 即当I的值为-1，-2，-3时，执行正常循环，当I的值变成-4时不再执行循环时。 3、脱离循环的条件是: 循环变量沿变化的方向超过终值。如果步长的值为正，则“超过”意味着“大于”，如果步长为负，则“超过”意味着“小于”。 4、如果计算出循环次数R0，按R=0处理，即一次也不执行循环体。 5、如果循环变量的初值 、终值和步长类型和循环变量的类型不一致，则按赋值的规则处理，即先将其类型化成循环变量的类型，然后进行处理，即先将初值 、终值和步长的类型化成循环变量的类型，然后进行处理。 【例4-7】输入一个正整数，利用For循环来判断是否为素数。 分析：所谓素数是指除了1和它本身之外，不能被其他的数整除的数。判断一个自然数n（≥3）是否为素数的方法是：依次用2 ~ 各数作除数去除，如果余数都不为0，则为素数。 工程设计步骤如下： （1）启动VB，选“新建工程”中“标准EXE”工程。在出现的窗体上添加1个文本框、两个标签和两个命令按钮。如图4-16左图所示。 （2）设置窗体和控件的属性如图4-16右图所示。 其中标签Label2的Caption属性开始设置为“输出判断结果：”在工程运行后应输出具体的判断结果。 （3）编写代码 编写单击Command1命令按钮“判断”所执行的代码 Private Sub Command1_Click() Dim i As Long, j As Long, n As Long n = Val(Text1.Text) j = Clng(Sqr(n)) Debug.Print j For i = 2 To j If n Mod i = 0 Then Exit For Next i Debug.Print i If i j Then Label2.Caption = Text1.Text 为素数 Else Label2.Caption = Text1.Text 为非素数 End If End Sub 编写单击Command2命令按钮“退出”所执行的代码 Private Sub Command2_Click() Unload Me End Sub 编写Form_Activate()事件发生时所执行的代码 Private S