Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 3 n = n + 3 If i > 10 Then Exit For Next Text1.Text = Str(n)End Sub
你错了。。。
1、是啊,cashflowgame的为正解,忘记了FOR中循环变量的递增操作了,抱歉。2、变量改变肯定会影响循环次数。