Private Sub Commandl Click() Dim i As Integer, j As Integer Dim a (10,10)As Int
Private Sub Commandl Click()
Dim i As Integer, j As Integer
Dim a (10,10)As Integer
For i=1 To 3
For j= i To 3
a(i,j)=(i-1)*3+j
Print a (i,j);
Next j
Next i
End Sub
程序运行后,单击命令按钮,窗体上显示的是()。