在文本框text1,text2中输入两个正整数,单击"计算"命令按钮,求这两个数的最大公约数 5
1个回答
展开全部
在VB中在计算两个正整数的最大公约数，效率最高的是采用“辗转相除法”。以除数和余数反复做除法运算，当余数为 0 时，取当前算式除数为最大公约数。
Dim a As Long, b As Long, r As Long
a = InputBox("a=")
b = InputBox("b=")
Print a; "和"; b; " 的最大公因数是：";
Do
r = a Mod b
If r = 0 Then Exit Do
a = b
b = r
Loop While True
Print b
Dim a As Long, b As Long, r As Long
a = InputBox("a=")
b = InputBox("b=")
Print a; "和"; b; " 的最大公因数是：";
Do
r = a Mod b
If r = 0 Then Exit Do
a = b
b = r
Loop While True
Print b
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
