作业帮用vb设计一个求两个数最大公约数的函数过程
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/12 12:24:21
x){>eEYҋu^[dGÓ mlzc 1uó9
O,ںe@Y-O/?_mTO~;]XWZ&XM0IP' ]E-_PZ_b&?m]uۓ k.zgS ֕CW2s$ +*|S nWI ) &0#(3D!ZAɎ>%k< а9!@c= (&$ف" kk&
用vb设计一个求两个数最大公约数的函数过程
用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