Visual Basic第4章__Visual_Basic程序控制.pptVIP

4.4 循环结构程序设计 对Do…Loop语句的说明： （1）Do…Loop语句根据对条件的测试情况决定是否执行循环体； （2）Do语句和Loop语句是循环结构的控制语句，必须匹对使用； （3）在Do…Loop循环中，可以用Exit Do语句来终止循环。Exit Do语句为非正常终止循环。 （4）Do…Loop循环的4种格式中，格式1和格式2为先测试再执行循环体，循环体可能一次都不执行，格式3和格式4为先执行循环体再测试，至少执行一次循环体。 4.4 循环结构程序设计 分析：用变量X 依次表示每个随机整数，用变量Max存贮每次比较中大的数，用LMax存贮其位置。找最大数的算法是，将产生的随机数X与Max比较，若X大于Max，则将X的值赋给Max，Lmax记录X位置序号。找最小数同理。程序运行界面如图所示。 例4.18 用随机函数产生10个3位整数，找出其中最大数和最小数，以及它们的位置。 4.4 循环结构程序设计 程序代码如下： DefInt A-Z 声明变量缺省数据类型为整型 Private Sub Command1_Click() Randomize 初始化随机数发生器 List1.Clear Max = -32768: Lmax = 0 设置最小数初始值 Min = 32767: Lmin = 0 设置最小数初始值 k = 1 Do While k = 10 x = Int(Rnd * 900 + 100) If Max x Then Max = x : Lmax = k ‘ 记录最大数及位置 If Min x Then Min = x : Lmin = k List1.AddItem (Str(x)) k = k + 1 Loop Text1.Text = Max ： Text2.Text = Lmax 显示查找结果 Text3 = Min ：Text4 = Lmin End Sub 4.4 循环结构程序设计 4.4.4 For … Next循环语句 一般格式如下： For X = a To b [Step c] [ …… ] [ Exit For ] [ …… ] Next [ X ] 功能：以指定次数来重复执行循环体。 循环体 X 循环变量, a 初值, b 终值 , c 步长 4.4 循环结构程序设计 其中： （1）在同一循环中，Next、For中循环变量必须相同 （2）循环控制变量、循环初值、终值、步长均为数值型数据。Step的缺省值为1。 （3）Exit For语句可以终止For… Next语句的循环。 （4）For… Next循环语句的执行过程： ① 将循环的初值赋给循环控制变量 ，同时将终值和步长值分别存放在两个专用的内存中； ②将循环控制变量的值与终值进行比较，若未超过终值，执行一次循环体；否则退出循环，执行Next后续语句 ③ 碰到Next语句，循环控制变量增加一个步长值（专用内存中保存的步长）； ④ 转向步骤②，将新的循环控制变量的值与终值比较。 4.4 循环结构程序设计 （5）For循环的循环体可以利用循环控制变量，但在循环中若要改变循环控制变量的值，会影响循环执行的次数，如下表所示。 程序 说明 程序 说明 For i = 1 to 10 Print i ; Next i 循环执行了10次， 显示结果： 1 2 3 4 5 6 7 8 9 10 For i = 1 to 10 Print i ; i = i + 1 Next i 循环执行了5次， 显示结果： 1 3 5 7 9 改变循环控制变量的值对循环的影响 4.4 循环结构程序设计 （6）在循环中改变终值或步长，不会影响循环的执行次数。如下表所示： 改变终值或步长值不会对循环次数产生的影响 程序 说明 a = 1:b = 10: c = 2 For n=a To b Step c Print n; Next n 循环执行了5次，显示结果： 1 3 5 7 9 a=1:b=10:c=2 For n=a To b Step c Print n;: b=b+1 : c=c+1 Next n 循环执行了5次，显示结果： 1 3 5 7 9 4.4 循环结构程序设计 （7）若程序中同时有For…Next、Goto语句时，在程序中跳转只能从循环内转到循环外，不能从外向内转。下表中箭头表示了跳转的方向。 允许 不