单项选择题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer，j As Integer
Dim a(10， 10)As Integer
For i=1 To 3
For i=1 To 3
a(i，j)=(i-1) *3+j
Print a(i，j)；
Next i
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是

A．1 2 3
246
3 69
B．2 3 4
3 4 5
4 5 6
C．1 4 7
2 5 8
3 6 9
D．1 2 3
4 5 6
7 8 9
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer，s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是
A．6
B．7
C．8
D．9
单项选择题
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) if n 2=n 2 Then f=f1(n) Else f=f2(n) End If Print f；n End Sub Public Function f1(ByRef x) x = x * x f1 =x + x End Function Public Function f2(ByVal x) x = x + x f2=x+x+x End Function 程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
A．72 36
B．108 36
C．72 6
D．108 6
相关试题