以下程序运行的结果是 。 Option Base 1 Private Sub Command1_Click() Dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 b(i,j)=a(i*j) If (j>=i) Then Print Tab(j*3);Format(b(i,j),"# # #"); Next j Print Next i End Sub A. 1 2 3 4 5 6 7 8 9 B. 1 4 5 7 8 9 C. 1 4 7 2 4 6 3 6 9 D.1 2 3 4 6 9