y = 0.7 * x
Else If End If End If End If
Text2.Text = x End Sub 答案：
=======(答案1)======= y = x
=======(答案2)======= End If
=======(答案3)======= Text2.Text = y
=========或========= Text2 = y
第52题 （1.0分） 题号:450
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：统计一顺序文件text.txt中的空格、字母、数字和其它字符个数。 '------------------------------------------------ Option Explicit
Private Sub Command1_Click() Dim s As String, C As String
Dim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer, other As Integer
Open App.Path & \
Do Until EOF(0) Line Input #1, s L = Len(s) For I = 1 To L
C = Mid(s, I, 1)
If C >= \ character = character + 1 ElseIf C = \ spac = spac + 1
ElseIf C >= \ digit = digit + 1 Else
other = other + 1 End If Next I Loop
Close #1
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分） 题号:138
'------------------------------------------------ '【程序改错】
'------------------------------------------------ '题目：输出40以内能够被3整除的数，要求输出结果为 ' 5个数一行。
'------------------------------------------------ Option Explicit
Private Sub Form_Click() Cls
Dim x As Integer Dim i As Integer i = 1
For x = 1 To 40
If (x / 3) = (x \\ 3) Then Print x i = i + 1 End If
If i Mod 5 = 0 Then Print End If step i End Sub 答案：
=======(答案1)======= i = 0
=======(答案2)======= Print x ;
=========或========= ? x ;
=======(答案3)======= Next x
=========或========= Next
第57题 （1.0分） 题号:465
'------------------------------------------------ '【程序改错】
'------------------------------------------------ '题目：用InputBox函数输入一个字符串，编写程序按与 ' 输入的字符相反的次序用Msgbox函数输出这个字 ' 符串。如输入字符串为\，则输出为\' gfedcba\，输出效果如图1。
'------------------------------------------------ Option Explicit
Private Sub Command1_Click()
Dim pristr As String, outstr As String Dim i As Integer
pristr = InputBox(\
For i = 0 To Len(pristr)
outstr = outstr + Mid(pristr, Len(pristr) - i) Next i
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分） 题号:147
'------------------------------------------------ '【程序改错】
'------------------------------------------------ '题目：下面的程序用来产生并输出图示的杨辉三角。 ' 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
a(i, n) = 1 a(i, 1) = 1 Next i
For i = 3 To n 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 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分） 题号:146
'------------------------------------------------ '【程序改错】
'------------------------------------------------ '题目：用辗转相除法求两个整数的最大公约数。
'------------------------------------------------ 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 n = m n = r
r = m Mod n Loop 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) Call gcd(a, b) Print a, b, c End Sub 答案：
=======(答案1)======= m = n
=======(答案2)======= gcd = n
=======(答案3)======= c = gcd(a, b)
第65题 （1.0分） 题号:492
'------------------------------------------------ '【程序改错】
'------------------------------------------------ '题目:输入两个正整数m和n，求其最大公约数。
'------------------------------------------------ Option Explicit
Private Sub Form_Click()
Dim m As Integer, n As Integer, r As Integer m = InputBox(\输入m的值：\ n = InputBox(\输入n的值：\ Do While n <> 0
r = m / n m = n
n = m Loop
Print \两数的最大公因子为：\End Sub 答案：
=======(答案1)======= r = m Mod n
=======(答案2)======= n = r
=======(答案3)=======
Print \两数的最大公因子为:\第66题 （1.0分） 题号:467
'------------------------------------------------ '【程序改错】
'------------------------------------------------