单项选择题

下面程序的运行结果是( )。
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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim m As Integer,n As Integer,p As Integer m=3; n=5: p=0 Call Y(m,n，p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer,k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A) 4
B) 6
C) 8
D) 10
单项选择题
下列程序的运行结果是( )。 Private Sub Form_Click() Dim k As Integer n=5 m=1 k=1 Do m=m+2 k=k+1 Loop Until k＞n Print m End Sub
A) 1
B) 12
C) 11
D) 32
相关试题