请问循环语句
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim a As Integer, b As Integer, r As Integer
m = Val(InputBox("please enter first number:"))
n = Val(InputBox("please Enter second number:"))
a = m: b = n
Do
r = a Mod b
a = b
b = r
Loop Until r = 0
Debug.Print m; "和"; n; "最大公约数是:"; a
End Sub
请问除了command 控件，还需什么控件?
显示在立即窗口中。估计你没有打开。