- 二维数组的位置定位
代码:
Private Sub Command1_Click()
Dim a(1 To 9, 1 To 9) 先定义a的值范围
For i = 1 To 9
For j = 1 To 9
a(i, j) = "a" & "(" & i & "," & j & ")"
Print a(i, j); 这里的print后面有加“;“,所以是j值横着1~9输出
Next
Print ——————>因为这边的print是i循环当中,我们都知道没有任何
Next 情况下的话print语句都是竖着输出的,所以它就说
End Sub 明了竖着输出1~9,横着的保持第一个的数值,如图
所示。
- 二维数组的注意事项
代码:
Private Sub Command1_Click()
Dim a(1 To 10, 1 To 10)
For i = 1 To 10
For j = 1 To 10
If j = 1 Or i = 1 Or i = 10 Or j = 10 Then
Print 1;
Else 这边一定要else,不然右边的1会缩进填补,如下图。
Print " "; 我们必须要用空格填补中间的空隙。
End If
Next
Next
End Sub