二级vb考试系统第3次课循环(14学时)

1、2010年9月等级考试辅导二级Visual Basic1第三讲 VB控制结构-循环列表框、组合框2当循环控制结构3Do循环控制结构4常用算法 6For循环控制结构1多重循环5考点3 For循环控制结构 For 循环变量 = 初值 To 终值 step 步长循环语句块 Exit ForNext 循环变量For i = 1 To 2 step 1Form1.Print iNext iFor i = 1 To 2 step 1Form1.Print iNext ii=1i=2True考点3 For循环控制结构For i = 1 To 2 step 1Form1.Print iNext ii=1i=2

2、Form1.Print iTrue考点3 For循环控制结构For i = 1 To 2 step 1Form1.Print iNext ii=1i=2Form1.Print iTruei = i + 1考点3 For循环控制结构For i = 1 To 2 step 1Form1.Print iNext ii=1i=2Form1.Print iTruei = i + 1考点3 For循环控制结构For i = 1 To 2 step 1Form1.Print iNext ii=1i 10 Then Exit For Next Text1.Text = Str(n)End Sub程序运行后，单

3、击命令按钮，在文本框中显示的值是（ ）（A）5 （B）4 （D）22006年9月选择题第19题 （C）3在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = 1 If i = 0 And score = 90 Then y = y + 1 ElseIf score = 80 Then l = l + 1 ElseIf score = 70 Then z = z + 1 ElseIf scor

4、e = 60 Then j = j + 1 Else b = b + 1 End If total = total + 1score = Val(InputBox(请输入成绩)为计算1+3+5+99的值，某人编程如下k=1s=0Whilek=99k=k+2 s=s+kWendPrints在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（ ）(A)WhileWend循环语句错误，应改为Fork=1To99Nextk(B)循环条件错误，应改为Whliek99(C)循环前的赋值语句k=1错误，应改为k=0(D)循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+22007年

5、4月选择题27题解题思路：1.查找出错位置检查前1个数和后1个数是否参加运算； 有无多余的数参加运算。2.确定修改方案直接确定法 按选项提示修改法考点5 Do循环控制结构DoLoop循环控制结构For i = 1 To 2 step 1Form1.Print iNext ii = 1Do While i 2 Form1.Print i i = i + 1Loopi = 1Do Form1.Print i i = i + 1Loop While i 2 score = Val(InputBox(请输入成绩) While score = 0 And score = 90 Then y = y +

6、1 ElseIf score = 80 Then l = l + 1 ElseIf score = 70 Then z = z + 1 ElseIf score = 60 Then j = j + 1 Else b = b + 1 End If total = total + 1score = Val(InputBox(请输入成绩)Do While score = 0 And score = 100LoopDo Until score 100LoopDoLoop循环控制结构思考：本题是否适合将条件写于Loop后？ score = Val(InputBox(请输入成绩) Do If score

7、100 Then Exit Do If score = 90 Then y = y + 1 ElseIf score = 80 Then l = l + 1 ElseIf score = 70 Then z = z + 1 ElseIf score = 60 Then j = j + 1 Else b = b + 1 End If total = total + 1 score = Val(InputBox(请输入成绩) LoopDoLoop循环2007年4月选择题27题设有如下程序：Private Sub Command1_Click() Dim c As Integer, d As Int

8、eger c = 4 d = InputBox(请输入一个整数) Do While d 0 If d c Then c = c + 1 End If d = InputBox(请输入一个整数) Loop Print c + dEnd Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是_。（A）12 （B）11 （C）10（D）9For的循环嵌套考点6 多重循环For i = 1 To 5 For j = 1 To 5 x = x + 1 Next j Next iFor i = 1 To 5 For j = 1 To i x = x

9、 + 1 Next j Next ii1XX+1执行的次数为55次XX+1执行的次数为12345次For的循环嵌套For i = 1 To 5 For j = 1 To 5 x = x + 1 Next j Next iFor i = 1 To 5 For j = 1 To i x = x + 1 Next j Next ix = 1x = 1考点6 多重循环For的循环嵌套For i = 1 To 5 For j = 1 To 5 x = x + 1 Next j Next iFor i = 1 To 5 For j = 1 To i x = x + 1 Next j Next ix = 1

10、x = 1考点6 多重循环For的循环嵌套For i = 1 To 5 For j = 1 To 5 x = x + 1 Next j Next iFor i = 1 To 5 For j = 1 To i x = x + 1 Next j Next iy = y + 1y = y + 1考点6 多重循环考点7 常用算法判断素数循环常考算法求最大公约数最小公倍数上机考试出现概率较高求素数算法For i = 2 To n - 1 If n Mod i = 0 Then Exit For End IfNext iIf in-1 Then Print n; 是质数End Ifi = 2Do Whil

11、e i n - 1 Then Print n; 是素数End If判断素数：依次取2,n - 1范围内数据与待判定数据n 取余，若余数为0，即终止，并判定n不为 素数，否则若该范围内所有数据均不能整 除n，则n为素数素数：只能被1和它自身整除的整数求素数算法For i = 2 To n - 1 If n Mod i = 0 Then Exit For End IfNext iIf in-1 Then Print n; 是质数End Ifi = 2Do While i n - 1 Then Print n; 是素数End If2,n - 1范围可改为2, sqr(n) 或 2,n 2Sqr(n)

12、If i Sqr(n) thenSqr(n)If i Sqr(n) thenFlag=TrueFor i = 2 To n - 1 If n Mod i = 0 Then Flag=False End IfNext iIf Flag Then Print n; 是质数End If求素数算法flag = Truei = 2Do While i Sqr(i) Then List1.AddItem iNext i上机真题找出比给定素数值小的最大3个素数 求最大公约数（辗转相除）被除数除数商余数34 0343113130u v r3与4的最大公约数实例：求3与4的最大公约数余数为0最大公约数：两数相除，取余： r = u mod v余数为0，则gcd v余数非0，用前次除数v作被除数，余数r作除数， 再取余，并转至判断 即：u = v: v = r : r = u mod v 最小公倍数：lcm=uv / gcd求最大公约数u = 15: v = 5m = u: n = vDo r = u Mod v u = v v = rLoop Until r = 0Print 最大公约数; u Print “最小公倍数; m