问题
单项选择题
下面程序的运行结果是( )。
Option Base 1
Private Sub Command1_Click()
Dim x,y(3,3)
x=Array(1,2,3,4,5,6,7,8,9)
For i=1 To 3
For i=1 To 3
y(i,j)=(i*j)
If(j＞=i)Then Print y(i,j);
Next i
Print
Next i
End Sub
A) 1 2 3
2 4 6
4 6 8
B) 1 2 3
2 4 6
3 6 9
C) 1
2 4
3 6 9
D) 1 2 3
4 6
9
答案
参考答案：D
解析： i为行，j为列，j＞=i表示矩阵主对角线右上方含对角线数据。但是输出会默认左对齐，所以会出现D)选项的排列效果。