填空题 执行下列程序,单击按钮Command1后,数组元素A(1,1)的值是 1,A(3,3)的值是 2
Option Base 1
Option Explicit
Private Sub Command1_Click()
Dim A(3, 3)As Integer, i As Integer, j As Integer, k As Integer
k=10
For i=3 To 1 Step-1
For j=3 To i Step-1
k=k+1
A(j, i+3-j)=k
Next
Next
For i=2 To 1 Step-1
For j=1 To i
k=k+1
A(i+1-j, j)=k
Next
Next
For i=1 To 3
For j=1 To 3
Picture1.Print A(i, j);
Next
Picture1.Print
Next
End Sub
【正确答案】
【答案解析】19 11