窗体上画一个文本框（其名称为Text1)和一个标签（其名称为Labell)。要求程序运行后，如果在文本框中

在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示“打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名为．DOC的文件，则对通用对话框的 Filter属性的正确设置是 ______。

A．(*.DOC)*.DOC

B．(*.DOC)|(.DOC)

C．(*.DOC)||*.DOC

D．(*.DOC)|*.DOC

以下正确的叙述是 ______。 Select Case x Case 1 to 10 …… End Select

A．Select Case语句中的测试表达式可以是任何形式的表达式

B．Select Case语句中的测试表达式只能是数值表达式或字符串表达式

C．在执行Select Case语句时，所有的Case子句均按出现的次序被顺序执行

D．如下Select Case语句中的Case表达式是错误的：

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。

A．27

B．28

C．29

D．30

在窗体上画一个命令按钮(其名称为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