Question

VB一个很简单的小程序，老说我下标越界。我也不知道哪里错了😂😂求大神帮忙看看。

每次船号输入超过10的数字就提示下标越界。但我想达到的目的是比如输入"船A1"等一艘船的信息，然后点击输入就输入了数据。





Answer 1

n = n - 1
改为
n = n + 1

Answer 2

其中的：n=n-1
似乎应该为 n=n+1 ?

追问

应该不是吧？我出问题的地方在commond1-click那里😂😂，我一输入船号，点击输入，就跳出来下标越界，然后黄色的提示就会显示在.name＝Text1那里

追答

你要是复制代码贴上来的话，还可以运行调试，现在光看很困难的。

追问

Option Explicit
Private Type ShiType
Name As StringUse As String * 5
Telephone As String
Departure As String
Return As String
End Type
Dim shi(10) As ShiType
Dim n%

追答

你那个 Command1_Click()的没有呢？