有如下程序：
OptionBase1
PrivateSubCommand1_Click()
Dimx,y(3,3)
x=Array(1,2,3,4,5,6,7,8,9)
Fori=1To3
Forj=1To3
y(i,j)=x(i*j)
If(j>=i)ThenPrinty(i,j);
Nextj
Print
Nexti
EndSub
运行时输入出的结果是（）
A.123
246
468
B.123
246
C.1
24
369
D.123
46
9