在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Tex

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5，5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i，j)=(i-1)*3+j Print a(i，j) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是 ______。

A．1 4 7 2 5 8 3 6 9

B．1 2 3 4 5 6 7 8 9

C．1 2 3 4 5 6 7 8 9

D．没有输出

在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

假定程序中有以下语句： answer=MsgBox("String1",,"String2","String3",2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为 ______。

A．String1

B．String2

C．String3

D．1

设窗体Form1中有一名为mnuFile的菜单，它只有一个标题为Open的子菜单。为使程序运行时，按下Alt+F键窗体中能够显示如下图所示的菜单项，则mnuFile的标题应为 ______.

A．File(F)

B．：File(F)

C．：File(&F)

D．File(-F)

设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为 ______。 x=IIF((a＞B)And(c＜d)，10,20)

A．10

B．20

C．30

D．300

在窗体上画一个命令按钮，然后编写如下程序： Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer,b As Integer a=10 b=30 S1 a，b Print"a="；a；"b="；b End Sub 程序运行后，单击命令按钮，输出结果是 ______。

A．a=30 b=10

B．a=30 b=30

C．a=10 b=30

D．a=10 b=10

能够获得一个文本框中被选取文本的内容的属性是 ______。

A．Text

B．SelLength

C．SelText

D．SelStart

设置复选框中或单选按钮的标题对齐方式的属性是 ______。

A．Align

B．Style

C．Sorted

D．Alignment

下列程序段的执行结果为 ______。 X=5 Y=-20 If Not X＞0 Then X=Y-3 Else Y=X+3 Print X-Y; Y-X

A．-3 3

B．5 -8

C．39875

D．25 -25

改变驱动器列表框的Drive属性值将激活 ______ 事件。

A．Change

B．Scroll

C．KeyDown

D．KeyUp