二級vb考試系統(tǒng)第3次課循環(huán)(14學時)

1、2010年9月等級考試輔導二級Visual Basic1第三講 VB控制結構-循環(huán)列表框、組合框2當循環(huán)控制結構3Do循環(huán)控制結構4常用算法 6For循環(huán)控制結構1多重循環(huán)5考點3 For循環(huán)控制結構 For 循環(huán)變量 = 初值 To 終值 step 步長循環(huán)語句塊 Exit ForNext 循環(huán)變量For i = 1 To 2 step 1Form1.Print iNext iFor i = 1 To 2 step 1Form1.Print iNext ii=1i=2True考點3 For循環(huán)控制結構For i = 1 To 2 step 1Form1.Print iNext ii=1i=2

2、Form1.Print iTrue考點3 For循環(huán)控制結構For i = 1 To 2 step 1Form1.Print iNext ii=1i=2Form1.Print iTruei = i + 1考點3 For循環(huán)控制結構For i = 1 To 2 step 1Form1.Print iNext ii=1i=2Form1.Print iTruei = i + 1考點3 For循環(huán)控制結構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在調試時發(fā)現運行結果有錯誤，需要修改。下列錯誤原因和修改方案中正確的是（ ）(A)WhileWend循環(huán)語句錯誤，應改為Fork=1To99Nextk(B)循環(huán)條件錯誤，應改為Whliek99(C)循環(huán)前的賦值語句k=1錯誤，應改為k=0(D)循環(huán)中兩條賦值語句的順序錯誤，應改為s=s+k:k=k+22007年

5、4月選擇題27題解題思路：1.查找出錯位置檢查前1個數和后1個數是否參加運算； 有無多余的數參加運算。2.確定修改方案直接確定法 按選項提示修改法考點5 Do循環(huán)控制結構DoLoop循環(huán)控制結構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循環(huán)控制結構思考：本題是否適合將條件寫于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循環(huán)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的循環(huán)嵌套考點6 多重循環(huán)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執(zhí)行的次數為55次XX+1執(zhí)行的次數為12345次For的循環(huán)嵌套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 多重循環(huán)For的循環(huán)嵌套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 多重循環(huán)For的循環(huán)嵌套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 多重循環(huán)考點7 常用算法判斷素數循環(huán)?？妓惴ㄇ笞畲蠊s數最小公倍數上機考試出現概率較高求素數算法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