VB选择判断题题库&答案

第一章

1．工程资源管理器窗口中包含的文件类型有（D）种

A、2 B、3 C、4 D、5

2．VB 集成的主窗口中不包括（A）

A．属性窗口 B ．标题栏 C ．菜单栏 D．工具栏 ３．与传统的程序设计语言相比，VB 最突出的特点是（ D ） A．结构化程序设计 Ｂ．程序开发环境 C．程序调试技术 D．事件驱动编程机制

４．启动VB 进入编程环境后，下列叙述中错误的是（ A ） A．工具箱中只有内部控件 B．窗口中会自动建立名为FORM1 的窗体 C．属性窗口一定会同时打开 D．只要存盘就会生成一个工程文件 ５．下列关于属性设置的叙述错误的是（ A ） A．控件具有什么属性是VB 预先设计好的，用户不能改变 B．控件具有什么属性是VB 预先设计好的，用户可以改变

C．控件的属性既可以在属性窗口中设置，也可以用程序代码设置

D．控件的属性在属性窗口中设置后，还可以用程序代码为其设置新值 ６．应用程序设计完成后，应将程序文件保存，保存的文件是（ A ） A．只保存窗体文件即可 B．只保存工程文件即可， C．先保存工程文件，之后再保存窗体文件 Ｄ．先保存窗体文件（和标准模块文件），之后再保存工程文件。 ７．启动VB 后，就意味着要建立一个新的（ C ）

A．窗体 B ．程序 C ．工程 D ．文件 ８．下面不能打开属性窗口的操作是（ C ） A．执行“视图”菜单中的“属性窗口”命令 B．单击工具栏上的“属性窗口”按钮

C．按ctrl+T 快捷键 D．按F4 键。

９．在正确安装VB6.0 后，可以通过多种方式启动VB, 以下（ D ）方式不能启动VB A．通过“开始”菜单中的“程序”命令

B．通过“我的电脑”找到VB6.EXE,双击该文件名 C．通过“开始”菜单中的“运行”命令 D．进入DOS 方式，执行VB6.EXE 文件

10．VB 集成环境的大部分窗口都可以从主菜单项（ B ）的下拉菜单找到相应的打开命令

A．编辑 B．视图 C ．格式 D ．调试 11．下列（ C ）方法不是VB6.0 中打开工程的方法 A．按CTRL+O 组合键

B．执行“文件”菜单中的“打开工程”命令 C．按ALT+O 组合键

D．单击标准工具栏上的“打开工程”按钮 12．下列叙述中正确的是（ B ）

A．VB 与BASIC 没有什么不同 B ．VB 与BASIC 的编程机制不同

C．VB 是过程设计语言 D ．VB 与BASIC 之间没有什么联系。 13．VB 是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A．属性、控件和方法 B ．属性、事件和方法 C．窗体、控件和过程 D ．控件、过程和模块

14．以下说法正确的是（ D ） A．对象属性只能在“属性窗口”中设置 B．一个新的工程可以在“工程窗口”中建立

C．必须先建立一个工程，才能开始设计应用程序 D．只能在“代码窗口”中编写程序代码。 15．下列说法中错误是（ B ）

A．应用程序界面是窗体 B．应用程序的界面是对象

C．每个应用程序都要生成一个工程 D．一个应用程序由若干个VB 文件组成 16．以下选项中，不是可视化编程方法特点的是（ C ）

A．不必运行程序就能看到所要做的界面 B．采用面向对象驱动事件的机制

C．使用工程的概念来建立应用程序 D．将代码和数据集成到一个独立的对象中 17．VB6.0 集成开发环境可以（ D ）

A．编辑、调试、运行程序，但不能生成可执行程序 B．编辑、生成可执行程序、运行程序，但不能调试程序 C．编辑、调试、生成可执行程序，但不能运行程序 D．编辑、调试、运行程序，也能生成可执行程序 18．下列不属于VB 特点的是（ C ）

A．对象的链接与嵌入 B ．结构化程序设计

C．编写跨平台应用程序 D ．事件驱动程序编程机制 19．在VB 环境下，当写一个新的VB 程序时，所做的第一件事是（ B ）

A．编写代码 B．新建一个工程 C．打开属性窗口 D．进入VB 环境 20．下面关于VB6.0 工具栏的说法不正确的是（ B ）

A．工具栏的位置可以任意改变 B ．工具栏一定在菜单栏下方 C．工具栏可以隐藏 D ．VB 有多个工具栏 （二）判断题（对的在括号内打“√”，错的在括号内打“×” ） 1．（T ）VB 的企业版包括专业版的全部功能。 2．（F ）一个对象对应一个事件，一个事件对应一个事件过程 3．（ T）在程序设计阶段，双击某个控件，所打开的窗口是代码窗口 4．（ F）方法是预先定义好的、能够被对象识别的动作 5．（ F）对象属性只能在“属性窗口”中设置 6．（ T）按ctrl+R 进入工程资源管理器窗口 7．（ T）工程资源管理器管理文件主要有6 类，即窗体文件（.frm）、标准模块文件（.bas）、类模块文件（.cls）、工程文件（.vbp）、工程组文件（.vbg）和资源文件（.res） 8．（ T）按ctrl+G 进入立即窗口。 9．（F ）按F7 进入程序运行窗口。 10．（ F）应用程序的界面是对象。

第二章

（一）选择题

1、以下不是 Visual Basic 的特点的选项是（ B ）。

A、可视编程 B、算法设计 C、事件驱动 D、面向对象 2、VB 的工程资源管理器可管理多种类型的文件，下面叙述不正确的是（ C ） A、窗体文件的扩展名为.frm，每个窗体对应一个窗体文件

B、标准模块是一个纯代码性质的文件，它不属于任何一个窗体

C、用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.bas

D、资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑

3、一个工程中包含两个名称分别为Form1、Form2 的窗体、一个名称为Func 的标准模块。 假定在Form1、Form2 和Func 中分别建立了自定义过程，其定义格式为： Form1 中定义的过程： Private Sub Fun1( ) …… End Sub

Form2 中定义的过程： Private Sub Fun2( ) …… End Sub

Func 中定义的过程： Private Sub Fun3( ) …… End Sub

在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（ D ） A、上述三个过程都可以在工程中的任何窗体或模块中被调用 B、Fun1 和Fun2 过程能够在工程中各个窗体或模块中被调用 C、上述三个过程都只能在各自被定义的模块中调用

D、只在Fun3 过程能够被工程中各窗体或模块调用

4、当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（ A ） A、Load B、Click C、Unload D、GotFocus

5、Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A、设计、控件和事件 B、属性、事件和方法 C、窗体、控件和过程 D、控件、过程和模块 6、以下叙述中错误的是 （ C ）

A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B、保存Visual Basic 程序时，应分别保存窗体文件及工程文件 C、Visual Basic 应用程序只能以解释方式执行 D、事件可以由用户引发，也可以由系统引发

