请高手看看我写的这段代码哪里有问题,它老是说下标越界,实时错误9.小的不胜感激!!!

主要是下面显示的红色代码有问题.


Dim a(1 To 3) As Date

Private Sub cmdInp_Click()
For i = 1 To 3

a(i) = InputBox("输入日期", "输入框")
pic1.Print a(i)
Next i


End Sub
Private Sub cmdDpy_Click()


For i = 1 To 2
For j = i + 1 To 3

Max = i
If a(j) > a(Max) Then Max = j
t = a(i)
a(i) = a(Max)
a(Max) = t

Next j



Next i

For i = 1 To 3


pic2.Print a(i)

Next i

End Sub



Private Sub cmdSta_Click()
Dim b(1 To 12) As Integer


For j = 1 To 12


If j = Month(Val(a(i))) Then b(j) = b(j) + 1


Next j


For j = 1 To 12
pic3.Print ""; j; "月出现"; b(j); "次";

Next j

End Sub

If j = Month(Val(a(i))) Then b(j) = b(j) + 1
i没定义

For j = 1 To 12
For i = 1 To 3
If j = Month(a(i)) Then b(j) = b(j) + 1
Next i
Next j
另外那个val()是不是应该去掉

为什么会出现下标越界呢
因为你的a(i)的下标是1-3，也就是说，你只能用A(1),a(2),a(3)这三个数组变量
但是你的程序中cmdSta_Click里没有定义i
VB默认i=0
你执行到那条指令时，出现a(0)这个数组元素
所以系统报错
程序中看不出这个语句的意义
If j = Month(Val(a(i))) Then b(j) = b(j) + 1

i没有定义 把i定义为1就可以了

同意4楼的建议。

555....好感动哦^^谢谢大家的热心~~~
2搂的修改是对的.除了定义i,还要把val()去掉.
4楼的分析非常透彻,非常好懂.
不管怎么样,非常感谢你们.你们真好.
五一到了,节日快乐哦~~~~

谢谢你为我指正.你说对了,除了定义i,还得把val()去掉.
五一快乐^-^