VB中的二维数组输出的定位

• 二维数组的位置定位

代码：

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

Print

Next

End Sub