查人人中国名人网成都到七里坪:谁有VB的简单程序设计(急)
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 23:29:19
例:求最小公倍数......
请在10:20之前回答
请在10:20之前回答
我打的那么辛苦，多给点分!
Private Sub Form_Load()
Form1.AutoRedraw = True
Dim n1%, m1%, m%, n%, r%
n1 = InputBox("输入n1")
m1 = InputBox("输入m1")
If m1 > n1 Then '为了求最小公倍数，增加m,n变量
m = m1: n = n1
Else
m = n1: n = m1
End If
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
Print n1; ","; m1; "的最大公约数为"; n
Print "最小公倍数=", m1 * n1 / n
End Sub
最小公倍数是什么？有点乱了，太久没有用过了