单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 3， 1 To 3)， x
x=Array(1，2，3，4，5，6，7，8，9)
For i=1 To 3
For i-1 To 3
a(i，j)=x(i*j-1)
Next j
Next i
Call sub1(i，j，a())
End Sub
Private Sub sub1(m，n，t)
For m=1 To 3
For n=1 To 3
Print t(m，n)；
Next n
Print
Next m
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是

A．1 2 3
2 5 8
3 6 9
B．1 2 3
2 4 6
3 6 9
C．3 6 9
2 5 8
1 2 3
D．3 6 9
2 4 6
1 2 3

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： Private Sub Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text= End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为

A．40123
B．163
C．123
D．30123

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(p，m，n) p=p + 1 : m = m + 1 : n =n + 1 Print p;m;n End Sub Private Sub Command1_Click() x=6 : y=4 : z=2 Call sub1(x，y+1，(z)) Print x；y；z End Sub 程序运行后，单击命令按钮，则窗体上第二行显示的内容是

A．7 6 3
B．7 4 2
C．6 4 2
D．4 6 3

相关试题