作业帮 > 综合 > 作业

VB程序 利用输入对话框输入两个正整数,求最大公约数.

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/25 09:15:32
VB程序 利用输入对话框输入两个正整数,求最大公约数.
学的VB程序,编一程序:利用输入对话框输入两个正整数,求最大公约数.
VB程序 利用输入对话框输入两个正整数,求最大公约数.
Private Sub Command1_Click()
Dim m As Long,n As Long,r As Long,x As Long,y As Long
m = Val(InputBox("M=")):x = m
n = Val(InputBox("N=")):y = n
r = m Mod n
While r 0
m = n
n = r
r = m Mod n
Wend
MsgBox (x & " 和 " & y & " 的最大公约数是:" & n)
End Su