Question

求助VB编程！

完整的！！

利用Inputbox函数输入2个正整数，求其最小公倍数，结果用Msgbox函数显示。

Answer 1

Dim a As Integer, b As Integer, zxgb As Integer
a = InputBox("数据1", "请输入正整数数据1")
b = InputBox("数据2", "请输入正整数数据2")
zxgb = a
Do
If zxgb Mod a = 0 And zxgb Mod b = 0 Then
Exit Do
Else
zxgb = zxgb + a
End If
Loop
MsgBox a & "和" & b & "的最小公倍数为：" & zxgb

追问

我复制上去后 无效外部程序什么意思？

追答

完全复制到form_load里

Answer 2

忘记了，以前会，等高人教你