神马品牌网哈尔滨美佳外国语学校:vb的问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/03 23:00:14
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4)
End Sub
能把分析过程详细的讲下吗~
1楼说的我都明白，我需要的是带数值的具体步骤和结果，谢谢
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4)
End Sub
能把分析过程详细的讲下吗~
1楼说的我都明白，我需要的是带数值的具体步骤和结果，谢谢
Option Base 1 '声明数组下标的缺省下界为1
Dim arr() As Integer '声明动态数组
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2) '分配实际的元素个数(自动赋初值为0)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j '为数组赋值
Next j
Next i
'在这两个循环执行后,数组arr的内容为:
'3 4
'5 6
'7 8
ReDim Preserve arr(3, 4) '保留原数组内容,并扩大到3行4列
'这句执行后,数组内容变为
'3 4 0 0
'5 6 0 0
'7 8 0 0
For j = 3 To 4
arr(3, j) = j + 9 'arr(3,3)=12;arr(3,4)=13
Next j
Print arr(3, 2) + arr(3, 4) 'arr(3,2)+arr(3,4)=8+13=21
End Sub
所以,打印出的结果是21
...应该没错,我没运行
数组下标由1开始，不是0
定义了arr动态数组
两个Integer变量
嵌套循环（给数组赋值变量）
最后一个循环进行累加操作
然后将结果打印出来
很基础的东西，多看下书就能明白