vb200第3章.pptVIP

第3章 VB控制结构 3.3 循环结构程序设计 【例3-3-1】计算1+2+3+…+100。 （1）用当型循环语句Do While … Loop，程序如下： Private Sub Form_Load（） Dim s As Integer, n As Integer Show s = 0: n = 1 Do While n = 100 s = s + n n = n + 1 Loop Print 1+2+3+…100=; s End Sub （3） Do…Loop循环语句也可以省略While/Until。程序如下： Private Sub Form_Load（） Dim s As Integer, n As Integer Show s = 0: n = 1 Do s = s + n n = n + 1 If n 100 Then Exit Do Loop Print 1+2+3+…100=; s End Sub （2）用直到型循环语句Do Until … Loop，程序如下： Private Sub Form_Load（） Dim s As Integer, n As Integer Show s = 0: n = 1 Do Until n 100 s = s + n n = n + 1 Loop Print 1+2+3+…100=; s End Sub 3.3 循环结构程序设计 【例3-3-2】Fibonacci（裴波那奇）序列为：0，1，1，2，3，5，8，13，21，34，…。编写程序输出项值不大于1000的Fibonacci序列。 （1）建立应用程序用户界面。（2）设置对象属性。 （3） 编写Command1单击事件代码。 Private Sub Command1_Click（） Dim i1 As Integer, i2 As Integer, i3 As Integer, n As Integer i1 = 0: i2 = 1: n = 1 p = 第1项= i1 Do While i2 = 1000 n = n + 1 p = p Chr（13） Chr（10） 第 n 项= i2 i3 = i1 + i2 i1 = i2 得到新的i1 i2 = i3 得到新的i2 Loop Text1.Text = p Label1.Caption = Fibonacci（裴波那奇）序列： Chr（13） _ 其值不大于1000的共有 n 项 End Sub 3.3 循环结构程序设计 2. 后判断条件形式的Do … Loop语句 语句格式为： Do [循环体] Loop [While|Until 条件] Do…Loop语句首先执行循环体，然后判断条件的真假，决定是否继续循环。后判断条件形式的Do…Loop语句至少执行一次循环体。 【例3-3-3】在【例3-3-1】中我们编写了求1～100累加和的程序，现将该程序改写成后判断条件形式的Do…Loop语句。 Private Sub Form_Load（） Dim s As Integer, n As Integer Show s = 0: n = 1 Do s = s + n n = n + 1 Loop While n = 100 Print 1+2+3+…100=; s End Sub 3.3 循环结构程序设计 【例3-3-4】输入两个正整数，求它们的最大公约数。 采用“辗转相除法”如下： （1）以大数x作被除数，小数y作除数，相除后的余数为r。 （2）若r≠0，则将x←y，y←r，继续x与y相除得到新的r，若仍有r≠0，则重复此过程，直到r=0为止。 （3） 最后的除数y就是最大公约数。 Private Sub Command1_Click（） x = Val（Text1.Text） y = Val（Text2.Text） If x y Then t = x: x = y: y = t Do r = x Mod y If r = 0 Then Exit Do x = y: y = r Loop Label3.Caption = 两数的最大公约数是： Trim（Str（y）） End Sub 3.3 循环结构程序设计 3.3.2 For … Next语句 For … Next循环结构是实现循环的又一种形式，它属于计数型循环，通常用于循环次数已知的程序结构中。语法格式如下： For 循环变量 =初值 To 终值 [Ste