在文本框text1,text2中输入两个正整数,单击"计算"命令按钮,求这两个数的最大公约数

Question

如题所述

Answer 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