一个VB的小程序谁帮忙看下

Private Sub Command1_Click()
Dim m, n, nm, t, r
m = InputBox("m=")
n = InputBox("n=")
nm = n * m
If m < n Then t = m: m = n: n = t
r = m Mod n
Do While (r <> 0)
m = n
n = r
r = m Mod n
Loop
Form1.Print "最大公约数=", n
Form1.Print "最小公倍数=", nm / n

End Sub

将 Form 的 AutoRedraw 设置为 True

m = InputBox("m=")
n = InputBox("n=")
nm = n * m
If m < n Then t = m: m = n: n = t
r = m Mod n
Do While (r <> 0)
m = n
n = r
r = m Mod n
Loop
Form1.Show
Form1.Print "最大公约数=", n
Form1.Print "最小公倍数=", nm / n

将 Form1 的 AutoRedraw 设置为 True

在开头加上
Form1.autoredraw=true

不然的话
可以改成
debug.Print "最大公约数=", n
debug.Print "最小公倍数=", nm / n
然后在“立即”查看