填空题
执行下面的程序,当单击Command1时,Picture1中显示内容的第二行与第四行分别是
1与
2,Picture2中第一行显示的内容是
3。
Option Base 1
Option Explicit
Private Sub Command1_Click()
Dim a(4, 4) As Integer, I As Integer, j As Integer
Dim b(4, 4) As Integer, s As String
For I=1 To 4
s=""
For j=1 To 4
a(I, j)=((I-1)*4+j)
s=s&Right(""&Str(a(I, j)), 3)
Next j
Picture1.Print s
Next I
For I=1 To 4
For i=1 To 4
b(5-j, I)=a(I, j)
Next J
Next I
For I=1 To 4
s=""
For j=1 To 4
If Len(CStr(b(I, j)))<2 Then
s=s&""&CStr(b(I, J))&""
Else
s=s&CStr(b(I, j))&""
End If
Next j
Picture2.Print s
Next I
End Sub