VB下标越界问题？

[lcy1069]

Sub DelCai()
Dim K As Integer
Dim R1, R2, C1, C2 As Integer
ShuLiang = Val(SLInput.Text1.Text)
R1 = Form_CreateCaiDan.MFG_CaiList.Row
C1 = Form_CreateCaiDan.MFG_CaiList.Col
R2 = Form_CreateCaiDan.MFG_CaiDan.Row
C2 = Form_CreateCaiDan.MFG_CaiDan.Col

Form_CreateCaiDan.MFG_CaiDan.Text = ""
K = (R2 - 1) * 4 + (C2 - 1)
Cai(K, 0) = 0
Cai(K, 1) = ""
Cai(K, 2) = 0
Cai(K, 3) = 0
Cai(K, 4) = 0
MsgBox Cai(K, 0) & "," & Cai(K, 1) & "," & Cai(K, 2) & "," & Cai(K, 3) & "," & Cai(K, 4) & "," & Cai(K, 5)


End Sub

[东方之珠]

VB数组下标最大值、最小值分别用Ubound、Lound获得，不要超过上限和下限。可用这2个函数检测。

[东方之珠]

晕！应是LBound

[波导终结者]

这种变量名看了头晕
Cai的定义在哪？看前面写的只到K,4，但后面msgbox用到了K,5，可能这里越了

[wxrwan]

Cai的定义在哪？

[kbsssnlss]

Ubound 要-1的吧

[熊孩子开学喽]

Dim R1, R2, C1, C2 As Integer
只定义了最后一个是整型，前面3个无类型

[youjunpang]

服了，没方向。

[UltraBejing]

关注 接分

[东方之珠]

在VB.NET中可以这样定义：R1,R2,C1,C2全是Integer型
Dim R1, R2, C1, C2 As Integer