＆＃34;复位＆＃34; a For on visual basic

Question

对于一个项目，我需要创建一个小游戏，但我会变得疯狂

我的代码如下：

Public Sub Play(ByVal i As Integer, ByVal t() as Integer)

Dim n As Integer
t(i) = n

For i = 0 to 13

While n > 0
t(i + 1) = t(i + 1) + 1
n = n - 1
End While

If i + 1 > 13 Then
i = 0
End If

Next i

所以，我有14个按钮，每个按钮的数字为X，当我点击一个按钮时，他必须重置为0并在其后的X按钮上添加1。但是当我尝试使用Public Sub时，我的应用程序会冻结，所以我想我的问题就在其中......

Answer 1

这是你的问题：

If i + 1 > 13 Then
  i = 0
End If

这将始终在最后一个循环（i = 13）中将i设置为0，这就是无限循环的原因。