求一vb程序。编一求两数m n最大公约数的函数过程；主调程序在两个文本框接受输入数据

求一vb程序。编一求两数m n最大公约数的函数过程；主调程序在两个文本框接受输入数据

Private Sub Command1_Click()
Dim m As Long, n As Long
n = Val(Text1.Text)
m = Val(Text2.Text)
If m * n = 0 Then
MsgBox "两数不能为0!"
Else
MsgBox Text1.Text & "," & Text2.Text & "最大公约数为" & aa(m, n)
End If
End Sub
Private Function aa(m As Long, n As Long) As Long
Dim r As Long

Do
r = m Mod n
m = n: n = r
Loop While r <> 0
aa = m
End Function

Private Sub Command1_Click() 
n = Val(Text1.Text) 
m = Val(Text2.Text) 
If m * n = 0 Then MsgBox "两数不能为0!" 
If m < n Then 
t = m: m = n: n = t 
End If 
Do 
r = m Mod n 
m = n: n = r 
Loop While r <> 0 
Text3.Text = m 
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息