想让自加1的个程序怎么老是下标越界啊，i应该怎么给初值啊
Private Sub Command1_Click()
Static i As Integer
Dim q(50, 0) As Double
Combo1.AddItem i
If i <> 0 Then i = 1 Else: i = i + 1
Call shuju(q)
q(i + 1, 0) = Text1.Text
q(i + 1, 1) = Text2.Text
q(i + 1, 2) = 0
End Sub
Public Sub shuju(w)
End Sub
[此贴子已经被作者于2007-6-13 10:16:08编辑过]
2007-06-13 10:02
想让自加1的个程序怎么老是下标越界啊，i应该怎么给初值啊
Private Sub Command1_Click()
Static i As Integer
Dim q(50, 0) As Double
Combo1.AddItem i
If i <> 0 Then i = 1 Else: i = i + 1 '这一条根本不会自动加1，建义你改成I=(I+10) Mod 50
Call shuju(q)
q(i + 1, 0) = Text1.Text
q(i + 1, 1) = Text2.Text '这条肯定会越界，你上面只定义了Q(50,0),这里又用了Q(i+1,1)
q(i + 1, 2) = 0
End Sub
Public Sub shuju(w)
End Sub
[此贴子已经被作者于2007-6-13 10:29:19编辑过]
2007-06-13 10:28
2007-06-13 10:59
