BB平臺(日常測試)循環(huán)

1、問題 1 得 0 分，滿分 20 分 單擊窗體，找出1099之間所有的同構(gòu)數(shù)，顯示在窗體上。所謂同構(gòu)數(shù)是指一個數(shù)出現(xiàn)在它的平方數(shù)的右端，如25在25的平方625的右端，則25為同構(gòu)數(shù)，窗體上顯示“25是同構(gòu)數(shù)”。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim i As Integer -未給定 3. For i = 10 To 99 -未給定 4. If i = (i 2) Mod 100 Then -未給定 5. Print i & 是同構(gòu)數(shù) -未給定 6. End If -未給定 7. Next i -未給定 8. End Sub -未給定

2、 問題 2 得 0 分，滿分 20 分 編制Form_Click()過程，從輸入框InputBox輸入行數(shù)n(5n15)，然后在窗體上打印如下圖形。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim n As Integer, i As Integer, j As Integer -未給定 3. Don = Val(InputBox(n=)-未給定 4. Loop Until n = 5 And n 10 -未給定 5. For i = 1 To n -未給定 6. Print Tab(n + 1 - i); -未給定 7. For j = 1 T

3、o n -未給定 8. Print *; -未給定 9. Next j -未給定 10. Print -未給定 11. Next i -未給定 12. End Sub -未給定 問題 3 得 0 分，滿分 20 分 編制Form_Click()過程，有10元、20元、50元紙幣若干張，從中取出20張紙幣使其面額總值為600元，求出取法的總數(shù)量以及每一種取法的10元、20元、50元紙幣張數(shù)，并顯示在窗體上。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim x As Integer, y As Integer, z As Integer, n As

4、Integer -未給定 3. For x = 0 To 600 50 -未給定 4. For y = 0 To 20 - x -未給定 5. z = 20 - x - y -未給定 6. If z * 10 + y * 20 + x * 50 = 600 Then -未給定 7. Print 10元:; z, 20元:; y, 50元:; x -未給定 8. n = n + 1 -未給定 9. End If -未給定 10. Next y -未給定 11. Next x -未給定 12. Print 總共有： & n & 種取法 -未給定 13. End Sub -未給定 問題 4 得 0

5、分，滿分 20 分 單擊窗體，從輸入框InputBox輸入x和n，并計算下列表達(dá)式的值，結(jié)果顯示在窗體。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim s As Single, x As Single, a As Single, n As Integer -未給定 3. x = Val(InputBox(請輸入x)n = Val(InputBox(請輸入n)s = 1-未給定 4. a = 1 -未給定 5. For i=1 To n -未給定 6. a = a * x / i -未給定 7. s = s + a -未給定 8. Next -未

6、給定 9. Print s=; s -未給定 10. End Sub -未給定 問題 5 得 0 分，滿分 20 分 從輸入框InputBox輸入n，再從輸入框輸入這n個整數(shù)，要求以每行5個的形式輸出這n個數(shù)（其中的偶數(shù)用紅色顯示），計算它們的平均值并顯示在窗體上。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim n As Integer, x As Integer, ave As Single, s As Single -未給定 3. n = Val(InputBox(n) -未給定 4. For i = 1 To nx = Val(Input

7、Box(x)-未給定 5. If x Mod 2 = 0 Then -未給定 6. Form1.ForeColor = vbRed -未給定 7. Else -未給定 8. Form1.ForeColor = vbBlack -未給定 9. End If -未給定 10. Print x;If i Mod 5 = 0 Then Prints = s + x-未給定 11. Next i -未給定 12. ave = s / nPrint-未給定 13. Print 平均值為： & ave -未給定 14. End Sub -未給定 問題 1 得 0 分，滿分 20 分 實現(xiàn)文本框的復(fù)制（Com

8、mand1）、剪切（Command2）、粘貼（Command3）、刪除（Command4）功能。 編制Form_Click()過程，從輸入框InputBo正確答案所選答案1. Private Sub Command1_Click() -未給定 2. Clipboard.ClearClipboard.SetText Text1.SelTextEnd Sub-未給定 3. Private Sub Command2_Click() -未給定 4. Clipboard.ClearClipboard.SetText Text1.SelText-未給定 5. Text1.SelText = End Sub

9、-未給定 6. Private Sub Command3_Click() -未給定 7. Text1.SelText = Clipboard.GetTextEnd Sub-未給定 8. Private Sub Command4_Click()Text1.SelText = -未給定 9. End Sub -未給定 問題 2 得 0 分，滿分 20 分 編制Form_Click()過程，計算下式的和并顯示在窗體上，變量x與n的數(shù)值用輸入對話框InputBox輸入。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim s As Single, x As

10、Single, a As Single, n As Integer -未給定 3. x = Val(InputBox(請輸入x)n = Val(InputBox(請輸入n)a = 1s = 0-未給定 4. For i = 2 To n + 1 -未給定 5. a = a * x / i -未給定 6. s = s + a -未給定 7. Next -未給定 8. Print s=; s -未給定 9. End Sub -未給定 問題 3 得 0 分，滿分 20 分 編制Form_Click()過程，從輸入框InputBox輸入整數(shù)n，求n!的值，并把結(jié)果打印在窗體上。 正確答案所選答案1.

11、Private Sub Form_Click() -未給定 2. Dim n As Integer, i As Integer, s As Long -未給定 3. n = Val(InputBox(請輸入n)s = 1-未給定 4. For i = 1 To n -未給定 5. s = s * i -未給定 6. Next i -未給定 7. Print n!= & s -未給定 8. End Sub -未給定 問題 4 得 0 分，滿分 20 分 編制Form_Click()過程，從輸入框InputBox輸入行數(shù)n(5n= 5 And n 0 -未給定 5. x = n Mod 10 -未

12、給定 6. s = s + x -未給定 7. n = n 10 -未給定 8. Loop -未給定 9. Print s -未給定 10. End Sub -未給定問題 1 得 0 分，滿分 20 分 編制Form_Click()過程，從輸入框InputBox輸入行數(shù)n(5n= 5 And n 10 -未給定 6. For i = 1 To n -未給定 7. Print Tab(n + 1 - i); -未給定 8. For j = 1 To 2 * i - 1 -未給定 9. PrintTrim(Str(i); -未給定 10. Next j -未給定 11. Print -未給定 12

13、. Next i -未給定 13. End Sub -未給定 問題 2 得 0 分，滿分 20 分 單擊窗體，顯示出所有的水仙花數(shù)。所謂水仙花數(shù)，是指一個3位正整數(shù)，其各位數(shù)字的立方和等于該數(shù)字本身。例如：153是水仙花數(shù)，因為153=13+53+33。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim i As Integer, b As Integer, s As Integer, g As Integer -未給定 3. For i = 100 To 999 -未給定 4. b = i 100s = (i Mod 100) 10g = i M

14、od 10-未給定 5. If i = b 3 + s 3 + g 3 Then -未給定 6. Print i & 是水仙花數(shù) -未給定 7. End If -未給定 8. Next i -未給定 9. End Sub -未給定 問題 3 得 0 分，滿分 20 分 單擊窗體，求s=1!+2!+3!+.+10!的值，并把結(jié)果顯示在窗體上。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim i As Integer, a As Long, s As Long -未給定 3. a = 1s = 0-未給定 4. For i = 1 To 10 -未給

15、定 5. a = a * i -未給定 6. s = s + a -未給定 7. Next i -未給定 8. Print s -未給定 9. End Sub -未給定 問題 4 得 0 分，滿分 20 分 編制Form_Click()過程，從輸入框InputBox輸入行數(shù)n(5n= 5 And n 10-未給定 5. For i = 1 To n -未給定 6. Print Tab(n + 1 - i); -未給定 7. For j = 1 To 2 * i - 1 -未給定 8. Print*; -未給定 9. Next j -未給定 10. Print -未給定 11. Next i -

16、未給定 12. End Sub -未給定 問題 5 得 0 分，滿分 20 分 單擊窗體，產(chǎn)生20個從1到600之間的隨機(jī)整數(shù)，并以每行5個把數(shù)據(jù)顯示在窗體上，最后在窗體上顯示20個數(shù)據(jù)中的所有偶數(shù)之和。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim i As Integer, x As Integer, s as Long -未給定 3. s = 0 -未給定 4. For i = 1 To 20 -未給定 5. Randomizex = Int(600*Rnd+1)Print x;-未給定 6. If i mod 5 =0 Then Pri

17、ntIf x Mod 2 = 0 Then s = s + x-未給定 7. Next i -未給定 8. Print s=; s -未給定 9. End Sub -未給定 問題 1 得 0 分，滿分 20 分 單擊窗體，輸出下列數(shù)字圖案（行數(shù)從輸入框InputBox輸入）。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim n As Integer -未給定 3. n = InputBox(請輸入行數(shù)) -未給定 4. For i = 1 To nFor j = 1 To n-未給定 5. If j i Then -未給定 6. Print n

18、+ 1- j; -未給定 7. Else -未給定 8. Print j - i + 1; -未給定 9. End If -未給定 10. Next j -未給定 11. Print -未給定 12. Next i -未給定 13. End Sub -未給定 問題 2 得 0 分，滿分 20 分 編制Form_Click()過程，從輸入框InputBox輸入行數(shù)n(5n= 5 And n =10(-5) -未給定 5. a = 1 / (2 * i + 1)s = s + (-1) i * a-未給定 6. i = i + 1 -未給定 7. Loop -未給定 8. Print pi=; 4

19、*s -未給定 9. End Sub -未給定 問題 4 得 0 分，滿分 20 分 單擊窗體，從輸入框InputBox輸入一個整數(shù)，判斷其是否為素數(shù)。例如輸入7，則屏幕上顯示“7是素數(shù)”；如果輸入的是9則屏幕上顯示“9不是素數(shù)”。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim i As Integer, n As Integer, Prime As String -未給定 3. n = Val(InputBox(n=) -未給定 4. If n n-1 Then -未給定 9. Prime = 是素數(shù) -未給定 10. Else -未給定 1

20、1. Prime = 不是素數(shù)End If-未給定 12. End If -未給定 13. Print n & Prime -未給定 14. End Sub -未給定 問題 5 得 0 分，滿分 20 分 編制Form_Click()過程，從輸入框InputBox輸入兩個任意正整數(shù)n和m，求出它們的最大公約數(shù)，并顯示在窗體上。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim m As Integer, n As Integer, i As Integer, div As Integer -未給定 3. Do -未給定 4. m = Val(Inp

21、utBox(m=)n = Val(InputBox(n=)-未給定 5. Loop While m = 0 Or n = 0 -未給定 6. If n m Then -未給定 7. div = n -未給定 8. Else -未給定 9. div = m -未給定 10. End If -未給定 11. Do Until m Mod div = 0 And n Mod div = 0 -未給定 12. div = div + 1 -未給定 13. Loop -未給定 14. Form1.Print m; 和; n; 的最大公約數(shù)是：; div -未給定 15. End Sub -未給定 問題

22、1 得 0 分，滿分 20 分 單擊窗體，求s=1!+2!+3!+.+10!的值，并把結(jié)果顯示在窗體上。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim i As Integer, a As Long, s As Long -未給定 3. a = 1s = 0-未給定 4. For i = 1 To 10 -未給定 5. a = a * i -未給定 6. s = s + a -未給定 7. Next i -未給定 8. Print s -未給定 9. End Sub -未給定 問題 2 得 0 分，滿分 20 分 編制Form_Click過程，

23、求下列算式的值，并把結(jié)果顯示在窗體。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim i As Integer, a As Single, s As Single -未給定 3. a = 1s = 1-未給定 4. For i = 2 To 19 -未給定 5. a = (-1) (i - 1) / (i * (i + 1) -未給定 6. s = s + a -未給定 7. Next i -未給定 8. Print s -未給定 9. End Sub -未給定 問題 3 得 0 分，滿分 20 分 有30個人在用餐，其中有男士、女士和小孩；男士

24、花30元，女士花20元，小孩花了10元，30人共花了500元。單擊窗體，計算出男士、女士、小孩各有幾位，并把結(jié)果顯示在窗體上。例如“男士1 位，女士18位，小孩11位”。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim x As Integer, y As Integer, z As Integer -未給定 3. For x = 1 To 50030For y = 1 To 50020-未給定 4. z = 30 - x - y -未給定 5. If30 * x + 20 * y + 10*z = 500 Then -未給定 6. Print

25、男士 & x & 位,; 女士 & y & 位; 小孩 & z & 位 -未給定 7. End If -未給定 8. Next y -未給定 9. Next x -未給定 10. End Sub -未給定 問題 4 得 0 分，滿分 20 分 單擊窗體，輸出下列圖案（行數(shù)n從輸入框InputBox輸入）。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim n As Integer -未給定 3. n = InputBox(請輸入行數(shù)) -未給定 4. For i = 1 To nFor j = 1 To n-未給定 5. If j 0 -未給定 7

26、. Print s -未給定 8. End Sub -未給定 問題 2 得 0 分，滿分 20 分 單擊窗體，從輸入框輸入一個字符串，判斷其是否為“回文”（Wraptext）并在窗體上打印結(jié)果。“回文”是指字符串順讀與倒讀都是一樣的，如“潮起潮落，落潮起潮”。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim s As String ,n as Integer -未給定 3. s = InputBox(請輸入字符串)n = Len(s)-未給定 4. For i = 1 To n 2 -未給定 5. If Mid(s, i, 1) Mid(s, n

27、 + 1 - i, 1) Then Exit For -未給定 6. Next i -未給定 7. If i 0 -未給定 5. x = n Mod 10 -未給定 6. s = s + x -未給定 7. n = n 10 -未給定 8. Loop -未給定 9. Print s -未給定 10. End Sub -未給定 問題 2 得 0 分，滿分 20 分 編制Form_Click()過程，從輸入框InputBox輸入行數(shù)n(5n15)，然后在窗體上打印如下圖形。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim n As Integer,

28、i As Integer, j As Integer -未給定 3. Don = Val(InputBox(n=)-未給定 4. Loop Until n = 5 And n = 0.00001 -未給定 9. Print s=; s -未給定 10. End Sub -未給定 問題 4 得 0 分，滿分 20 分 編制Form_Click()過程，從輸入框InputBox輸入行數(shù)n(5n15),然后在窗體上輸出如下圖形。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim n As Integer, i As Integer, j As Integ

29、er -未給定 3. Do -未給定 4. n = Val(InputBox(n=) -未給定 5. Loop Until n = 5 And n 0 -未給定 7. Print s -未給定 8. End Sub -未給定 問題 1 得 0 分，滿分 20 分 單擊窗體，用輸入對話框InputBox輸入一個正整數(shù)n，計算n的各位數(shù)字之和并輸出在窗體上。 正確答案所選答案1. Private Sub Form_Click() -未給定 2. Dim n As Integer, x As Integer, s As Integer -未給定 3. n = Val(InputBox(n) -未給定 4. Do While