早教吧作业答案频道 -->其他-->
VB二维数组赋值问题.老是出现“下标越界”的提示框将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来,要求把A(1,1)到A(1,10)依次赋给B(1)到B(10),把A(2,1)到A(2,10)依
题目详情
VB 二维数组赋值问题.老是出现“下标越界”的提示框
将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来,要求把 A(1,1)到 A(1,10)依次赋给 B( 1)到 B(10),把 A( 2,1)到 A( 2,10)依次赋给 B( 11)到 B( 20),……,把 A(10,1)到 A( 10,10)依次赋给B(91)到 B(100).
我的代码.Dim a(1 To 10,1 To 10),b()
Dim i%,j%,x%
Private Sub Form_Click()
i = 1
j = 1
For x = 1 To 100
If j > 10 Then
j = 1
i = i + 1
End If
b(x) = a(i,j)
Print "b(" & x & ")="; b(x);
j = j + 1
Next
End Sub
将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来,要求把 A(1,1)到 A(1,10)依次赋给 B( 1)到 B(10),把 A( 2,1)到 A( 2,10)依次赋给 B( 11)到 B( 20),……,把 A(10,1)到 A( 10,10)依次赋给B(91)到 B(100).
我的代码.Dim a(1 To 10,1 To 10),b()
Dim i%,j%,x%
Private Sub Form_Click()
i = 1
j = 1
For x = 1 To 100
If j > 10 Then
j = 1
i = i + 1
End If
b(x) = a(i,j)
Print "b(" & x & ")="; b(x);
j = j + 1
Next
End Sub
▼优质解答
答案和解析
貌似你的数组b 如果声明为动态的,那一定要Redim定义它的大小.然后才能使用.
建议 这样写代码:Dim B(1 to 100)
运行vbp,出现‘下标越界’提示对话框时,单击该对话框,进入调试模式.
F8->一步步调试,然后查看i,j变量的值,很快就会发现问题了.
建议 这样写代码:Dim B(1 to 100)
运行vbp,出现‘下标越界’提示对话框时,单击该对话框,进入调试模式.
F8->一步步调试,然后查看i,j变量的值,很快就会发现问题了.
看了 VB二维数组赋值问题.老是出...的网友还看了以下:
上一年级的孩子,对数学的元角分不太敏感,比如说:妈妈给你10元钱,让你买一支铅笔,铅笔价格是1.5 2020-04-09 …
某小型电站用每公里电阻为2.5*10^-1Ω的导线直接向10公里外的山区送电,已知其输出电功率是2 2020-05-13 …
甲、乙两图是显微镜下观察到的两个视野,分别被放大了100倍和400倍,则观察时镜头的组合可能是(( 2020-06-02 …
如图10所示.小红在滑冰场上快速滑行,她在10妙内滑行了80米,她和冰刀的总质量为50千克小红在冰 2020-06-23 …
小明向爸爸借了500元,向妈妈借了500元,买鞋子用了970元,还爸爸10元,还妈妈10元,自己拿 2020-07-09 …
已知数列{an}满足a1=10,an-10≤an+1≤an+10(n∈N*).(1)若{an}是等 2020-07-26 …
某校八年级二班的10名团员在“情系芦山”的献爱心捐款活动中,捐款情况如下(单位:元):10,8,12 2020-12-10 …
9.他们给中国带来天文学和医学知识,以及伊斯兰教和伊斯兰文化。他们在埃及发现了希腊文化,还接触了印度 2020-12-14 …
例如:根号10-2.求这个值的方法是先把10给减了2变成8,再求值.还是先算出10和2的开方数求出来 2020-12-19 …
选修2-3数学1,C(10,10)+C(10,11)+C(10,12)+.C(10,20)=?(PS 2021-01-01 …