单选题 窗体上有一个名称为Command1的命令按钮，并有如下程序代码： Option Base 1 Private Sub Commandl_Click() Dim a％(3，3) For i=1 To 3 Forj=1 To 3 Ifi>4 Andj>1 Then a(i，j)=a(a(i—1，j-1)，a(i，j-1))+1 Else a(i，j)=i*j End If Next Next Print a(2，2)；a(3，3)End Sub 运行程序，单击命令按钮，窗体上显示的是
【正确答案】 D
【答案解析】解析：本题是一个二维数组的赋值问题，要判断清哪一个数组元素的值被赋值成了多少。首先确定a(1，1)=1，a(1，2)=2，a(1，3)=3，a(2，1)=2，a(3，1)=3；然后按照公式计算其余的元素。