vb二维数组 输出
PrivateSubCommand1_Click()Dimaa()AsVariantaa()=Array(Array(8.03,6.04,4.06,2.09,1),Arr...
Private Sub Command1_Click()
Dim aa() As Variant
aa() = Array(Array(8.03, 6.04, 4.06, 2.09, 1), Array(2.59, 2.03, 1.48, 1.07, 1), Array(1.88, 1.53, 1.21, 1.03, 1), Array(1.39, 1.22, 1.08, 1.01, 1), Array(1.19, 1.1, 1.03, 1.01, 1), Array(1.07, 1.04, 1.01, 1, 1), Array(1, 1, 1, 1, 1))
For i = 0 To 6
For j = 0 To 4
Print aa(i, j), '这个地方出现了下标越界,为什么?
Next j
Print
Next i
End Sub 展开
Dim aa() As Variant
aa() = Array(Array(8.03, 6.04, 4.06, 2.09, 1), Array(2.59, 2.03, 1.48, 1.07, 1), Array(1.88, 1.53, 1.21, 1.03, 1), Array(1.39, 1.22, 1.08, 1.01, 1), Array(1.19, 1.1, 1.03, 1.01, 1), Array(1.07, 1.04, 1.01, 1, 1), Array(1, 1, 1, 1, 1))
For i = 0 To 6
For j = 0 To 4
Print aa(i, j), '这个地方出现了下标越界,为什么?
Next j
Next i
End Sub 展开
展开全部
Dim aa() As Variant
aa() = Array(Array(8.03, 6.04, 4.06, 2.09, 1), Array(2.59, 2.03, 1.48, 1.07, 1), Array(1.88, 1.53, 1.21, 1.03, 1), Array(1.39, 1.22, 1.08, 1.01, 1), Array(1.19, 1.1, 1.03, 1.01, 1), Array(1.07, 1.04, 1.01, 1, 1), Array(1, 1, 1, 1, 1))
For i = LBound(aa) To UBound(aa)
For j = LBound(aa(i)) To UBound(aa(i))
Print aa(i)(j), '这个地方出现了下标越界,为什么?
Next j
Print
Next i
这个不会错
aa() = Array(Array(8.03, 6.04, 4.06, 2.09, 1), Array(2.59, 2.03, 1.48, 1.07, 1), Array(1.88, 1.53, 1.21, 1.03, 1), Array(1.39, 1.22, 1.08, 1.01, 1), Array(1.19, 1.1, 1.03, 1.01, 1), Array(1.07, 1.04, 1.01, 1, 1), Array(1, 1, 1, 1, 1))
For i = LBound(aa) To UBound(aa)
For j = LBound(aa(i)) To UBound(aa(i))
Print aa(i)(j), '这个地方出现了下标越界,为什么?
Next j
Next i
这个不会错
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
好像这个和你的定义方式有点关系.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
想一下aa()是几维数组
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询