1、第57題 （1.0分） 題號:465'-'【程序改錯】'-'題目：用InputBox函數輸入一個字符串，編寫程序按與' 輸入的字符相反的次序用Msgbox函數輸出這個字' 符串。如輸入字符串為"abcdefgh"，則輸出為"h' gfedcba"，輸出效果如圖1。'-Option ExplicitPrivate Sub Command1_Click() Dim pristr As String, outstr As String Dim i As Integer pristr = Input

2、Box("please input a string") '*FOUND* For i = 0 To Len(pristr) '*FOUND* outstr = outstr + Mid(pristr, Len(pristr) - i) Next i '*FOUND* MsgBox outstr, , "The Output Result "End Sub答案：=(答案1)=For i = 0 To Len(pristr) - 1=或=For i = 0 To -1+Len(pristr)=(答案2)=outstr = outst

3、r + Mid(pristr, Len(pristr) - i, 1)=或=outstr = Mid(pristr, Len(pristr) - i, 1)+outstr=(答案3)=MsgBox outstr, vbQuestion, "The Output Result "第59題 （1.0分） 題號:147'-'【程序改錯】'-'題目：下面的程序用來產生并輸出圖示的楊輝三角。' 1' 1 1' 1 2 1' 1 3 3 1' 1 4 6 4 1' 1 5 10 10 5 1'-Op

4、tion ExplicitPublic Sub readin(a() As Integer, n As Integer) Dim i, j As Integer For i = 1 To n'*FOUND* a(i, n) = 1 a(i, 1) = 1 Next i For i = 3 To n'*FOUND* For j = 2 To n a(i, j) = a(i - 1, j) + a(i - 1, j - 1) Next j Next iEnd SubPublic Sub printf(a() As Integer, n As Integer) Dim i, j As

5、 Integer For i = 1 To n'*FOUND* For j = 1 To n Print Tab(5 * j + 10); a(i, j); Next j Print Next i PrintEnd SubPrivate Sub Form_Click() Dim x(10, 10) As Integer Call readin(x(), 6) Call printf(x(), 6)End Sub答案：=(答案1)=a(i, i) = 1=(答案2)=For j = 2 To i - 1=或=For j = 2 To -1 + i=(答案3)=For j = 1 To i

6、第60題 （1.0分） 題號:146'-'【程序改錯】'-'題目：用輾轉相除法求兩個整數的最大公約數。'-Option ExplicitFunction gcd(ByVal m As Integer, ByVal n As Integer) As Integer Dim r As Integer r = m Mod n Do While r <> 0'*FOUND* n = m n = r r = m Mod n Loop'*FOUND* gcd = rEnd FunctionPrivate Sub Form_Click()

7、Dim a As Integer, b As Integer, c As Integer a = InputBox("輸入一個整數") b = InputBox("輸入一個整數") a = Val(a) b = Val(b)'*FOUND* Call gcd(a, b) Print a, b, cEnd Sub答案：=(答案1)=m = n=(答案2)=gcd = n=(答案3)=c = gcd(a, b)第65題 （1.0分） 題號:492'-'【程序改錯】'-'題目:輸入兩個正整數m和n，求其最大公約數。

8、9;-Option ExplicitPrivate Sub Form_Click() Dim m As Integer, n As Integer, r As Integer m = InputBox("輸入m的值：") n = InputBox("輸入n的值：") Do While n <> 0 '*FOUND* r = m / n m = n '*FOUND* n = m Loop '*FOUND* Print "兩數的最大公因子為：" nEnd Sub答案：=(答案1)=r = m Mod n

9、=(答案2)=n = r=(答案3)=Print "兩數的最大公因子為:" m第66題 （1.0分） 題號:467'-'【程序改錯】'-'題目：從計算機輸入三個數 , 找出中間數'-Option ExplicitPrivate Sub FindMidNum() Dim x As Integer, y As Integer, z As Integer, A As Integer x = InputBox("PLEASE INPUT THE FIRST NUMBER") y = InputBox("PLEAS

10、E INPUT THE SECOND NUMBER") z = InputBox("PLESSE INPUT THE THIRD NUMBER") '*FOUND* If x > y Then A = x x = y y = A End If '*FOUND* If y = z Then Print y '*FOUND* ElseIf x = z Then Print z Else Print x End IfEnd SubPrivate Sub Form_Click() FindMidNumEnd Sub答案：=(答案1)=If x

11、 < y Then=或=If y > x Then=(答案2)=If y >= z Then=或=If z <= y Then=(答案3)=ElseIf x >= z Then=或=ElseIf z <= x Then第70題 （1.0分） 題號:142'-'【程序改錯】'-'題目：程序功能根據輸入的學習成績,分別顯示優秀' (90分以上), 良好(75分以上),及格(60分以上)' 不及格四個等級.'-Option ExplicitPrivate Sub Form_Click()ClsDim i As

12、 Integeri = InputBox("請輸入學習成績")Select Case i'*FOUND* Case 0 < i < 100 MsgBox "成績應該在0-100之間"""'*FOUND* Case 90 Print "優秀" Case 75 To 89 Print "良好" Case 60 To 74 Print "及格" '*FOUND* Case MsgBox "不及格", vbCriticalEnd

13、 SelectEnd Sub答案：=(答案1)=Case is>100 ,is<0 =或= case is<0 ,is>100=(答案2)=Case 90 to 100=(答案3)=Case else第71題 （1.0分） 題號:473'-'【程序改錯】'-'題目:下列程序進行-n階乘運算，當階乘的值超過-21147483648 溢出報錯，并將結果輸出為-1。'-Option Explicit'*FOUND*Private Function jc(ByVal n As Integer) As Integer Dim I A

