V i s u a l B A S I C 程序设计第6章循环结构程序设计本章要点: For.Next循环 Do.Loop循环特点: 重复相同或相似的操作步骤 结构: 循环体要重复执行的语句序列。循环控制部分规定循环的重复条件或重 复次数，确定循环范围的语句1第六章 循环结构程序设计初值 循环变量6.1 ForNext循环结构1. 格式 For = To Step Exit ForNext 循环变量值超过终值？执行循环体循环变量+步长 循环变量后续语句YesNo2. 功能: 执行过程如流 程图所示2第六章 循环结构程序设计3. 说明 (1)循环变量数值变量 (2)初值,终值,步长数值表达式 (3)步长可正可负,但不能为0,为1时可以省略步长0时，必须: 初值终值步长= 终值循环结束条件循环变量的值Exit Do Loop格式二: Do Until Exit Do Loop11第六章 循环结构程序设计2. 功能使用While : 条件为True时，执行循环体条件为False时，退出循环 使用Until : 条件为False时，执行循环体条件为True时，退出循环 格式一、二:在循环起始处判断条件,为当型循环格式三、四:在循环终止处判断条件, 为直到型循 环格式三: DoExit Do Loop While 格式四: DoExit Do Loop Until12第六章 循环结构程序设计3.说明 (1)Exit Do语句用于退出循环体 (2)也可以在Do语句和Loop语句之后都没有条件,这时在循环体内必须有强行退出循环的语句 (3)多数情况下，当型循环和直到型循环可互相代替 【例6-4】求12+22+32+42+小于某数N的最大值，N 由用户指定。设计界面下图: Text1Text2Command113第六章 循环结构程序设计Private Sub Command1_Click()Dim n As Long , S As Long N = Val(Text1.Text)I = 0S = 0Do While S = NWhile S =2PText1Text2Text3Text4 17第六章 循环结构程序设计Private Sub Form_Click()P = Val(Text1.Text)R = Val(Text2.Text) / 100V = P:Y = 0Do Until V = 2 * PY = Y + 1V = V * (1 + R)LoopText3.Text = YText4.Text = Format(V, “0.00“) End Sub18第六章 循环结构程序设计【例6-7】给出两个正整数M、N，求它们的最大公约数和最小公倍数。分析: 求最大公约数的方法如下(1) 以M作被除数，N作除数，求余数R。(2) 如果R不为零，则将除数N做为新的被除数M ，将余数R做为新的除数N，再进行相除，得 到新的余数R。(3) 如果R仍不等于0，则重复上述步骤(2)。如果 R为零，则这时的被除数N就是最大公约数。最小公倍数为两个数的积除以它们的最大公约数 。19第六章 循环结构程序设计设计界面如下图所示: Text1Text2Label3Label420第六章 循环结构程序设计Dim A As Integer, B As Integer, N As Integer, _M As Integer, R As Integer Private Sub Command1_Click() M = Val(Text1.Text):N = Val(Text2.Text)A = M:B = N R = M Mod NDo While R =3),判断它是否是素数分析:将数N被2SQR(N)间全部整数除，如果都除不尽，则N是素数，否则N不是素数。 设标志变量Flag，只要有一个被整除，就置为1。22第六章 循环结构程序设计Private Sub Command1_Click()N = Val(Text1.Text) : K = Int(Sqr(N) : I = 2Flag = 0Do While I = To Step Exit ForNext 32第六章 循环结构程序设计Do While|UntilExit Do LoopDoExit Do Loop While|Until2. DoLoop循环结构33