vb循环结构1 高中信息技术课件教案 人教版

1、循环结构 Do Loop之“当循环形式1: 形式2:Do While Do 语句块(循环体) 语句块(循环体)Loop Loop While 当条件为真true时循环！Do Loop循环例如1Private sub Form_click()Dim num%num=1Do while num=10Print numNum=num+1LoopEnd subPrivate sub Form_click()Dim num%num=1Do Print numNum=num+1Loop while num=10End subS=1+2+3+100Private Sub Form_Click()Dim i

2、As Integer i为累加数Dim sum As Integer sum为累加和 i =1 sum = 0 Do While i = 100 sum = sum + i i = i + 1 Loop Print sumEnd SubS=1+2+3+100Private Sub Form_Click()Dim i As IntegerDim sum As Integer i = 1 sum = 0 Do sum = sum + i i = i + 1 Loop While i = 100 Print sumEnd SubDo Loop之“直到循环形式1: 形式2:Do Until Do 语句

3、块(循环体) 语句块(循环体)Loop Loop Until 直到条件为真true时退出循环！S=1+2+3+nPrivate Sub Command1_Click() Dim i As Integer, n As Integer Dim sum As Integer n = Val(Text1.Text) sum = 0 i = 0 Do Until i n sum = sum + i i = i + 1 Loop Text2.Text = sumEnd SubS=1+2+3+nPrivate Sub Command1_Click() Dim i As Integer, n As Integ

4、er Dim sum As long n = Val(Text1.Text) sum = 0 i = 0 Do sum = sum + i i = i + 1 Loop Until i n Text2.Text = sumEnd Sub5.2 For 循环语句For循环语句是计数型循环语句，用于控制循环次数的循环结构。语句形式如下：For 循环变量 = 初值 To 终值 Step 步长 循环体Next 循环变量 For 循环变量 = 初值 To 终值 Step 步长 循环体Next 循环变量 1“循环变量：必须为数值型，取值范围在初值和终值之间。2“初值、“终值：都是数值型，可以是数值表达式。

5、3“步长：是数值型，可以是数值表达式。 步长不能为0。如果步长是1，那么Step 1可以省略不写。4“循环体：在For和Next之间一条或多条语句，他们将被执行指定的次数。5Next后面的循环变量与For语句中的循环变量必须相同。使用For循环计算1+3+5+99的值 Private Sub Command1_Click() Dim i As Integer, n As Integer Dim sum As Integer sum = 0 For i = 1 to 99 step 2 sum = sum + iNext iPrint sumEnd SubFor 循环变量 = 初值 To 终值

6、Step 步长 循环体Next 循环变量 使用For循环计算1+3+5+99的值 Private Sub Command1_Click() Dim i As Integer, n As Integer Dim sum As Integer sum = 0 For i = 99 to 1 step -2 sum = sum + iNext iPrint sumEnd SubFor 循环变量 = 初值 To 终值 Step 步长 循环体Next 循环变量 For 和Do Loop的比较采用For语句比Do Loop更加简明。一般情况下，能够预先确定循环次数时，应优先采用For语句，否那么的话应该使

7、用Do Loop语句【例 5.13】利用随机数函数模拟抛硬币采用的方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入抛硬币次数、出现正面的次数和出现反面的次数，如下图。Private Sub Command1_Click()Dim n As LongDim n1 As Long, n2 As LongRandomizen = Val(Text1.Text)n1 = 0n2 = 0For i = 1 To nr = Int(Rnd * 2)If r = 1 Thenn1 = n1

8、+ 1Elsen2 = n2 + 1End IfNextText2.Text = n1Text3.Text = n2End Sub 循环的嵌套多重循环结构 如果在一个循环内完整地包含另一个循环结构，那么称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。下面是几种常见的二重嵌套形式：1For I=. . For J=. . Next J . Next I2For I=. . Do While/Until . . Loop . Next I3Do While. . For J=. . Next J . Loop4Do While/Until. . D

9、o While/Until . . Loop . Loop循环嵌套Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 3 Print i= ; i For j = 1 To 3 Print Tab; j=; j Next jNext IEnd Sub图5.6 例5.4显示结果循环嵌套For i = 1 To 3 Step 1 Print i= ; i For j = 1 To 3 Step 1 Print Tab; j=; j Next jNext ii=1i=3i=i+1Print i= ; iFor j =

10、1 To 3 Print Tab; j=; j Next jNY循环嵌套i=1i=3i=i+1Print “i=“;ij=j+1j=1j=3Print Tab; j=; jYNYNFor i = 1 To 3 Step 1 Print i= ; i For j = 1 To 3 Step 1 Print Tab; j=; j Next jNext i循环嵌套For i = 1 To 3 Step 1 Print i= ; i For j = 1 To 3 Step 1 Print Tab; j=; j Next jNext ii=1i=3i=i+1Print i= ; iFor j = 1 T

11、o 3 Print Tab; j=; j Next jNY循环嵌套i=1i=3i=i+1Print “i=“;ij=j+1j=1j=3Print Tab; j=; jYNYNFor i = 1 To 3 Step 1 Print i= ; i For j = 1 To 3 Step 1 Print Tab; j=; j Next jNext i循环嵌套For i = 1 To 3 Print i= ; i For j = 1 To 3 Print Tab; j=; j Next jNext ii=1i=3i=i+1j=j+1j=1j 100 Then Exit DoLoopPrint sumE

12、nd SubExit For语句Exit For语句可以用来结束For.Next循环。一般也和选择结构语句一起配合使用。它必须放置在For.Next语句的循环体中。当执行到Exit For时，程序会立即结束循环，跳到Next后执行下面的语句。当有多个循环嵌套使用时，Exit For语句只跳出所在的最内层的For.Next循环。【例 5.7】给定一个数n，判断它是否是素数 分析：素数就是一个大于2且只能被1和本身整除的整数。判断一个数是否为素数比较简单的方法是：用n逐个除以2n-1之间的每个整数只要有一个可以整除，那么说明n不是素数；如果全部不能整除，那么说明n是素数。Private Sub F

13、orm_Click()Dim i As Integer Dim n As Integer n = InputBox(请输入一个整数) For i = 2 To n-1 If n Mod i = 0 Then Exit For End If Next I If i 0.00001 e = e + t i = i + 1 n = n * i 连乘，求阶乘 t = 1 / n 累加项LoopPrint 计算了 ; i; 项的和是 ; eEnd SubFibonacci数列 1，1，2，3，5，8，13，21，34，55 兔子繁殖问题求斐波那契数列前十五项Private Sub Form_Click(

14、)Dim f1%, f2%, f3%, i%f1=1f2=1print f1; f2For i = 3 To 15 f3=f1+f2 print f3 f1=f2 f2=f3NextEnd Sub求最大公约数【例 5.12】用辗转相除法求两自然数x、y的最大公约数。算法描述如下：x除以y得余数r；假设r=0，那么y为求得的最大公约数，算法结束，否那么执行步骤3；令x等于y，y等于r，重复执行步骤1。思考：请用Do WhileLoop和DoLoop Until改写辗转相除法求最大公约数 Private Sub Form_Click()x = InputBox(输入x)y = InputBox(输入y)Do r = x Mod