好吧问答库 > 我的语句哪错了？（vb）

我的语句哪错了？（vb）

我想编一个化简的程序。点了按钮以后出现了1/0是怎么回事？Private Sub Command1_Click()Dim m%, n%, r%m = Text1.Textn = Text2.TextIf n <= 0 Or m <= 0 ThenMsgBox ("输入错误")Exit SubEnd IfIf m < n Then r = m: m = n: n = rDor = m Mod nm = nn = rLoop Until r = 0 a = Str(m)Label3.Caption = m / aLabel4.Caption = n / aEnd Sub

2026年09月26日 09:00

有2个网友回答

网友（1）：

Private Sub Command1_Click()
Dim m%, n%, r%
m = Text1.Text
n = Text2.Text
If n <= 0 Or m <= 0 Then
    MsgBox "输入错误"
    Exit Sub
End If
If m < n Then r = m: m = n: n = r
Do
    r = m Mod n
    m = n
    n = r
Loop Until r = 0
Label3.Caption = Val(Text1.Text) / m
Label4.Caption = Val(Text2.Text) / m
End Sub

你的代码错在最后面的m和n早已经不是一开始的那个m和n了！！！

网友（2）：

Public Sub 化简(a As Long, b As Long)

Dim u, v As Long
If a > b Then
u = a
v = b
Else
v = a
u = b
End If
Do
r = u Mod v
u = v
v = r
Loop Until r = 0
a = a / u
b = b / u

End Sub
Private Sub Command1_Click()
Dim aa As Long, bb As Long
aa = Val(InputBox("请输入分子:"))
bb = Val(InputBox("请输入分母:"))
化简 aa, bb
MsgBox "化简后的分数是:" & aa & "/" & bb
End Sub