问题
填空题
执行下面程序,单击Commandl,则图片框中显示的第一行是(),显示的第二行是() ,最后一行显示的是 () 。
Private Sub Command1_Click()
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
答案
参考答案:
2 1 0;1 0 1;0 1 2