Question

vb中数组循环结构赋值的问题

Private Sub Form_click()
Dim stu(1 To 10, 1 To 5)
Dim i As Integer
Dim j As Integer
For i = 1 To 10
For j = 1 To 5
a(i)(j) = 0
Next i
Next j
End Sub

dim stu(1 to 10) as integer
dim l as integer
for i=1 to 10
a(i)=0
next i

请问这两个各是什么意思 每一句的详细解释 我绝对是个菜鸟
先谢谢了

Answer 1

'这是把一个10x5的二维数组全部赋值为0
'这样写没有实际意义
'因为如果定义为Integer或者Long那么初始值就是0

Dim stu(1 To 10, 1 To 5) As Integer
Dim i As Integer
Dim j As Integer

'这里表明从1到10每次加1然后赋值给i
For i = 1 To 10
'j和i一样，从1到5每次加1
For j = 1 To 5
'这里应该是stu而不是a,a你没定义
'而且应该是stu(i,j)而不是a(i)(j)这个写法像是C的
stu(i, j) = 0

'这里你把i和j弄错了，应该是j在i内部循环
Next j
'从这里循环i
Next i

End Sub

Dim stu(1 To 10) As Integer
Dim l As Integer

'这里跟上面一样，只不过这里是1维数组
For l = 1 To 10
stu(l) = 0
Next l

Answer 2

Dim stu(1 To 10, 1 To 5) '定义一个二维数组，
Dim i As Integer '定义变量
Dim j As Integer '定义变量
For i = 1 To 10 '从1到10循环，即数组第一维循环
For j = 1 To 5 '从1到5循环，即数组第二维循环
a(i)(j) = 0 '给数组stu（i，j）=0赋值为零，你这句话有问题呀，a数组哪来的？并且vb二维数组不是这么个写法！！！
Next i '这两句话也错了，应该是先next j，再next i ！！！
Next j
End Sub

dim stu(1 to 10) as integer '定义一个一维数组，从1到10
dim l as integer '定义变量
for i=1 to 10 '从1到10的循环
a(i)=0 '将数组第i个的值赋值为0,数组名又错了 不是a 是 stu
next i

以下是我给你修改后的代码~~
Private Sub Form_click()
Dim stu(1 To 10, 1 To 5)
Dim i As Integer
Dim j As Integer
For i = 1 To 10
For j = 1 To 5
stu(i,j) = 0
Next j
Next i
End Sub

dim stu(1 to 10) as integer
dim l as integer
for i=1 to 10
stu(i)=0
next i

Answer 3

dim stu(1 to 10) as integer 定义一个一维数组,下标从1开始,上标到10结束