输入两个正整数,求最大公约数。用VB写出代码
来源:百度知道 编辑:UC知道 时间:2024/05/10 09:01:29
Private Sub Command1_Click()
m = Val(inputbox("第一个数:")): n = Val(inputbox("第二个数:"))
If n > m Then
t = m: m = n: n = t
End If
r = m - n
Do While r > 0
If n < r Then
t = n: n = r: r = t
End If
m = n: n = r: r = m - n
Loop
Print n
End Sub