14、s Integer Dim result As Long result = 1 I = 1 Do While I <= n If result < 2114748348 / I Then '*FOUND* result = result I = I + 1 Else lblerr.Caption = "溢出" '*FOUND* jc = -I Exit Function End If Loop jc = -resultEnd FunctionPrivate Sub Form_Click() MsgBox jc(3)End Sub答案：=(答案1)

15、=Private Function jc(ByVal n As Integer) As Long=(答案2)=result = result * I=或=result = I * result=(答案3)=jc = -1第72題 （1.0分） 題號:145'-'【程序改錯】'-'題目：該程序的功能是求出100到200之間的全部素數，' 并且按每行4個、每個數據之間有10個空格的格' 式輸出。'-Option ExplicitPrivate Sub Form_Click() Dim k As Integer, i As Integer, j

16、 As Integer k = 0 For i = 100 To 200'*FOUND* For j = 1 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then'*FOUND* Print i; Tab(10); k = k + 1'*FOUND* If k Mod 5 = 0 Then Print ; End If Next iEnd Sub答案：=(答案1)=For j = 2 To i - 1=或=For j = 2 To -1 + i=(答案2)=Print i; Space(10);=或=Pri

17、nt i; Spc(10);=(答案3)=If k Mod 4 = 0 Then Print=或=If 0 = k Mod 4 Then Print=或=if k/4 = k 4 then Print=或=if k4 = k/4 then Print=或=if k/4 = int(k/4) then Print第73題 （1.0分） 題號:132'-'【程序改錯】'-'題目：求s=2!+4!+6!+8!，階乘的計算用Function過程' fact實現'-Option ExplicitPrivate Sub Form_Click()Dim i A

18、s Integer, s As Long'*FOUND*For i = 2 To 8 s = s + fact(i)Next iPrint sEnd Sub'*FOUND*Public Function fact()Dim t As LongDim i As Integert = 1For i = 1 To nt = t * iNext i'*FOUND*fact = iEnd Function答案：=(答案1)=For i = 2 To 8 Step 2=(答案2)=Public Function fact(ByVal n As Integer)=或=Public F

19、unction fact(n As Integer)=或=Public Function fact(n%)=或=Public Function fact(n)=或=Public Function fact(ByVal n%)=或=Public Function fact(ByVal n)=(答案3)=fact = t第76題 （1.0分） 題號:479'-'【程序改錯】'-'題目:下面的程序用“冒泡”法完成數組a中的10個整數' 按升序排列，請修正程序中錯誤。'-Option ExplicitPrivate Sub Command1_Click(

20、) Dim a Dim i As Integer, j As Integer, a1 As Integer a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83) For i = 1 To 9 '*FOUND* For j = i To 9 '*FOUND* If a(j) >= a(i) Then a1 = a(i) a(i) = a(j) '*FOUND* a(j) = a(i) End If Next j Next i For i = 0 To 9 Print a(i) Next iEnd Sub答案：=(答案1)

21、=For j = i + 1 To 9=或=For j = 1 + i To 9=(答案2)=If a(i) >= a(j) Then=(答案3)=a(j) = a1第77題 （1.0分） 題號:490'-'【程序改錯】'-'題目:輸入一個字符串，將所有的小寫字母都轉換為大寫字母。'-Option ExplicitPrivate Sub Form_Click() Dim s1 As String, s2 As String, i As Integer, t As String s1 = InputBox("輸入字符串，#號結束"

22、) i = 1 '*FOUND* s1 = Mid(s1, i, 1) While t <> "#" '*FOUND* If t >= "a" And t <= "z" Then t = Chr(Asc(t) - 30) s2 = s2 + t i = i + 1 t = Mid(s1, i, 1) Wend '*FOUND* Print "新字符串為：" s1End Sub答案：=(答案1)=t = Mid(s1, i, 1)=(答案2)=If t >= &q

23、uot;a" And t <= "z" Then t = Chr(Asc(t) - 32)=(答案3)=Print "新字符串為:" s2第79題 （1.0分） 題號:487'-'【程序改錯】'-'題目:設窗體中有圖片框Pic1，現要求在其中繪制10個同心圓，' 然后將此圖以Test.BMP作文件名存入磁盤。'-Option ExplicitPrivate Sub Command1_Click() Dim X As Integer Dim Y As Integer Dim I As Inte

24、ger Dim rad(9) As Integer X = Pic1.ScaleWidth / 2 Y = Pic1.ScaleHeight / 2 '*FOUND* For I = 1 To 9 rad(I) = 500 * Rnd Next I I = 9 '*FOUND* Do Until I < 1 Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) '*FOUND* I = I + 1 Loop SavePicture Pic1.Image, "Test.BMP&qu

25、ot;End Sub答案：=(答案1)=for i=0 to 9 =或= for i=0 to 9 step 1=(答案2)=Do Until I < 0 =或= do until 0>i=(答案3)=I = I - 1 =或= i=-1+i第80題 （1.0分） 題號:460'-'【程序改錯】'-'題目：已知C的公式表示如下:' n!' C=-' (n-m)!*m! '函數過程fac( )求k！函數,在Fomr_Click事件中完成運算，'請修正程序中錯誤。'-Option ExplicitPriva

26、te Function fac(k As Integer) As Single Dim x As Single, j As Integer '*FOUND* x = 0 For j = 1 To k '*FOUND* x = x j Next j fac = xEnd FunctionPrivate Sub Form_Click() Dim C As Single Dim m As Integer, n As Integer m = Val(InputBox("請輸入一個整數(m)：") n = Val(InputBox("請輸入一個整數(n)：") '*FOUND* C = fac(n) / fac(n - m) * fac(m) Print "