Print \字符个数为：\数字个数为：\ Print \空格个数为：\其它个数为：\End Sub 答案：
=======(答案1)=======
Open App.Path & \=========或=========
Open \
=======(答案2)======= Do Until EOF(1) =========或========= Do While Not EOF(1)
=======(答案3)=======
ElseIf C >= \第56题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：输出40以内能够被3整除的数，要求输出结果为 ' 5个数一行。
'------------------------------------------------ Option Explicit
Private Sub Form_Click() Cls
Dim x As Integer Dim i As Integer
'**********FOUND********** i = 1
For x = 1 To 40
If (x / 3) = (x \\ 3) Then '**********FOUND********** Print x i = i + 1 End If
If i Mod 5 = 0 Then Print End If
'**********FOUND********** step i End Sub 答案：
=======(答案1)======= i = 0
=======(答案2)======= Print x ;
=========或========= ? x ;
=======(答案3)======= Next x
=========或========= Next
第57题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：用InputBox函数输入一个字符串，编写程序按与 ' 输入的字符相反的次序用Msgbox函数输出这个字 ' 符串。如输入字符串为\，则输出为\' gfedcba\，输出效果如图1。
'------------------------------------------------ Option Explicit
Private Sub Command1_Click()
Dim pristr As String, outstr As String Dim i As Integer
pristr = InputBox(\ '**********FOUND********** For i = 0 To Len(pristr) '**********FOUND**********
outstr = outstr + Mid(pristr, Len(pristr) - i) Next i
'**********FOUND**********
MsgBox outstr, , \End Sub
答案：
=======(答案1)======= For i = 0 To Len(pristr) - 1 =========或========= For i = 0 To -1+Len(pristr)
=======(答案2)=======
outstr = outstr + Mid(pristr, Len(pristr) - i, 1) =========或=========
outstr = Mid(pristr, Len(pristr) - i, 1)+outstr
=======(答案3)=======
MsgBox outstr, vbQuestion, \第59题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：下面的程序用来产生并输出图示的杨辉三角。 ' 1 ' 1 1 ' 1 2 1 ' 1 3 3 1 ' 1 4 6 4 1 ' 1 5 10 10 5 1
'------------------------------------------------ Option Explicit
Public 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 i
End Sub
Public Sub printf(a() As Integer, n As Integer) Dim i, j As 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 Print End Sub
Private 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 第60题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：用辗转相除法求两个整数的最大公约数。
'------------------------------------------------ Option Explicit
Function 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 = r End Function
Private Sub Form_Click()
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, c End Sub 答案：
=======(答案1)======= m = n
=======(答案2)======= gcd = n
=======(答案3)======= c = gcd(a, b) 第65题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目:输入两个正整数m和n，求其最大公约数。
'------------------------------------------------ Option Explicit
Private Sub Form_Click()