这段程序怎么错了阿？

Question

Dim info As String
Dim temp() As String
Dim a() As String
Dim b() As String
Dim i As Integer
Dim sname As String
Dim shome As String
sckServer(Index).GetData info, vbStringinfo = Left(info, Len(info) - 1)
temp = Split(info, "*")   '这时候temp="黄永河*Y1101*茄汁香肠炒饭(5元)*腊味炒饭(5元)"
sname = temp(0)  '记录名字
shome = temp(1)  '记录宿舍'下面是记录点餐订单和价钱
For i = 2 To UBound(temp) - 1
a(i) = Left(temp(i), InStr(temp(i), "饭"))
b(i) = Mid(temp(i), Len(temp(i)) - 2, 1)
Next i程序运行到a(i) = Left(temp(i), InStr(temp(i), "饭"))时提示下标越界，请问怎么回事呢？

Answer 1

将断点放到for循环，看看i在最大和最小值的时候是否越界

Answer 2

For i = 2 To UBound(temp) - 1 有问题吧
设置断点跟踪测试

Answer 3

数组a、b没有 redim，空数组当然下标越界