编写程序实现计算两个数的最大公约数和最小公倍数，并输出．．．
急！！！
另外有加分．．．．．．．
參考答案:窗口上加 text1,text2两个输入文本框，确定按钮command1
Dim a%, b%, r%, maxv%, minv%
Private Sub Command1_click()
Me.Cls
'最大公约数
a = Val(Text1.Text)
b = Val(Text2.Text)
maxv = IIf(a > b, a, b)
minv = IIf(a < b, a, b)
Do
r = maxv Mod minv: maxv = minv: minv = r
Loop While (r <> 0)
'最小公倍数
minv = a * b / maxv
Print "最大公约数 =" & Str(maxv) & Space(2) & "最小公倍数=" & Str(minv)
End Sub