7、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ C ）

A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 8、以下叙述中正确的是 （ A ）

A、窗体的Name 属性指定窗体的名称 ，用来标识一个窗体 B、窗体的Name 属性的值是显示在窗体标题栏中的文本 C、可以在运行期间改变对象的Name 属性的值 D、对象的Name 属性值可以为空

9、以下叙述中错误的是 （ C ） A、一个工程中只能有一个Sub Main 过程

B、窗体的Show 方法的作用是将指定的窗体装入内存并显示该窗体 C、窗体的Hide 方法和Unload 方法的作用完全相同

D、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 10、以下关于窗体的描述中，错误的是 ( A )

A、执行Unload Forml 语句后，窗体Forml 消失，但仍在内存中

B、窗体的Load 事件在加载窗体时发生

C、当窗体的Enabled 属性为False 时，通过鼠标和键盘对窗体的操作都被禁止 D、窗体的Height、Width 属性用于设置窗体的高和宽

11、为了保存一个VB 应用程序，下列正确的是（ C ） A、只保存窗体文件（.frm） B、只保存工程文件（.vbp）

C、分别保存工程文件和窗体文件 D、分别保存工程文件和标准模块文件（.bas） 12、假定窗体的名称为（Name 属性）为form1，则把窗体的标题设置为“VBTEST”的语句 正确的是（ B ）

A、orm1=“VBTEST” B、Caption=“VBTEST” C、form1.test=“VBTEST” D、form1.name=“VBTEST”

13、当一个工程含有多个窗体时，其中的启动窗体是（ D ）

A、启动VB 时建立的窗体 B、第一个添加的窗体 C、最后一个添加的窗体工程属性 D、在工程属性对话框中指定的窗体 14、同时改变一个活动控件的高度和宽度，正确的操作是（ A ）

A、拖拉控件4 个角上的某个小方块 B、只能拖拉位于控件右下角的小方块 C、只能拖拉位于控件左下角的小方块 D、不能同时改变控件的高度和宽度 15、如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的（ A ）命令

A、引用 B、部件 C、工程属性 D、加窗体 16、下列叙述中正确的是（ C ） A、所有应用程序都是由窗体开始执行的 B、在多文档系统中，每个窗体都是平等的

C、VB 的每一个窗体和控件都存在一个预定义的事件集 D、改变窗体的标题也就是改变其属性窗口中的Name 属性

17、创建VB 应用程序的主要步骤是：①创建应用程序界面 ②设置控件 ③设置属性 ④编写代 码 ，其中正确的步骤是（ C ）

A、①③④ B、①②④ C、②③④ D、①②③④ 18、工程文件的扩展名是（ B ）

A、.vbg B、.vbp C、.vbw D、.vbl

19、VB 中控件主要分为3 类，下面哪一种不是VB 中的控件类（ D ）

A、标准控件 B、ActiveX C、可插入对象 D、外部控件 20、以下叙述中错误的是 （ A ） A、事件过程是响应特定事件的一段程序

B、不同的对象可以具有相同名称的方法 C、对象的方法是执行指定操作的过程 D、对象事件的名称可以由编程者指定 （二）判断题（对的在括号内打“√”，错的在括号内打“×” ） 1、（F ）以.BAS 为扩展名的文件是类模块文件。 2、（F ）窗体模块和标准模块都是只由代码组成。 3、（F ）程序运行前必须先保存。 4、（F ）不同控件的相同属性的只读性相同。 5、（T ）不同事件触发是有先后顺序的。 6、（F ）窗体的Show 方法和Load 语句具有相同的功能 7、（F ）所有属性都可以在属性窗口设置。

8、（T ）可以用程序代码窗体上画控件。

9、（F ）“事件驱动“程序中的事件的含义是用户操作事件。 10、（T）用户不可以自定义标准控件的事件，但可以用类的方法来自定义控件及其事件、方法。

11、（F ）窗体包含的代码全部由事件过程组成。

第三章

（一）选择题

1、下面的四个VB6.0 表达式语法正确的是（ D ）。 A、a>b．find．b<>c B、a>b c C、a>b AND<>c D、a>b AND b<>c 2、骰子是一个正六面体，用 1-6 这六个数分别代表这六面，掷一次骰子出现的数可表示为（D ）。 A、INT(RND(6)+1) B、INT(RND*6) C、INT(RND*7) D、INT(RND*6+1) 3、Print 方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是（ B ）。 A、空格 B、逗号 C、冒号 D、分号 4、以下关于MsgBox 的叙述中，错误的是（ C ） A、MsgBox 函数返回一个整数

B、通过MsgBox 函数可设置信息框中图标和按钮的类型 C、MsgBox 语句没有返回值

D、MsgBox 函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量 5、编写如下程序：

Private Sub Form_Click()

a$=”54321”:b$= “abcde” For j=l To 5

Print Mid$(a$，6-j，1)+Mid$(b$，j ，1)； Next j Print End Sub

程序运行后，单击窗体，其输出结果为（ D ）。 A、alb2c3d45e B、a5b4c3d2el C、eld2c3b4a5 D、la2b3c4d5e 6、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labe11 和Command1， 然后编写如下两个事件过程： Private Sub Commandl_Click() strText=InputBox( “请输入”) Text1 ．Text=strText End Sub

Private Sub Text1_Change()

Labe11 ．Caption=Right(Trim(Text1.Text)，3) End Sub

程序运行后，如果在对话框中输入 abcdef，则在标签中显示的内容是（ D ）。 A、空 B、abcdef C、abc D、def 7、可以同时删除字符前导和尾部空白的函数是（ C ）。 A、Ltrim B、Rtrim C、Trim D、Mid 8、表达式4+5 ＼6*7 ／8Mod9 的值是（ B ）。

A、4 B、5 C、6 D、7 9、执行以下程序段后，变量c$的值为（ D ）。

a$=\ b$=\

c$=b$ & UCase(Mid$(a$，7，6))&Right$(a$,1 2)

A、Visual Basic Programming B、Quick Basic Programming

C、QUICK Basic Programming D、Quick BASIC Programming 10、执行如下语句：

a=InputBox( “Today”,\yesterday\，5)将显示一个对话框，在对话框的输入区中显示的信息是（ C ）。

A、Today B、Tomorrow C、Yesterday D、Day before yesterday 11、执行如下两条语句后，窗体上显示的是（ D ）。 a=8.4326

Print Format(a，“$00,00.00”)

A、0,008.43 B、$8.43 C、8.43 D、$0,008.43 12、Visual Basic 逻辑运算符Xor、Or、Eqv、And 中，级别最高的运算符是（ D ） A、Xor B、Or C、Eov D、And 13、InputBox 函数默认的返回值类型为（ B ）。

A、数值 B、字符串 C、逻辑 D、数值或字符串(视输入的数据而定) 14、[多选题]下列可以作为VB6.0 的变量名是（ D ） 。

