.
List1.AddItem \ List1.AddItem \ List1.AddItem \End Sub
Private Sub Command1_Click()
List1.List(List1.ListCount) = \End Sub
程序运行后，单击命令按钮，其结果为______。 A：把列表框中原有的最后一项改为\
B：把字符串\添加到列表框的最后（即\的后面） C：把字符串\添加到列表框中，但位置不能确定
D：把字符串\插入到列表框的最前面（即\的前面）
参考答案：B
35、在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：
Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x
Case Is>=10,Is<=-10 y=x
Case -10 To 10 y=-x End Select End Sub
程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是______。
A：先执行y=x*x，再执行y=-x B：执行y=-x C：执行y=x*x D：程序出错
参考答案：C
36、以下不能输出\的语句是______。 A：Print Left(\ B：Print Right(\ C：Print Mid(\ D：Print Mid(\
参考答案：A .
.
37、窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是______。 A：Private Sub Command1_Click() Open \ Print #1,Text1.Text Close #1 End Sub
B：Private Sub Command1_Click() Open \ Print #1,Text1.Text Close #1 End Sub
C：Private Sub Command1_Click() Open \ Print #1,Text1.Text Close #1 End Sub
D：Private Sub Command1_Click() Open \ Print #1,Text1.Text Close #1 End Sub 参考答案：A
38、设有如图所示窗体和以下程序：
Private Sub Command1_Click() Text1.Text=\End Sub
Private Sub Text1_LostFocus() If Text1.text<>\ Text1.Text=\ Text1.SetFocus End If End Sub
程序运行时，在Text1文本框中输入\（如图所示），然后单击Command1按钮，则产生的结果是______。
A：文本框中为\，焦点在文本框中 B：文本框中无内容，焦点在文本框中 C：文本框中为\，焦点在按钮上
D：文本框中为\，焦点在按钮上 .
.
参考答案：B
39、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为______。 A：Unload B：Load C：Show D：Hide
参考答案：D
40、某人创建了1个工程，其中的窗体名称为Form1；之后又添加了一个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是______。 A：把Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2 B：在Form1的Load事件过程中加入语句Load Form2 C：在Form2的Load事件过程中加入语句Form2.Show D：在工程属性对话框中把\启动对象\设置为Form2
参考答案：D
41、CommonDialog控件可以显示______种对话框。 A：4种 B：5种 C：7种 D：6种
参考答案：D
42、现有语句：y=IIf(x>0,xMod3,0) 设x=10，则y的值是______。
A：语句错误 B：1 C：3 D：0 参考答案：B
43、假定有下表所列的菜单结构： 标题 显示 大图标 小图标 名称 appear bigicon smallicon 层次 1（主菜单） 2（子菜单） 2（子菜单） 要求程序运行后，如果单击菜单项\大图标\，则在该菜单项前添加一个\。以下正确的事件过程是______。
A：Private Sub bigicon_Click() Me.appear.bigicon.Checked = True End Sub
B：Private Sub bigicon_Click() bigicon.Checked = False .
.
End Sub
C：Private Sub bigicon_Click() bigicon.Checked = True End Sub
D：Private Sub bigicon_Click() appear.bigicon.Checked = True End Sub 参考答案：C
44、函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。 A：Function F1(b As Integer) If b Mod 2 = 0 Then Return 0 Else
Return 1 End If
End Function
B：Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If
End Function
C：Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If
End Function
D：Function F1(b As Integer) If b Mod 2 <> 0 Then Return 0 Else
Return 1 End If
End Function 参考答案：C
45、要使一个文本框可以显示多行文本，应设置为True的属性是______。 A：MultiLine B：Enabled .
.
C：MaxLength D：Width 参考答案：A
46、以下关于图片框控件（PictureBox）的说法中，错误的是______。 A：用Stretch属性可以自动调整图片框中图形的大小 B：清空图片框控件中图形的方法之一是加载一个空图形 C：图片框控件可以作为容器使用
D：可以通过Print方法在图片框中输出文本 参考答案：A
47、以下有关数组定义的语句序列中，错误的是______。 A：Static arr1(3) arr1(1)=100 arr1(2)=\ arr1(3)=123.45
B：Option Base 1
Private Sub Command3_Click() Dim arr3(3) As Integer …… End Sub
C：Dim arr2() As Integer Dim size As Integer
Private Sub Command2_Click() size=InputBox(\输入:\ ReDim arr2(size) …… End Sub
D：Dim n As Integer
Private Sub Command4_Click() Dim arr4(n) As Integer …… End Sub 参考答案：D
48、用Write和Print语句向文件中写入多个数据的差别在于______。
A：Print语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 B：Print语句自动在数据项之间插入逗号
C：Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 D：Write语句不会自动在数据项之间插入逗号 参考答案：C .