VB，实时错误 9 下标越界，我快疯了。。

Question

ServerIp(1) = "01.icehao.cn"
ServerIp(2) = "02.icehao.cn"
ServerIp(3) = "03.icehao.cn"
ServerIp(4) = "04.icehao.cn"
ServerIp(5) = "05.icehao.cn"
ServerIp(6) = "06.icehao.cn"
ServerIp(8) = "07.icehao.cn"
ServerIp(9) = "08.icehao.cn"
ServerIp(0) = "09.icehao.cn"
ServerIp(10) = "10.icehao.cn"
Combo1.ListIndex = 0
T1 = 1
'StartUrl "http://211.140.138.39/update/ver.txt", 2, ""
P1.Visible = FalseEnd Sub这串代码，也不知道什么回事
每运行到ServerIp(5) = "05.icehao.cn"时就提示小标越界。
但是如果是把ServerIp(5)和ServerIp(5)以下的五行都去掉，只保留ServerIp(5)以上的几行，就不会有这个错误。。哪位大大教教我是怎么回事？该如何改？

Answer 1

找到 ServerIp的 定义语句 修改下就好了

Answer 2

感觉是你定义 serverIP数组有问题

Answer 3

對，找到serverIP（）,改成serverIP(1 to 10)應該就可以了吧

Answer 4

錯了應該是serverIP(0 to 10)

Answer 5

汗.....ServerIp()这个数组在哪里定义的?

Answer 6

我昨天刚刚遇到的这个问题，你的数组ServerIp肯定只定义了0-4，将dim ServerIp(4) as string(打比方)改为dim ServerIp(10) as string就可以了，不过应该有ServerIp（0）的。

Answer 7

可以这样Private Sub Command1_Click()
Dim serverip() As String
Dim cs As Integer
Dim i As Integer
cs = 10
For i = 1 To cs
ReDim Preserve serverip(i)
serverip(i) = i & ".icehao.cn"
Print serverip(i)
Next
End Sub

Answer 8

Dim ServerIp    As Variant
    
    ServerIp = Array("01.icehao.cn", "02.icehao.cn", ... "10.icehao.cn")