A、PrintA B、a?b C、123ab D、Integer E、ab 15、用于去掉一个字符串的右边的空白部分的函数是（ A ）。 A、RTrim$() B、Right$() C、Asc() D、Time$() 16、下面（ D ）不是Visual Basic 的数据类型。

A、Single B、Object C、Currency D、Boo1 17、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Pfivate Sub Command1_Click() Static y As Integer Cls

For i=O TO 2 X=X+y y=y+3 Next Printx,y End Sub

程序运行后，连续二次单击 Command1 按钮后，窗体上显示的是（B）。

A、9 9 B、36 18 C、30 12 D、63 27 18、在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii)

KeyAscii=Asc(UCase(char))

Textl ．Text=String(6，KeyAscii) End Sub

程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为（ D ）。 A、a B、A C、aaaaaaa D、AAAAAAA

19、符号％是声明（ A ）类型变量的类型定义符。

A、Integer B、Variant C、Single D、String 20、VB6 ．0 表达式 COS(0)+ABS(1)+INT(RND(1))的值是（ D ）。 A、1 B、-1 C、O D、2 （二）判断题（对的在括号内打“√”，错的在括号内打“×” ） 1、（T ）用户定义类型中的元素可以是任何数据类型，如变长字符串型，整型等。 2、（ T）用X、Y、Z 表示三角形的三条边，条件“三角形任意两边之和大于或等于第三边”的 布尔表达式可以用:X+Y>Z And Y+Z>X And X+Z>Y。 3、（F ）下述说法是否正确：局部变量的作用域可以超出所定义的过程。 4、（F ）表达式Int(-Sqr(3.6))的值是-1。 5、（F ）取模运算符的优先级别高于整除运算符。 6、（F ）在VB6.0 中，单精度数可表示最多8 位有效数字的数。 7、（F ）算术运算符中优先级别第二高的是乘法和除法运算符。 8、（T ）经过说明的符号常量只是常数值的名称，不能在程序代码中修改它的值。 9、（F ）在VB6.0 中，变量\与变量\指的是不同的两个变量名。 10、（T ）语句Print Format$(32548.5,\输出结果是 032,548.50。 11、（F ）表达式Int(Rnd*4+0.5)可能的全部值是 1,2,3,4。 12、（T ）静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。 13、（T ）Variant 是一种特殊的数据类型，Variant 类型变量可以存储除了定长字符串数据及自定义类型外的所有系统定义类型的数据。Variant 类型变量还可具有Empty、Error 和Null 等特殊值。 14、（T ）VB 的Double 类型数据可以精确表示其数值范围内的任何实数。 15、（F ）MsgBox 语句没有返回值。 16、（T ）函数InputBox 的前3 个参数分别是输入对话框的提示信息、标题以及默认值。 17、（F ）函数MsgBox 的前3 个参数分别表示默认按钮、按钮样式以及图标样式。 18、（T ）用DIM 定义数值变量时，该数值变量自动赋初值为0。 19、（F ）一个表达式中若有多种运算，在同一层括号内，计算机按函数运算→逻辑运算→关系运算→算术运算的顺序对表达式求值。 20、（T ）赋值语句的功能是计算表达式值并转换为相同类型数据后为变量或控件属性赋值。

第四章

（一）选择题

1、假定窗体上有一标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为 （ B ）

A、Label1.BackStyle=0 B、Label1.BackStyle=1 C、Label1.BackStyle=True D、Label1.BackStyle=False

2、比较图片框（PictureBox ）和图像框（Image）的使用，正确的描述是（ D ） A、两类控件都可以设置AutoSize 属性，以保证装入的图形可以自动改变大小

B、两类控件都可以设置Stretch 属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分 C、当图片框（PictureBox ）的AutoSize 自属性为Flase 时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸

D、当图像框（Image）的Stretch 属性为True 时，图像框会自动改变大小以适应图形的大小，使图形充满图像框

3、若要求在文本框中输入密码时在文本框中显示#号，应在此文本框的属性窗口中设置（ C） A、Text 属性值为# B、Caption 属性值为#

C、PasswordChar 属性值为# D、PasswordChar 属性值为真

4、设置复选框或单选按钮标题对齐方式的属性是（ A ） A、Align B、Alignment C、Sorted D、value 5、为了使标签中的内容居中显示，应把Alignment 属性设置为（ C ） A、0 B、1 C、2 D、3

6、假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平和垂直滚动条，正确的属性设置为（ A ） A、Txt1.MultiLine = True Txt1.ScrollBars = 3 B、Txt1.MultiLine = True Txt1.ScrollBars = 0 C、Txt1.MultiLine = False Txt1.ScrollBars = 3 D、Txt1.MultiLine = False Txt1.ScrollBars = 0

7、在窗体中添加一个列表框List1、一个组合框Combo1、一个文本框Text1 和一个命令按钮，编写如下代码：

Private Sub Form_Load() List1.AddItem \ List1.AddItem \ List1.AddItem \ Combo1.AddItem \ Combo1.AddItem \ Combo1.AddItem \ Text1.Text = \ End Sub

程序运行后，单击命令按钮，要在文本框中显示“2255”。能满足要求的命令按钮的程序代码是（ B ）

A、Private Sub Command1_Click()

Text1.Text = List1.ListIndex(1) + Combo1.ListIndex(1) End Sub

B、Private Sub Command1_Click() Combo1.ListIndex = 1

List1.ListIndex = 1

Text1.Text = List1.Text + Combo1.Text End Sub

C、Private Sub Command1_Click()

Text1.Text = List1.ListIndex(2) + Combo1.ListIndex(2) End Sub

D、Private Sub Command1_Click() Combo1.ListIndex = 2 List1.ListIndex = 2

Text1.Text = List1.Text + Combo1.Text End Sub

8、VB 为命令按钮提供的Cancel 属性（ D ） A、用来指定命令按钮是否为窗体的“取消”按钮

B、用来指定命令按钮的功能是停止一个程序的运行 C、用来指定命令按钮的功能是关闭一个运行程序 D、用来指定命令按钮的功能是中断一个程序的运行

9、在窗体上画一个名称为Listl 的列表框，一个名称为Labell 的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 ( D )

A、 Private Sub Listl_Click()

Label1 ．Caption＝List1.List End Sub

B、Private Sub Listl_C1ick()

Index Label1 ．Name ＝Listl．ListIndex End Sub

C、Private Sub Listl_Click()

Label1 ．Name ＝Listl.Text End Sub

D、Private Sub Listl_Click()

Label1 ．Caption＝Listl.Text End Sub

10、为了在按下ESC 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（ C ）

A、value B、Default C、Cancel D、Enabled 11、设组合框Combo1 中有3 个项目，则以下能删除最后一项的语句是（ C ） A、Combo1.RemoveItem Text B、Combo1.RemoveItem 2

C、Combo1.RemoveItem 3 D、Combo1.RemoveItemCombo1.Listcount 12、ComboBox 组合框的类型由( A )属性确定。 A、Style B、ItemData C、IMEMode D、DragMode 13、设定文本框内的文字内容是否允许修改的属性是（ B ） A、Text B、Locked C、PasswordChar D、Multiline 14、在运行阶段，要在文本框Text1 获得焦点时选中文本框中所有内容，对应的事件过程是（ A ）

A、Private Sub Text1_GotFocus() ext1.SelStart=0

Text1.SelLength=Len(Text1.text) End Sub

B、Private Sub Text1_LostFocus() Text1.SelStart=0

Text1.SelLength=Len(Text1.text) End Sub

C、Private Sub Text1_Change() Text1.SelStart=0

Text1.SelLength=Len(Text1.text) End Sub

D、Private Sub Text1_SetFocus() Text1.SelStart=0

Text1.SelLength=Len(Text1.text) End Sub

15、Cls 方法可清除窗体或图片框中的信息是（ C ）

A、Picture 属性设置的背景图案 B、在设计时放置的控件 C、程序运行时产生的图形和文字 D、以上方法都对 16、如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是（ C ）

A、移去第一项 B、移去最后一项 C、移去最后加入列表一项 D、以上都不对 17、只有将组合框的Style 属性设置为（ B ）时，才能触发DblClick 事件？ A、0 B、1 C、2 D、3

18、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是（ A ） 。

A、Value B、Default C、Cancel D、visible 19、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load () List1.AddItem\ List1.AddItem\ List1.AddItem\ Listl.AddItem\ Text1.Text=\ End Sub

Private Sub List1_ DblClick ( ) a =List1.Text

Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的\，则输出结果为（ C ）。 A、1245 B、456789 C、789456 D、 0 20、在窗体（名称为Form1 ）上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：（A）

A、Private Sub Text1_Change()

Command1.Caption= ”计算机等级考试” End Sub

B、Private Sub Command1_Click() Caption= ”计算机等级考试” End Sub

C、Private Sub Form1_Click()

Text1.Caption= ”计算机等级考试” End Sub

D、Private Sub Command1_Click() Text1.Text= ”计算机等级考试” End Sub

（二）判断题（对的在括号内打“√”，错的在括号内打“×” ）

1．（T ）下拉组合框和简单组合框（Style=0/1）时，允许用户输入那些不在列表中的选项。 2．（F ）三种方式的组合框都允许用户输入那些不在列表中的选项。 3．（F ）垂直滚动条的最上端代表最大值（MAX ），最下端代表最小值(MIN)。 4．（T ）能够将文本框控件隐藏起来的属性是visible 。 5．（T ）能够改变复选框中背景颜色的属性是BackColor。 6．（T ）Timer 控件在程序运行时是不可见的。 7．（F ）如果文本框的Enabled 属性设为False，文本框的文本将变成灰色，用户能将光标

置于文本框上，但是不能改变文本框中的内容。

8．（F ）为了使标签框的内容靠右显示，应把Alignment 属性设置为0。 9．（T ）图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性

是Strentch。

10．（T ）一种控件组合了文本框和列表框的特性，这种控件是组合框。 11．（F ）为了防止用户随意将光标置于控件上，应将该控件的TabIndex 属性设置为0。 12．（T ）Button 控件可以接收 Click 事件，但不会接收DBclick 事件。

第五章

（一）选择题

1、以下能够正确计算n!的程序是（ C ）。

A、Private Sub Command1_Click() B、Private Sub Command1_Click() n=5:x=1 n=5;k=1;i=1 Do Do

x=x*i X=X*i i=i+1 i=i+1 Loop While i

C、Private Sub Command1_C1ick() D、Private Sub Command1_Click()

n=5:x=1:i=1 n=5:x=1:i=1 Do Do x=x*i x=x*i i=i+1 i=i+1

Loop While i<=n Loop While i>n Print x Print x End Sub End Sub

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

Private Sub Command1_Click() S=0

For i=1 To 15 x=2*i-1

If x Mod 3=0 Then S=S+1 Next i

Label1.Caption=S End Sub

程序运行后，单击命令按钮，则标签中显示的内容是（ B ）。

A、1 B、5 C、27 D、45 3、在窗体上画一个Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0

n=InputBox(\ For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是（ D ）。 A、3 B、4 C、5 D、6 4、在窗体上画一个名称为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

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

A、7 9 B、34 0 C、9 7 D、死循环

5、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num AS Integer num=1

Do Until num>6 Print num； num=num+2.4 Loop End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是（ B ）。 A、1 3.4 5.8 B、1 3 5 C、1 4 7 D、无数据输出 6、设有以下循环结构 Do

循环体 Loop While<条件>

则以下叙述中错误的是（ A ）。

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

D、如果“条件”总是为True，则不停地执行循环体 7、设有如下程序：

Private Sub Command1_Click()

Dim sum AS Double,X AS Double sum=0 n=0

For i=1 to 5 x=n/i n=n+1

sum=sum+x Next End Sub

该程序通过For 循环计算一个表达式的值，这个表达式是（ C ）。 A、1+1/2+2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5

8、在窗体上画一个名称为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

程序运行后，如果单击命令按钮，则窗体上显示的内容是（ C ）。 A、15 B、18 C、21 D、24 9、在窗体上画一个名称为Command1 的命令按钮和两个名称分别为Text1、Text2 的文本框，然后编写如下事件过程：

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

Case 1 To 20 x=10 Case2,4,6 x=20 Case Is<10 x=30 Case 10 x=40 End Select Text2.Text=X End Sub

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

显示的内容是（ A ）。

A、10 B、20 C、30 D、40

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

Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i)

If i Mod j=0 Then Exit For Next j

If j>Sqr(i) Then Print i Next i End Sub

该事件过程的功能是（ C ）。

A、输出n 以内的奇数 B、输出n 以内的偶数 C、输出n 以内的素数 D、输出n 以内被j 整除的数 11、在窗体上画一个命令按钮(其Name 属性为Command1)，然后编写如下代码： Option Base 1

Private Sub Command1_Click() Dim a s=O

a=Array(1,2,3,4) i=1

For j=4 To 1 Step -1 s=s+a(i)*i

i=i*10 Next i Print S End Sub

运行上面的程序，单击命令按钮，其输出结果是（ B ）。 A、4321 B、1234 C、34 D、12

12、以下Case 语句中错误的是（ C ）。

A、Case 0 To 10 B、Case Is>10 C、Case Is>10 And Is<50 D、Case 3,5,Is>10 13、设有如下程序段： x=2

For i=1 To 10 Step 2 x=x+i Next

运行以上程序后，x 的值是（ B ）。

A、26 B、27 C、38 D、57 14、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static X AS Integer Cls

For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub

程序运行后，连续三次单击 Command1 按钮后，窗体上显示的是（ B ）。

A、4 2 B、12 18 C、12 30 D、4 6 15、[多选题]下列程序段的执行结果可以为（ BD ）。 X=Int(Rnd+4+0.5) Select Case x Case 5

Print \优秀\ Case 4

Print \良好\ Case 3

Print \中\ Case 2

Print \及格\ Case Else

Print \不及格\ End Select

A、中 B、优秀 C、不及格 D、良好 E、及格 16、设有如下程序：

Private Sub Command1_Click() Dim c As Integer,d As Integer c=4

d=InputBox(\请输入一个整数\ Do While d>0 If d>c Then c=c+1

End If

d=InputBox(\请输入一个整数\ Loop Print c+d End Sub

程序运行后，单击命令按钮，如果在输入对话框中依次输入 1、2、3、4、5、6、7、8、9、0， 则输出结果是（ D ）。

A、12 B、11 C、10 D、9 17、在窗体上画一个名称为Command1 的命令按钮，然后编写如下程序： Option Base 1

Private Sub Command1_Click() Dim c As Integer,d As Integer

d=0 C=6

x=array(2,4,6,8,10,12) For i=1 To 6 If x(i)>c Then

d=d+x(i) c=x(i) Else

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

程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ C ）。

A、10 B、16 C、12 D、20 18、在窗体上画一个命令按钮和一个文本框，名称分别为Command1 和Text1，然后编写如下程序：

Private Sub Command1_Click()

a=InputBox(\请输入日期(1～31)\ t=\旅游景点：\

&IIf(a>10 And a<=10,\长城\ &IIf(a>10 And a<=20,\故宫\ &IIf(a>20 And a<=31,\颐和园\ Text1.Text=t End Sub

程序运行后，如果从键盘上输入 16，则在文本框中显示的内容是（ D ）。 A、旅游景点：长城故宫 B、旅游景点：长城颐和园 C、旅游景点：颐和园 D、旅游景点：故宫 19、下述程序段中，与其他3 个程序段作用不同的是（ A ）。 A、s=0 i=0

While i>100 s=s+i Wend B、s=0 i=0

While i<100 i=i+1 Wend C、s=0 i=1

Do While i<100 s=s+1 Loop

D、s=0 i=0

Do Until i>100 s=s+1 Loop

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

Print _________ Next End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD

则在____处应填人的内容为（ B ） A、Left(c,n) B、Right(c,n) C、Mid(c,n,1) D、Mid(c,n,n)（二）判断题（对的在括号内打“√”，错的在括号内打“×” ） 1、（ T）If x>y Then Max=x Else Max=y 程序段是求两个数中的最大数。 2、（F ）命令按钮Command1 的单击事件代码如下： Private Sub Command1_Click() Dim I As Integer I=I+1 End Sub

单击该按钮3 次,I 的值为3 3、（T ）Visual Basic 具有三种基本的流程控制结构：顺序结构、分支结构和循环结构。 4、（F ）阅读下面的程序段： x = 6 y = 3

If x > y Then t = x x = y y = x End If

该程序的功能是：若x 大于y 的值，则交换x 和y 的值。 5、（T ）在for...next 循环中，Exit For 子句是可选项，它可以放置在循环体语句中的任何位置。 6、（T ）End 语句提供了一个强迫终止程序的运行的方法，它可以放在任何事件过程中。 7、（T ）在VB 编程语句中，利用GoTo 语句可以构成循环结构。 8、（F ）在VB 编程语句中，GoTo 语句中使用的“标号”是一个以分号结尾的标识符。 9、（F ）在VB 编程语句中，GoTo 语句比较容易理解，在实际编程中大力提倡使用 GoTo 语句。

10、（T ）在Do....Loop 循环语句中，若要强制退出该循环，使用的退出语句是Exit Do. 11、（T ）在For?Next 循环中，其中 step 步长可以是正数,负数或者零。 12、（F ）if 6>5 then x=5 endif 是一条合法语句。 13、（F ）在Do-Loop ［While ｜Until ］循环中，While 关键字或Until 关键字必须选择其中之一。 14、（T ）阅读下面的程序段： s = 0

For i = 1 To 3 Step 0 s = s + i i = i + 1 If i = 3 Then Exit For End If Next Print s

该程序运行结果，s 的值是 3 。 15、（ T）下面程序运行时 For M=1 To 3

For N=0 To M-1 Next N Next M

内层循环的循环总次数是6 次。 16、（ F）For/Next 循环正常（未执行Exit For）结束后，控制变量的当前值等于终值。 17、（ F）在循环体内，循环变量的值不能被改变。 18、（ T）Do/Loop While 结构中的循环体，至少被执行一次。 19、（F ）Do/Loop Until 结构的循环，是“先判断、后执行（循环体）”的循环结构。 20、（ T）使用On Error GoTo 语句并编写相应程序，可以捕获程序中的编译错误。

第六章

（一）选择题

1、要分配存放如下方阵的数据： 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9

数组声明语句能实现（不能浪费空间）的是（ C ） A、Dim a(9) As Single B、Dim a(3,3) As Single

C、Dim a (-1 To 1,-5 To -3) As Single D、Dim a (-3 To 1,-5 To 7) As Integer 2、10.数组声明语句：Dim a(3,-2 To 2,5)

则数组a 包含的元素的个数为（ A ）

A、120 B、75 C、60 D、13 3、设有如下程序

Option Base 1

Private Sub Commandl_Click() Dim a(10)As Integer Dim n As Integer

n=InputBox( “输入数据”) If n<10 Then

Call GetArray(a,n) End If End Sub

Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0

Fori=1 TOn

b(i)=CInt(Rnd()*100) Ifb(i) ／2=b(i) ＼2 Then J=j+1 c(j)=_b(i) End If Next Primj EndSub

以下叙述中错误的是（ C ）。 A、数组b 中的偶数被保存在数组c 中

B、程序运行结束时，在窗体上显示的是c 数组中元素的个数 C、GetArray 过程的参数n 是按值传送的

D、如果输入的数据大于 10，则窗体上不显示任何信息

4、在窗体上画一个名称为Commandl 的命令按钮，然后编写如下事件过程： Option Base l

Private SubCommandl Click() Dim a

a=Array(1，2，3，4，5) For i=1 To UBound(A. a(i)=a(i)+I-l Next Print a(3) End Sub ．

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

A、4 B、5 C、6 D、7 5、阅读程序

Option Base l

Private Sub Form_Click() Dim arr，Sum Sum=0

arr=Array(1，3，5，7，9，ll，13，15，17，19) For i=1 To lO

If arr(i) ／3：art(i) ＼3 Then Sum=Sum+arr(i) End If

Next i Print Sum End Sub

程序运行后，单击窗体，输出结果为（ C ）。 A、13 B、14 C、27 D、15 6、在窗体上画一个名称为Commandl 的命令按钮，然后编写如下程序： 010tion Base l

Private Sub Commandl Click() Dim a As Variant

a=Array(1，2，3，4，5) Sum=0

For i=l To 5

Sum=Sum+a(i) Next i

x=Sum ／5 For i=1 TO 5

If a(i)>x Then Print a(i)； Next i End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是（ D ）。 A、 1 2 B、 1 2 3 C、 3 4 5 D、 4 5 7、以下程序 Dim a

a=Array(1,2,3,4,5,6,7)

For i=Lbound (A. To Ubound (A. a(i)=a(i)*a(i) Next i Print a(i)

输出结果是 D

A、49 B、 0 C、不确定 D、 程序出错

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

Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i

Text1.Text = array1(2, 3) + array1(3, 4) End Sub

程序运行后，单击命令按钮，在文本框中显示的值是（ D ） A、15 B、14 C、13 D、12

9、在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1 （下标从0 开始，自左至右顺序增大），然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i) = Text1(i).Index i = i + 1 Next End Sub

程序运行后，单击命令按钮，四个文本框中显示的内容分别为（ A ） A、0 1 2 3 B、1 2 3 4 C、0 1 3 2 D、出错信息 10、有如下程序： Option Base 1

Private Sub Form_Click() Dim arr, Sum Sum = 0

arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1 To 10

If arr(i) / 3 = arr(i) \\ 3 Then Sum = Sum + arr(i) End If Next i Print Sum End Sub

程序运行后，单击窗体，输出结果为（ C ） A、25 B、26 C、27 D、28 11、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5

a(i) = Chr(Asc(\ Next i

For Each b In a Print b; Next End Sub

程序运行后，单击命令按钮，输出结果是（ A ） A、ABCDE B、1 2 3 4 5 C、abcde D、出错信息 12、已知有数组声明：Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元素，正确的是 A、a(-1,2) B、a(4) C、a[-1,2] D、a(0,6) 13、下列有关控件数组与一般控件的区别的叙述中，最合理的是（ B ） A、控件数组一定由多个同类型的控件组成，一般控件只有一个控件； B、控件数组的Index 为0，而一般控件的Index 为空； C、控件数组的Index 为 1，而一般控件的Index 为0；

D、控件数组的建立通过Dim 语句声明，而一般控件不必声明。

A 14、对窗体编写如下代码： Option Base 1

Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237, 126, 87, 48, 498) m1 = a(1) m2 = 1

If KeyAscii = 13 Then For I = 2 To 5

If a(I) > m1 Then m1 = a(I) m2 = I End If Next I End If Print m1 Print m2 End Sub 程序运行后，按回车键，输出结果为（ A A、498 5 B、498 4 C、48 4 D、237 15、在窗体上画一个名称为Label1 的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i

Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub

程序运行后，单击窗体，在标签中显示的内容是（ B A、12 B、13 C、18 D、15 16、阅读程序： Option Base 1

Dim arr() As Integer

Private Sub Form_Click()

Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i

ReDim Preserve arr(3, 4)

）。。 ） For j = 3 To 4 arr(3, j) = j + 9 Next j

Print arr(3, 2) + arr(3, 4) End Sub

程序运行后，单击窗体，输入结果为（ A ）。 A、21 B、13 C、8 D、25 17、在窗体上画一个名称为Command1 的命令按钮，然后编写如下程序： Option Base 1

Private Sub Command1_Click() Dim c As Integer, d As Integer d = 0 c = 6

x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6

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

d = d - c End If Next Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ C ）。 A、10 B、16 C、12 D、20 18、假定建立了一个名为Commandl 的命令按钮数组，则以下说法中错误的是（ B ）。 A、数组中每个命令按钮的名称(Name 属性)均为Commandl B、数组中每个命令按钮的标题(Caption 属性)都一样 C、数组中所有命令按钮可以使用同一个事件过程

D、用名称Commandl(下标)可以访问数组中的每个命令按钮 19、在窗体上画一个名称为Labell 的标签，然后编写如下事件过程： Private Sub Form_Click()

Dim arr(10，10)As Integer Dim I As Integer,j As Integer For i=2 TO 4

For j=2 To 4 arr(i,j)=I*j Next j Next i

Labell ．Caption=Str(arr(2，2)+arr(3，3)) End Sub

程序运行后，单击窗体，在标签中显示的内容是（ B ）。 A、12 B、13 C、14 D、15

20、阅读程序： Option Base l

Dim arr()As Integer

Private Sub Form_Click()

Dim I As Integer,j As Integer ReDim arr(3，2) For i=1 TO 3 For j=1 To 2

arr(i，j)=I*2+j Next j Next i

ReDim Preserve arr(3，4) For i=3 To 4

arr(3，j)=j+9 Next j

Print arr(3，2)+arr(3，4) End Sub

程序运行后，单击窗体，输入结果为（ A ）。 A、121 B、13 C、8 D、25 （二）判断题（对的在括号内打“√”，错的在括号内打“×” ） 1、（ F）在Visual Basic 中，用Dim 定义数组时数组元素也自动也自动赋初值为零 2、（F ） option Base 语句在模块中使用，用来显式说明数组上界。 3、（T ）动态数组是元素个数在运行时可以改变的数组 4、（T ）数组的引用通常是指对数组元素的引用，其方法是在数组后面的括号中指定下标 5、（F ） ReDim 语句可以在模块级中使用 6、（T）使用ReDim 语句会使原来数组中的值丢失，可以在ReDim 语句后加Preserve 参数来保留数组中的数据。 7、（F ）用Erase 语句清除动态数组，数组依然存在内存。 8、（F ）可以使用Lbound 函数来测试数组的下界值。 9、（T ）数组必须先定义后使用。 10、（F ）控件数组共用一个控件名，但具有不同的属性，它们的事件过程也不相同。

第七章

（一）选择题

1．SUB 过程与Function 过程最根本的区别在于（ D ） A. sub 过程可以使用call 语句或直接使用过程名调用，而Function 过程不可以 B. Function 过程可以有参数，sub 过程不可以 C. 两种过程参数的传递方式不同

D. sub 过程的过程名不能返回值，而Function 过程能通过过程名返回值 2．在代码中定义了一个子过程 sub p(a,b) …

end sub

下面（ C ）调用该过程的格式是正确的

A. call p B. call p 12,30 C. call p(10,20) D. p(10,20)

3．下列程序输出结果为（ B ） Private Sub Command1_Click() a%=10 b%=5

Change a,b Print a,b End Sub

Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b b=tmp End Sub

A. 5 5 B. 10 10 C. 10 5 D. 5 10

4．过程调用时，下列关于形参与实参之间数据传递的原则说法正确的是（D ） A. 按实参和形参同名的原则 B. 按实参和形参位置对应的原则

C. 按实参和形参个数相同并且类型也对应的原则

D. 按实参和形不仅位置对应，而且类型也对应的原则

5．过程调用时，下列说法不正确的是（ D ） A. 数组、记录类型、对象参数只能是地址传递

B. 形参是值传递，对应实参可以是表达式、常量、数组元素 C. 形参是地址传递，对应实参只能是简单变量 D. 形参是地址传递，对应实参只能是表达式

6．下面关于可选参数过程的说法不正确的是（ C ） A. 通过 optionnal 指定可选的参数，

B. 可选参数必须在参数表的最后，其类型必须是Variant， C. 可选参数必须在参数表的最后，其类型可以设置为integer

D. 过程中通过IsMissing 函数测试是否已向可选参数传送了实参值。 7．下面关于可变参数过程的说法不正确的是（ B ）

A. 可变参数过程定义的格式为：sub 过程名{ParamArray 数组名} B. 数组名是一个形式参数，下界必须设为 1 C. 可变参数过程中不能有可选参数

D. 数组名是一个形式参数，只有名字和括号，其类型必须是Variant 。 8．下面说法不正确的是（ A ）

A. 对象参数过程的实参和形参的控件必须拥有同样的属性 B. 对象参数过程的形参的类型可以是 form 或control C. shell 函数和其他函数一样，只能作为语句中的表达式 D. 为了防止递归调用的“栈溢出”，要设法使每递归调用一次，其中的参数要向终止方向收敛，能够在有限步内达到终止条件。

9．下面过程定义语句中合法的是（ D ） A. sub proc(byval n()) B. sub proc(n) as integer C. function proc (proc) D. function proc(byval n) 10．运行下面程序的结果是（ B ）三个数 Private Sub Form_Click()

…… End Sub

C、Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

…… End Sub

D、Private Sub Form_Load() …… End Sub

4. 在窗体上一个文本框，其名称为Text1,然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String ,n As Integer str = UCase (Chr(KeyAscii)) n=Len(str)

Text1=String(n, str) End Sub 程序运行后，如果在键盘上输入单字母\，则在文本框Text1 中显示的内容为（ C ） A、kk B、kK C、KK D、Kk 5. 以下叙述中错误的是（ C ）

A、在KeyUp 和KeyDown 事件过程中，从键盘上输入A 或a 被视作相同的字母(即具有相同的KeyCode)

B、在KeyUp 和KeyDown 事件过程中,将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)

C、KeyPress 事件中不能识别键盘上某个键的按下与释放 D、KeyPress 事件中可以识别键盘上某个键的按下与释放

6. 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 C

A、MouseDown B、MouseUp C、Load D、Click 7. 窗体的MouseDown 事件过程Form_MouseDown (ButtSingle As Integer, Shift As Integer, X As Single, Y As Single) 有4 个参数，关于这些参数，正确的描述是（ A ）

A、通过Button 参数判定当前按下的是哪一个鼠标键 B、Shift 参数只能用来确定是否按下 Shift 键

C、Shift 参数只能用来确定是否按下Alt 和Ctrl 键 D、参数x,y 用来设置鼠标当前位置的坐标

8. 在窗体上画一个名称为Text1 的文本框，并编写如下程序： Private Sub Form_Load() Show

Text1.Text = \ Text1.SetFocus End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print \程序设计\ End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print \

End Sub

程序运行后，如果按\键，然后单击窗体，则在窗体上显示的内容是（ D ） A、Visual Basic B、程序设计 C、A 程序设计 D、Visual Basic 程序设计 9. 在窗体上一个文本框，其名称为Text1,然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String ,n As Integer str = UCase (Chr(KeyAscii)) n=Len(str)

Text1=String(n, str) End Sub 程序运行后，如果在键盘上输入单字母\，则在文本框Text1 中显示的内容为（ C ） A、kk B、 kK C、KK D、Kk 10. 在窗体上画一个名称为TxtA 的文本框，然后编写如下的事件过程： Private Sub Txta_KeyPress(keyascii as integer) End Sub

若焦点位于文本框中，则能够触发KeyPress 事件的操作是（ D ） A、单击鼠标 B、双击文本框

C、鼠标滑过文本框 D、按下键盘上的某个键 11. 与键盘操作有关的事件有KeyPress、KeyUp 和KeyDown 事件，当用户按上并且释放一个键后，这三个事件发生的顺序是（ B ）

A、KeyDown、KeyPress、KeyUp B、KeyDown、KeyUp、KeyPress C、KeyPress、KeyDown、、KeyUp D、没有规律 12. 对窗体编写如下事件过程：

Private Sub Form _MouseDown(Button As Integer, _ Shift As Integer, X As Single Y As Single) If Button =2 Then Print \ End If End Sub

Private Sub Form _ MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Print \ End Sub

程序运行后，如果单击鼠标右键，则输出结果为（ A ）。

A、AAAAA B、BBBBB C、AAAAA D、BBBBB BBBBB AAAAA 13. 以下不属于键盘事件的是（ C ）

Ａ、KeyDown Ｂ、KeyUp Ｃ、Unload Ｄ、KeyPress 14. 以下关于KeyPress 事件过程中参数KeyAscii 的叙述中正确的是（ A ） A、KeyAscii 参数是所按键的ASCII 码 B、KeyAscii 参数的数据类型为字符串 C、KeyAscii 参数可以省略

D、KeyAscii 参数是所按键上标注的字符

15. 把窗体的KeyPreview 属性设置为True,然后编写如下事件过程:

Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyAscii)

KeyAscii = Asc(UCase(ch)) Print Chr(KeyAscii + 2) End Sub

程序运行后,按键盘上的”A”键,则在窗体上显示的内容是（ C ） A、A B、B C、C D、D

16. 在窗体上画一个名称为TxtA 的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyascii as integer) …… End Sub

若焦点位于文本框中，则能够触发KeyPress 事件的操作是（C ） A、单击鼠标 B、双击文本框

C、鼠标滑过文本框 D、按下键盘上的某个键 17. 对窗体编写如下代码：

Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = a(1) m2 = 1

If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(i) m2 =i End If Next i End If Print m1 Print m2 End Sub

程序运行后，按回车键，输出结果为（ C ）

A、 48 B、 237 C、498 D、498 4 1 5 4 18. 下列说法正确的是（ A ）。 A、KeyDown 事件在KeyPress 事件前发生

B、KeyPress 过程等不可以使用Call 语句来调用 C、MouseUp 事件在Click 事件之后发生

D、控件响应Click 事件后不再响应MouseUp 事件

19. 如果按下组合键：Ctrl+A 则 Shift 参数的值是（ C ） A、0 B、1 C、2 D、49 20. 编写如下两个事件过程：

Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)

End Sub

***************************************************************** Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub

在一般情况下(即不按住Shift 键和锁定大写键时) 运行程序，如果按\键，则程序输出的结果是（ C ）

A、A B、a C、A D、a a A A （二）判断题（对的在括号内打“√”，错的在括号内打“×” ）

1. （F ）若用户在键盘上按下一个键，则会产生一个单击事件（Click 事件）。

2. （T ） 对所有控件来说，鼠标事件发生的先后次序是：MouseDown，MouseUp，Click。 3. （F）KeyAscii 和KeyCode 都是用Ascii 码表示，所以它们的含义完全相同。

4. （ F） 当Form 的KeyPrivew 参数为True 时，在窗体的控件上单击则不会发生Form_Click 事件。

5. （T ） 如果按下组合键：Ctrl+Alt+Shift 则 Shift 参数的值是7。 6. （F ）鼠标事件过程中不会出现Index 参数。

7.（F ）如果在Default 属性为True 按钮控件上按Enter 键也会发生Click、MouseUp 和MouseDown事件。

8. （ F） 鼠标光标正位于目标对象区域之内是State 参数的值为 10。 9. （T ）如果在某控件上双击则会发生两次MouseDown 事件。 10. （T ） KeyCode 可以识别键盘上的所有键而KeyPress 不能。

第十章

（一）选择题

1. 以下关于多重窗体程序的叙述中，错误的是（ A ） A、用hide 方法不但可以隐藏窗体，而且能清除内存中的窗体 B、在多重窗体程序中，各窗体的菜单是彼此独立的 C、在多重窗体程序中，可以根据需要指定启动窗体 D、在多重窗体程序中，需要单独保存每个窗体

2. 假定一个工程文件由一个窗体文件 form1 和两个标准模块文件model1 及model2 组成 model1 代码如下：

Public x As Integer Public y As Integer Sub s1() x = 1 s2 End Sub Sub s2() y = 10

Form1.Show End Sub

Model2 代码如下： Sub main() s1

End Sub

其中 Sub main()被设为启动过程，程序运行后，各模块的执行顺序是（ C ） A、form1→model1→ model2 B、model1→model2→form1 C、model2→model1→ form1 D、model2→form1→ model1 3．以下叙述中错误的是（ C ） A、一个工程中只能有一个sub main 过程

B、窗体的show 方法是将指定的窗体装入不、内存并显示该窗体 C、窗体的hide 方法和unload 语句作用效果相同

D、)如工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 4．下列叙述错误的是（ C ） A、一个应用程序可以只有一个窗体 B、一个应用程序通常由多个窗体组成

C、一个窗体一定对应一个窗体文件，所以一个应用程序只能包含一个窗体 D、一个应用程序只能有一个启动窗体

5．如果要在应用程序建立另一个窗体，正确的操作方法是（ B ） A、在“文件”下拉菜单中选择“添加窗体”命令 B、在“工程”下拉菜单中选择“添加窗体”命令 C、在“编辑”下拉菜单中选择“添加窗体”命令 D、在“工具”下拉菜单中选择“添加窗体”命令

6．在当前工程中添加一个新的窗体，下列操作方法错误的是（ D ） A、在“工程”下拉菜单中选择“添加窗体”命令

B、从工具栏中选择工程，单击其下拉菜单，从弱出的列表中选择“添加窗体”命令 C、在工程资源管理器中，在工程图标上右键单击鼠标，打开快捷菜单，选择“添加”（Add ）选项下的“窗体”(Form)选项

D、在代码窗口或属性窗口中输入一个新的窗口名称，即自动建立一个新的窗体 7．程序运行时要使某一个窗体显示出来，应该使用（ A ） A、Show 方法 B、Hide 方法 C、Load 语句 D、Unload 方法 8．下列关于“启动窗体”的说法，错误的是（ B ） A、系统默认将第一个建立的窗体作为启动窗体 B、系统默认最后一个被编辑的窗体作为启动窗体 C、多窗体程序中，只能有一个窗体是启动窗体 D、可以根据需要，设定某一个窗体作为启动窗体

9．Mdiform 为MDI 窗体，其中有菜单MunTest,Forml 为子窗体，也有菜单MunTest，执行下列程序后，单击MunTest 菜单，输出结果为（ A ）

其中Mdiform 中代码如下： Private Sub mdiform_Load() Form1.Show End Sub

Private Sub mnutest_Click() MsgBox \ End Sub

Form1 中代码如下：

Private Sub mnutest_Click() MsgBox \

17、用Write 和Print 语句向文件中写入多个数据的差别在于（ C ）。 A、Write 语句不会自动在数据项之间插入逗号 B、Prim 语句自动在数据项之间插入逗号

C、Write 语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 D、Print 语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 18、以下语句可以实现将文件filename1 复制为filename2 的是（ C ）。 A、Name filenamel,filename2 B、Copy filenamel,filename2 C、FileCopy filename1,filename2 D、Duplicate filename1,filename2

19、要获得当前驱动器应使用驱动器列表框的哪个属性（ B ）。 A、Path B、Drive C、Dir D、Pattern （二）判断题（对的在括号内打“√”，错的在括号内打“×” ） 1、（f ）顺序文件中记录存放的顺序是按每条记录的记录号从小到大排序好的。 2、（f ）可以通过编程对顺序文件中的某条记录随机地进行修改。 3、（t ）当对文件操作完毕，要关闭程序所打开的所有文件应使用语句：“Close all”（双引号部分）。 4、（t ）一条Print# （或Write# ）语句可以将若干个数据项写入数据文件中，但这些数据项类型可以是不同的。 5、（t ）随机存取文件通常用于保存成批处理的大量数据。 6、（ t）随机文件以记录为单位读写。 7、（ t）在VB6.0 中，当改变目录列表框的path 属性时，改变了当前驱动器的当前路径。 8、（ t）在盘驱动器列表框Drive1 的Change 事件过程中，代码Dir1.Path = Drive1.Drive 的作用是：当Drive1 的驱动器改变时，Dir1 的目录列表随不同驱动器作相应改变。 9、（f ）以Input 方式打开的文件只能读不能写。 10、（f ）在Open 语句中用 Append 方式所打开的文件必须已经存在, 否则会出现运行错误。 11、（ t）目录列表框的Path 属性，只能用程序代码设置，不能通过属性窗口设置。 12、（t ）在程序运行中，目录列表框DirListBox 将以树形展开方式显示某个盘或目录内的各个子目录名，并用是否为打开的文件夹图标来表示选定的目录。 13、（f ）由于列表项的内容是由系统自动产生的，因而在运行时，用户不能人为地用代码来改变目录列表框中List 属性的值。 14、（f ）若某文件已存在，用OUTPUT 方式打开该文件，等同于用APPEND 方式打开该文件。 15、（ t）用Kill 语句删除文件，只能删除与指定文件名完全匹配的一个文件。 16、（t ）Open 语句中的文件号，必须是当前未被使用的、最小的作为文件号的整数值。 17、（f ）文件列表框与盘驱动器列表框、目录列表框一样，都能响应Change 事件。 18、（ f）可以用AddItem 方法向目录列表框中加入新表项。 19、（ f）文件操作语句Name 不仅可以修改文件名称，而且可以移动文件的位置。 20、（ t）用OUTPUT 模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。

本文来源：https://www.bwwdw.com/article/cdha.html