UC知道vb 数组问题3
来源：百度知道 编辑：UC知道 时间：2024/06/17 11:55:59
Option Base 1
Private Sub Form_Click()
Dim a(4, 4)
For i = 1 To 4
For j = 1 To 4
a(i, j) = (i - 1) * 3 + j
Next j
Next i
For i = 3 To 4
For j = 3 To 4
Print a(j, i)
Next j
Print
Next i
End Sub
答案是9,12 10,13但我不知道是怎么做出来得,谁能告诉我我要具体的解答过程
Private Sub Form_Click()
Dim a(4, 4)
For i = 1 To 4
For j = 1 To 4
a(i, j) = (i - 1) * 3 + j
Next j
Next i
For i = 3 To 4
For j = 3 To 4
Print a(j, i)
Next j
Next i
End Sub
答案是9,12 10,13但我不知道是怎么做出来得,谁能告诉我我要具体的解答过程
For i = 1 To 4
For j = 1 To 4
a(i, j) = (i - 1) * 3 + j
Next j
Next i
是分别给a(i,j)赋值。
a（1，1）=1，a（1，2）=2，a（1，3）=3，a（1，4）=4，
a（2，1）=4，a（2，2）=5，a（2，3）=6，a (2, 4) =7,
a (3, 1) =7, a (3, 2) =8, a (3, 3) =9, a (3, 4) =10,
a (4，1) =10，a（4，2）=11.a(4，3）=12，a（4，4）=13.
For i = 3 To 4
For j = 3 To 4
Print a(j, i)
Next j
Print
Next i
是分别输出a（3，3），a（4，3），a（3，4），a（4，4）
即为9，12 10，13
虽然很好学,但缺少灵气,不是学VB的料。