求一vb程序。编一求两数m n最大公约数的函数过程；主调程序在两个文本框接受输入数据
答案:2 悬赏:50 手机版
解决时间 2021-03-05 23:15
- 提问者网友：不爱我么
- 2021-03-05 16:43
求一vb程序。编一求两数m n最大公约数的函数过程；主调程序在两个文本框接受输入数据
最佳答案
- 五星知识达人网友：摆渡翁
- 2021-03-05 18:23
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
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
全部回答
- 1楼网友：雾月
- 2021-03-05 19:56
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