UC知道我的程序在那里出错了？
来源：百度知道 编辑：UC知道 时间：2024/06/06 15:17:06
Private Sub Form_Click()
Static c As Integer
Dim i As Integer
For i = 1 To 9
c = 1
Print Tab(18); i;
While i <> 0
Print Tab(2 * (10 - i)); c;
Print Tab(2 * (8 + i)); c;
i = i - 1
c = c + 1
Wend
Print
Next i
End Sub
它会形成一个溢出的死循环！各位帮忙解决下！
Static c As Integer
Dim i As Integer
For i = 1 To 9
c = 1
Print Tab(18); i;
While i <> 0
Print Tab(2 * (10 - i)); c;
Print Tab(2 * (8 + i)); c;
i = i - 1
c = c + 1
Wend
Next i
End Sub
它会形成一个溢出的死循环！各位帮忙解决下！
I是For循环的循环变量，是不能改变它的值的，但你在While循环中改变了这个值，while循环成了一个死循环。可以把While循环的I变量改成其它的变量，把i的值赋给它就行了。
是不是你是思路有问题