Question

信息技术vb操作题

运行的时候它说“除数为零”
要修改哪一处呢？





Answer 1

Private Sub Command1_Click()
    Dim m As Long
    Dim n As Long
    Dim r As Integer
    m = Val(Text1)
    n = Val(Text2)
    On Error GoTo err
    r = m Mod n
    Do While r <> 0
        m = n
        n = r
        r = m Mod n
    Loop
    Text3 = Str(n)
err:
End Sub

 Or

Answer 2

Private Sub Command1_Click()
Dim m As Long
Dim n As Long
Dim r As Integer
m = Val(Text1)
n = Val(Text2)
r = m Mod n '在n为0时这里就会出错，应为n当除数无意义
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Text3 = Str(n)
End Sub
'你可以改成
Private Sub Command1_Click()
Dim m As Long
Dim n As Long
Dim r As Integer
m = Val(Text1)
n = Val(Text2)
If n > 0 Then '添加判断语句判断n值是否大于0，小于0时进行警告。
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Text3 = Str(n)
Else
MsgBox "请大于0的除数值"
Text2.SetFocus 'Text2获得焦点
End If
End Sub
请采纳！谢谢！

追问

编译错误，参数不可选

Answer 3

Private Sub Command1_Click()
Dim m As Long, n As Long, r As Integer
m = Val(Text1)
n = Val(Text2)
If n <> 0 Or m <> 0 Then '参数不能同时为0
If n = 0 And m > 0 Then
n = m
m = 0
End If
r = m Mod n '此处0不能做除数
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Text3 = CStr(n)
Else
MsgBox "参数不得同时为0！"
End If
End Sub

追问

编译错误：参数不可选

追答

这一段代码我编译过了，没有发生编译错误问题。

Answer 4

就当没说路过