Private Sub Form_Click()
n = InputBox("")
ReDim x(1 To n) As Integer
For i = 1 To n
x(i) = InputBox("")
Next i
t = x(1)
For j = 1 To 20
For i = 2 To n
If t Mod x(i) <> 0 Then Exit For
Print t
Next i
If i >= n Then Exit For ******
If i < n Then t = t + x(1) &&&&
Next j
Print t
End Sub
以上代码
题目是输入N个数,输出其最小公倍数,然而*语句条件成立也不执行,&语句条件不成立也执行。这是什么情况?求指教(F8已试)
n = InputBox("")
ReDim x(1 To n) As Integer
For i = 1 To n
x(i) = InputBox("")
Next i
t = x(1)
For j = 1 To 20
For i = 2 To n
If t Mod x(i) <> 0 Then Exit For
Print t
Next i
If i >= n Then Exit For ******
If i < n Then t = t + x(1) &&&&
Next j
Print t
End Sub
以上代码
题目是输入N个数,输出其最小公倍数,然而*语句条件成立也不执行,&语句条件不成立也执行。这是什么情况?求指教(F8已试)
