Question

Option Base 1 Private Sub Commandl_Click() Dim a(4,4) For i =1To 4 For j =1To 4 a(i,j)=(i-1)*3+

(22)在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Option Base 1
Private Sub Commandl_Click()
Dim a(4,4)
For i =1To 4
For j =1To 4
a(i,j)=(i-1)*3+j
Next j
Next i
For i =3To 4
For j =3To 4
Print a(j,i);
Next j
Print
Next i
End Sub
这道题怎么做？

Answer 1

运行了.不显示.是吧?程序无语法错误.那就是标点符号有错了.我重新打了一遍,可以了.你复制过去试试吧.
Option Base 1
Private Sub Command1_Click()
Dim a(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = (i - 1) * 3 + j
Print a(i, j);
Next j
Print
Next i
For i = 3 To 4
For j = 3 To 4
Print a(j, i);
Next j
Print
Next i
End Sub

Answer 2

是Command1_Click，不是Commandl_Click，注意数字1和字母l的区别
最后输出：
9 12
10 13