选择题填空题练习集(附答案)

第三部分（0309）

一、选择题

1．以下叙述中错误的是

（A）Visual Basic 是事件驱动型可视化编程工具

（B）Visual Basic应用程序不具有明显的开始和结束语句

（C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 （D）Visual Basic中控件的某些属性只能在运行时设置 2．以下叙述中错误的是

（A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 （B）以.BAS为扩展名的文件是标准模块文件 （C）窗体文件包含该窗体及其控件的属性 （D）一个工程中可以含有多个标准模块文件 3．以下叙述中错误的是

（A）双击鼠标可以触发DblClick事件

（B）窗体或控件的事件的名称可以由编程人员确定 （C）移动鼠标时，会触发MouseMove事件 （D）控件的名称可以由编程人员设定 4．以下不属于Visual Basic系统的文件类型是

（A）.frm （B）.bat （C）.vbg （D）.vbp (.vbg是工程组文件) 5．以下叙述中错误的是

（A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 （B）保存Visual Basic程序时，应分别保存窗体文件及工程文件 （C）Visual Basic应用程序只能以解释方式执行 （D）事件可以由用户引发，也可以由系统引发 6．以下能正确定义数据类型TelBook的代码是

（A）Type TelBook （B）Type TelBook

Name As String * 10 Name As String * 10 TelNum As Integer TelNum As Integer End Type End TelBook （C）Type TelBook （D）Typedef TelBook

Name String * 10 Name String * 10 TelNum Integer TelNum Integer End Type TelBook End Type

7．以下声明语句中错误的是

（A）Const var1=123 （B）Dim var2 = 'ABC'（定界符错误） （C）DefInt a-z (本选项含义请参考VB帮助) （D）Static var3 As Integer 10．设a = 10，b = 5，c = 1，执行语句Print a > b > c后，窗体上显示的是 （A）True （B）False （C）1 （D）出错信息 11．如果要改变窗体的标题，则需要设置的属性是

（A）Caption （B）Name （C）BackColor （D）BorderStyle 13．如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

（A）如果工程中含有Sub Main过程，则程序一定首先执行该过程 （B）不能把标准模块设置为启动模块

（C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 （D）任何时刻最多只有一个窗体是活动窗体 16．以下关于焦点的叙述中，错误的是

（A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 （B）当文本框失去焦点时，触发LostFocus事件

（C）当文本框的Enabled属性为False时，其Tab顺序不起作用 （D）可以用TabIndex属性改变Tab顺序

17．如果要在菜单中添加一个分隔线，则应将其Caption属性设置为

（A）= （B）* （C）& （D）-

19．在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20

x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub

程序运行后，如果在文内容是本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是

（A）10 （B）20 （C）30 （D）40 20．设有以下循环结构

Do

循环体

Loop While <条件> 则以下叙述中错误的是

（A）若“条件”是一个为0的常数，则一次也不执行循环体 （B）“条件”可以是关系表达式、逻辑表达式或常数 （C）循环体中可以使用Exit Do语句

（D）如果“条件”总是为True，则不停地执行循环体

21．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Dim num As Integer num = 1

Do Until num > 6

Print num;

num = num + 2.4 Loop End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是 （A）1 3.4 5.8 （B）1 3 5

（C）1 4 7 （D）无数据输出

22．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a As Integer, s As Integer

a = 8 s = 1 Do

s = s + a

a = a - 1

Loop While a <= 0 Print s, a End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是

（A） 7 9 （B） 34 0 （C） 9 7 （D）死循环 23．设有如下通用过程：

Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x = 10 y = 5

y = f(x) Print x; y End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

（A）10 5 （B）20 5 （C）20 40 （D）10 40 24．设有如下通用过程：

Public Sub Fun(a(), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next

End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写

如下事件过程：

Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10

Call Fun(arr(), n) Text1.Text = n End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是 （A）10 （B）15 （C）25 （D）24

25．在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1

Private Sub Command1_Click() d = 0 c = 10

x = Array(10, 12, 21, 32, 24) For i = 1 To 5

If x(i) > c Then d = d + x(i) c = x(i) Else

d = d - c End If Next i Print d End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为 （A）89 （B）99 （C）23 （D）77

27．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n = 1 To 20

If n Mod 3 <> 0 Then m = m + n \\ 3 Next n

Print n End Sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是 （A）15 （B）18 （C）21 （D）24 29．设有如下程序：

Private Sub Command1_Click()

Dim sum As Double, x As Double

sum = 0 n = 0