用vb编代码．．

来源：百度知道 编辑：UC知道 时间：2024/05/22 00:00:40
编写程序实现计算两个数的最大公约数和最小公倍数，并输出．．．
急！！！
另外有加分．．．．．．．

窗口上加 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