填空题
执行下面程序,单击Commandl,则图片框中显示的第一行是(1),显示的第二行是(2) ,最后一行显示的是 (3) 。
Private Sub Command1_Click1
Dim a(3,3)As Integer
Dim i As Integer,j As Integer
For i=1 To 3
For j=3 To 1 Step -1
If i>=j Then
a(i,j)=i-j
Else
a(i,j)=j-i
End If
Next j
Next i
For i=1 to 3
For j=3 To 1 Step -1
Picture1.Print a(i,j);
Next j
Picturel.Print
Next i
EndSub