VB课件第6章Visual Basic 循环结构

End Sub
Do Until i = 100
例6-3：求 1+22+32+……n2大于1000的最小值。
选Do … Loop语句： 不知道要加到第几项，但知道累加和大于 1000，并且，第一次超过1000时就不再累 加了，所以选Do … Loop语句。
求项数（计数i）: i=0(初值) ，i=i+1(重复执行)
例: 利用随机函数10个产生[20,90]的整数, 求其平均值.
界面设计: 单击窗体, 显
示结果如图.
例: 利用随机函数10个产生[20,90]的整数, 求其平均值.
分析: 产生数X 求和s
求平均a
产生一个X: X=Int(Rnd*71+20)
显示产生的值: Print x
计算和: s=s+x
重复10次 求得这10 个数的和s
Private Sub Form_Click( ) Dim i As Integer i=0 Do While i < 100 i=i+1 Print i； If i Mod 10 = 0 Then Print Loop
End Sub
用Do Until … Loop循环来编制 例6-2的程序
Private Sub Form_Click() Dim i As Integer i=0 Do While i < 100 i=i+1 Print i; If i Mod 10 = 0 Then Print Loop
If Max <= x Then Max = x Next i Print Print “最大值为:”; Max End Sub
6.4 循环嵌套
循环嵌套：在一个循环语句的循环体中又包含有另一 循环语句。 VB的三种循环可以自身嵌套与相互嵌套 要求：内层结构一定包含在外层结构中，不能交叉
Do While … …
For k= …
Next k Loop
For k= …
Do While … … Loop Next k
Do while Do While … … Loop …
Loop
For k= …
Do While … …
Next k … Loop
Do While … …
For k= …
④ For后面的循环变量和Next后面的循 环变量是同一个变量(变量名和类型相同) 单循环时，Next后面的循环变量可以省略
⑤ 可以在循环体中加上Exit For语句或 GoTo语句，中途退出For … Next循环。
例：求 k=1+2+3+ …+ n（n为自然数）
分析：k=0 k=k+1 k=k+2 k=k+3 k=k+4 … k=k+n
知道重复执行语句的次数
4.引入循环
例6-1：在窗体上显示1到10 十个自然数。 (1)程序代码 Form1.Print 1;2;3;4;5;6;7;8;9;10 (2)注意 Print后面的参数似乎编写得有点累赘冗长。 如果让我们显示100个自然数，其程序代码的设
计就非常不可取了。 其实，这里面就含有了“循环”的理论，100个
自然数参数，就是100次循环，解决这类问题， 程序代码采用循环结构编程，其可读性就大大提 高了。
6.2.1 Do While | Until … Loop语句
Do While <循环条件>
[<语句序列1>]
[Exit Do]
循环体
[<语句序列2>]
Loop Do Until<循环条件>
[<语句序列1>]
End Sub
6.2.1 Do While | Until … Loop语句
Do
[<语句序列1>] [Exit Do]
循环体
[<语句序列2>]
Loop While <循环条件>
Do [<语句序列1>]
[Exit Do]
循环体
[<语句序列2>]
Loop Until<循环条件>
语句序列 （循环体）
条件判断 False
x= 4 y= 12 z= 7 a=10
X=2 ,3 ,4 Y=8 ,10,12 Z=3 , 5, 7 a=2( 8,3)
3 a=a+步长=3+3
6 6<=8? True
7 a=a+步长=7+3
10 10<=8? False
For…Next语句的几点说明
③超过的两个含义： 当步长为正时，循环结束条件为大于终值 当步长为负时，循环结束条件为小于终值
True
Do … Loop While程 序流程图
至少执行一次 循环体
Do ... Loop Until 程序流程图
语句序列 （循环体）
条件判断
True
False
用Do...Loop Until语句，重新编写例 6-3的程序代码。
Private Sub Form_Click()
Dim Sum As Integer, i As Integer
Label3.Caption = "它们的最大公约数是：" & m
Label4.Caption = "它们的最小公倍数数是：" & t / m End Sub
6.3 For … Next 语句
计数型循环语句：主要用于循环次数已知 的情况下，编写循环结构的程序代码。
For 循环控制变量 = 初值 To 终值 [Step 步
0+1=1 1+2=3 3+3=6 6+4=10
1+2+ …+(n-1) +n
初值:k=0 重复执行: k=k+i (i=1,2,3,4,….,n)
Private Sub Command1_Click()
Dim n%, i%, k&
当步长为1时，Step 1可省略
n = Val(InputBox(“Input n:"))
例6-5：输入2个正整数，求它们的 最大公约数和最小公倍数
231和63的最大公约数
古希腊数学家欧几里德的“辗转相除法”理论 ①在给出的两个正整数中，变量m(较大) ，
变量n（放较小）。 ②m除以n，得出余数r。 ③若r≠0，则 n→m，r→n，转到②。 ④若r=0，则n的值就是这两个正整数的最大
公约数。
For i = 1 To n
k=0
k=k+i
For i = 1 To n Step 1
Next i
k=k+i Next i Print “k="; k
For i = n To 1 Step -1 k=k+i
Next i
End Sub
在本例中,For循环结束后i 的值为? n+1(步长)
计算 n! ,如何修改程序？
①在给出的两个正整数中，变量m(较大) ， 变量n（放较小）。
m = Val(Text1.Text) n = Val(Text2.Text) If m < n Then t = m: m = n: n = t
m=231 n=63
②m除以n，得出余数r。 ③若r≠0，则 n→m，r→n，转到②。 ④若r=0，则n的值就是这两个正整数的最大公约数。
长]
[<语句序列1>] [Exit For]
循环体
[<语句序列2>]
Next [<循环控制变量>]
61.35 F9or … Next 语句的流程图
For n=1 To 10 Step 4 Print n;
没有 Next n
nn==15913
1593<<==1010TrFuaelse
n=n+4=159+4=5913
[Exit Do] [<语句序列2>]
循环体
Loop
条件判断
False
True
语句序列 （循环体）
Do While … Loop程序流程图
Do Until ... Loop程序流程图
条件判断
True
False
语句序列 （循环体）
例6-2：单击窗体，在窗体上显示1 到100的自然数，每行显示10个数。
求平均a: a=s/10 显示计算结果: Print “平均值为”;a
Private Sub Form_Click()
s=0
For k = 1 To 10
a的值保留二位小数？
x = Int(Rnd * 71 + 20)
Print x s=s+x Next k a = s / 10
Round(a,2) Format(a，“#.00”)
Int(a*100+0.5)/100
Print "平均值为"; a
End Sub
例:找最大值。
利用随机函数产生并显示30个0 到100之间的整数，找出其中的 最大值。
Max：用于保存当前的最大值
其初值为0（小于所有产生的数）
Private Sub Form_Click() Randomize Max = 0 For i = 1 To 30 x = Int(Rnd * 100) Print x;
重复环节的关联却是明显的，而且，前 后的规律性也是可寻的。
在计算机出现之后，处理重复环节的问 题就显得非常简单。
6.1 循环的概念
计算机的特点之一就是，可以在程序 控制下严格地执行着重复的操作，并 可让重复环节在每一次的循环中有所 改变。