单选题
有如下程序代码：
Private Sub Form_Click( )
Dim a(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
If j ＞ 1 And i ＞ 1 Then
a(i, j) = a(a(i - 1，j - 1), a(i, j - 1)) + 1
Else
a(i, j) = i * j
End If
Print a(i, j);
Next j
Print
Next i
End Sub
程序运行后，单击窗体，输出结果为______。
A．
B．
C．
D．
Private Sub Form_Click( )
Dim a(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
If j ＞ 1 And i ＞ 1 Then
a(i, j) = a(a(i - 1，j - 1), a(i, j - 1)) + 1
Else
a(i, j) = i * j
End If
Print a(i, j);
Next j
Next i
End Sub
程序运行后，单击窗体，输出结果为______。
A．
B．
C．
D．
【正确答案】
A
【答案解析】[解析] 观察答案，数组的第一行数据均相同，数组的第二行数据均不同。直接进入第二行数据，当i = 2,j = 1时，If条件j＞1 And i＞1为假，执行Else语句，a(2，1) = i * j=2 * 1 =2；当i=2,j=2时，If条件j＞1 And i＞1为真，执行If内语句，a(2，2)=a(a(1，1)，a(2，1))+1=a(1，2)+1=2+1=3；由此可知，只有答案A符合条件。