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 \两数的最大公因子为：\End Sub 答案：
=======(答案1)======= r = m Mod n
=======(答案2)======= n = r
=======(答案3)=======
Print \两数的最大公因子为:\第66题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：从计算机输入三个数 , 找出中间数
'------------------------------------------------ Option Explicit
Private Sub FindMidNum()
Dim x As Integer, y As Integer, z As Integer, A As Integer x = InputBox(\ y = InputBox(\ z = InputBox(\ '**********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 If End Sub
Private Sub Form_Click() FindMidNum End Sub 答案：
=======(答案1)======= If x < 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分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：程序功能根据输入的学习成绩,分别显示优秀 ' (90分以上), 良好(75分以上),及格(60分以上) ' 不及格四个等级.
'------------------------------------------------
Option Explicit
Private Sub Form_Click() Cls
Dim i As Integer
i = 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 \不及格\End Select End Sub 答案：
=======(答案1)======= Case is>100 ,is<0 =========或========= case is<0 ,is>100
=======(答案2)======= Case 90 to 100
=======(答案3)======= Case else
第71题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目:下列程序进行-n阶乘运算，当阶乘的值超过-21147483648 溢出报错，并将结果输出为-1。
'------------------------------------------------ Option Explicit
'**********FOUND**********
Private Function jc(ByVal n As Integer) As Integer Dim I As 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 = -result End Function
Private Sub Form_Click() MsgBox jc(3) End Sub 答案：
=======(答案1)=======
Private Function jc(ByVal n As Integer) As Long
=======(答案2)======= result = result * I =========或========= result = I * result
=======(答案3)======= jc = -1
第72题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：该程序的功能是求出100到200之间的全部素数， ' 并且按每行4个、每个数据之间有10个空格的格 ' 式输出。
'------------------------------------------------ Option Explicit
Private Sub Form_Click()
Dim k As Integer, i As Integer, j 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 i End Sub 答案：
=======(答案1)======= For j = 2 To i - 1 =========或========= For j = 2 To -1 + i
=======(答案2)======= Print i; Space(10); =========或========= Print 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 k\\4 = k/4 then Print =========或=========