用vb设计一个求两个数最大公约数的函数过程

用vb设计一个求两个数最大公约数的函数过程

Dim m As Integer
Dim n As Integer
Dim r As Integer
Dim a As Integer,b As Integer
m = InputBox("请输入其中的一个正整数")
n = InputBox("请输入另一个正整数")
a = m
b = n
r = a Mod b
Do While r 0
a = b
b = r
r = a Mod b
Loop
Print m; "与"; n; "这两个正整数的最大公约数为："; b
End Sub