VB_经典考试题及答案

目录

一、填空题 (2)

二、选择题 (5)

三、程序填空 (18)

四、阅读程序写结果 (25)

五、编程题 (31)

六、历年全国计算机二级等级考试真题(附答案) (33)

2006年4月全国计算机等级考试二级VB笔试试卷 (33)

2005年9月全国计算机等级考试二级VB笔试试卷 (43)

2005年4月全国计算机等级考试二级VB笔试试卷 (50)

2004年9月全国计算机等级考试二级VB笔试试卷 (57)

一、填空题

1、在程序中使用日期型数据时，必须用符号 将日期型数据括起来。

2、VB 集成发环境窗口，它包括了数个独立的窗口。除必须的"主窗口"外，常用的还有 窗口、 窗口、 窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。

3、在计算机上建立一个VB 应用程序的完整过程，一般分：建立用户界面的对象、对象属性的设置 、对象事件过程及编程、 程序的运行和调试 和 保存文件 五个步骤。

4、VB 中每个对象都有自己的属性， visible 属性决定控件是否允许可见。

5、在VB 对象的三要素中，可以把 属性 看作一个对象的性质，把 事件 看作对象的响应，把 方法 看作对象的动作。

6、VB 有三种工作模式，它们分别是 模式、 模式和 模式。

7、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal 属性值应设置为 。 8、在VB 中，为了使一个控件在运行时不可操作，应将控件的 enable 属性设置为 false 。

9、为了防止用户编辑文本框内的内容，应将控件的 locked 属性设置为 true 。 10、当要使标签框的大小随着Caption 属性的值进行扩展或缩小时，应将该控件的 autosize 属性设置为 true 。

11、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim 声明语句是 dim ch5 as string*8 。

12、VB 中拥有多个窗体的程序可用 load 语句窗体装入内存，用 unload 语句从内存中删除指定窗体.

13、在多窗体工程中，可用 show 方法显示一个窗体，用 hide 方法将一个窗体隐藏起来。

14、结构化程序设计方法，把程序的结构规定为

三种基本结构，它们是： 选择结构 、 选择

结

构

、

和

__循环结构_________三种基本结构。

15、VB 逻辑数据类型只有True 与False 两个值。当逻辑数据转换成整型数据时，True 转换为 ，False 转换为 。

16、VB 中依据变量的作用范围将VB 变量的作用范围分为三类，它们是： 局部 变量、 全局 变量和 窗体模块 变量。

17、VB 中，对控件（对象）一些属性的设置，即可以通过在 程序代码 中设置，也可以在 属性窗口 中设置，两种方法来设置。 18、在VB 中，静态数组声明中的下标只能是 常

量 。而动态数组Redim 语句中的下标还可以是已赋值 的变量。

19、产生100～200之间（含100和200）的随机整数的表达式是： 。

20、表达式4 AND 5 的运算结果是 4 。

21、VB 中，当KeyPress 事件发生时会返回一个按键 的 ASCii 值。

22、VB 中，用Option Base 1说明后，Dim A （5，5）定义的数组有 25 个元素。 23、表达式“12345”<>“12345”&“ABC ”的值

是 。 24、在Select case 结构中应至少包含一个

__Case____子句。

25、启动VB6.0时，VB6.0默认的工程类型是 标准EXE 程序 。

26、A=7，B=3，C=4，则表达式A MOD 3 +B^3/C\5的值为 2 。

27、若要求在菜单中包含分隔条，则设计时，在菜单的标题属性中应设置为 “— “ 。 28、在For ……Next 循环中，循环次数由循环控制变量的初值、终值与步长三个因素决定，其计算公式为 循环次数=INT （终值-初值）/步长+1 。

29、激活属性窗口的快捷键是 F4 。 30、字符串常量由任何ASCII 字符组成，在程序中，它必须由 双引号 括起来。

31、假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是 text1。Setfocuse 。

32、假定在C：盘根目录下有一个名为pic2.gif 的图形文件，要在运行期间把该文件装入一个图片框picture1中，应执行的语句为picture1.picture=loadpicture(c:\pic2.gif) 。

33、在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用具有关键字的ReDim语句。

34、如果有三个选项按钮直接画在窗体上，另有四个选项按钮画在框架中，则运行时，可以同时选中个选项按钮。

35、 Visual Basic 提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个。

36、将一般窗体转换为MDI窗体的子窗体时要把属性的值设置为。

37、VB有两种类型的数组：固定大小的和在程序运行时可以改变的。

38、与数学表达式cos3（2π）相对应的Visual Basic表达式是__cos(2*3.14)^3_____。

39、表达式”ABC”>”Abc”的值为__false________。

40、表达式#2001－05-01#＋31的值为___________。

41、在对象的KeyDown和KeyUp事件过程中，当参数Shift的值为1、2、4时，分别表示用户按下了、和键。

42、在对象的MouseDown和MouseUp事件过程中，当参数Button的值为1、2、4时，分别代表按下了鼠标的左键、右键和中键按钮。

43、对象的属性、方法使用有所不同，form1.cls 是__方法________的使用。

44、生成消息框的命令__MsgBox_______ ，生成输入框的命令__inputbox________ 。

45、使用__print______方法可在图片框中进行文本的输出，用__pset______ 方法可画点，用

___line______ 方法可画直线。

46、用_________ 函数可加载图形，picture控件

的属性autosize和image控件的stretch属性的作

用都是。

47、现有自定义函数beeps,写出调用该函数的两种

方法（参数为5）_call beeps(5)__________ 、

____beep 5______ 。

48、弹出式菜单的设计方法同一般菜单，显示时

使用 ___________方法。

49、visual Basic中有一种控件组合了文本框和列

表框的特性，这种控件是___组合框_____

50、单选按钮被选中时，其value属性值为

true ；复选框被选定时，其 value属性值为1

或checked 。

51、Visual Basic应用程序由窗体模块、标

准模块、类模块等3种模块组成。

52、VB中常见的基本数据类型：_整型（Integer）

_________、_长整型（long）日期型（date）____

_____、__字符型（string）________、_逻辑型（booleean）________、____字节型（byte）、

___________等。

53、一个工程可以包括多种类型的文件，其中，

扩展名为.VBP的文件表示_工程_______文件；扩

展名为.FRM的文件表示_____窗口____文件；扩

展名为.BAS的文件表示标准模块______文件。

54、VB是一种面向对象的程序设计语

言，采用了事件驱动编程机制。

55、VB的注释语句采用‘字符开头，续

行符采用—，若一行上书写多句语句则

各语句间用冒号字符分隔。

56、Visual Basi提供的标准数据类型整型类型声

明时，其类型关键字是integer ；其类型符

是% 。

57、在程序运行时，如果将框架的enable 属性设为，则框架的标题呈灰色，表示

框架内的所有对象均被屏蔽，不允许用户对其进

行操作。

58、 clear 方法可清除列表框的所有内

容。

59、当用户单击滚动条空白处时，滑块的增量值由 largechange 属性决定。

60、假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value 属性的值，则该程序执行后，复选框处于选中状态。

61、要选择多个不相邻的控件，按住或键不放，再单击要选择的控件。

62、在Visual Basic中，其对话框主要分为3类，它们是：预定义的对话框、通用对话框、用户自定义对话框。

63、在类模块中，属性表示___对象的数据

_________ ，方法表示__对象能执行的动作

_________ 。

64、要强制显式声明变量，采用何语句_Option explict________ 。

65、计时器控件能有规律的以一定时间间隔触发_______事件，并执行该事件过程中的程序代码。

66、Tim（”口口ASCII口口”）的结果；RTi m(”口口ASCII口口口”)的结果。LTi m(”口口ASCII口口口”) 的结果。

注；口表示空格。

67、容器的实际可用高度和宽度由和 ScaleHeight和ScaleWidth 属性确定

68、一个控件在窗体上的位置由top 和left 属性决定，其大小由

height 和width 决定。

69、在VB中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）表示对象上的相对坐标。

70、以下语句的执行结果是。

I = Format(5459.4, "##,##0.00")

Print I

71、一个程序最多可以有 255 窗体。

72、EOF函数判断一个表示文件指针是否到了文件结束。LOF函数返回文件的字节数73、在VB中，1234、123456＆、12346E＋5、12346D ＋5这4个常数分别表示整形，长整型，单精度，双精度类型。

74、在VB中事件过程名由控件名和事件名构成。

75、设置对象属性中的Caption是指_____对象在窗体上显示的标题________，Name是指_对象的名称____________，Font是指__对象的字体_______。

76、VB中的控件分为内部控件、ActiveX控件和___可插入对象________三类。

77、VB 6.0提供了一种新的数据库访问技术，即ADO技术，通过该技术，能方便地访问多种数据库中的数据。

78、、在文本框中，通过selstare 属性能获得当前插入点所在的位置。

79、VB中对象与对象之间、对象与系统之间及对象与程序之间的通信都是通过事件

来进行的。

80、若命令按钮的名称为CmdExit，程序要求单击以上此命令按钮时，程序停止运行，请对以下事件过程填空。

Private Sub CmdExit_[click]()

End

End Sub

81、在Select case结构中，使用“To表达式”来指定一个范围时，必须把较小的值写在前面。

82、一组具有相同名称，不同下标的下标变量称为数组。

83、在DO……LOOP循环中，如果关键字While和Until不写，则形成死。

84、当程序开始运行，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的 text 属性设置成“”。

85、设a=2，b=3，c=4，d=5，下列表达式的值是。

A>b and c<>d or c=a

86、执行语句“a=6=5”后，变量a的值为。

87、Mid$（”什么是ASCII码”,4,6）的结

果。

88、窗体是一种对象，由定义其外观，由定义其行为，由定义其与用户的交互。

89、将文本框的ScrollBar的属性设置为2（有垂直滚动条），但没有垂真滚动条显示，原因是没有将 multiline 属性设置为True。90、列表框中项目的序号是从 0 开始的。

91、在一个窗体的程序代码中可以访问另一个窗体上的控件的属性，访问时控件名之前必须加上窗体名。

92、控件和窗体的Name属性只能通过属性窗口设置，不能程序代码中设置。

93、为了使一个标签透明且没有边框，必须把它的BorderStyle属性设置为0 ，并把BackStyle属性设置为0 。

94、Visual Basic6.0分为三种版本，这三种版本是学习版、专业版、和企业版

95、在VB中，用于管理文件系统的3个控件是________ 、________ 和________ 。

96、为了获得当前未被使用的文件号，可以利用VB提供的_freefile_______ 函数来实现。

97、列表框和组合框中，用方法addItem 来添加选项，用removeItem 方法来删除一个选项。

98、在VB中，用于文件复制的命令是_filecopy_______，用于删除文件的命令是__kikll______。

99、在Visual Basic中按文件的数据编码方式对文件分类，或将文件分为 ASCII 文件和二进制文件文件。

100、VB提供了三种访问文件的模式，分别是顺序访问模式________ 、随即访问模式________ 和_二进制访问模式_______ 。二、选择题

1、VB可分为（ c ）。

A)学习版、专家版和企业版

B)中文版、英文版和学习版

C)学习版、专业版和企业版

D)内部版、正式版和测试版

2、Visual Basic6.0集成环境的主窗口中不包括

(c )。

A)标题栏 B)菜单栏C)状态栏D)工具栏

3、下述的说法哪种是Windows的程序设计方法

(d )。

A) 面向对象、顺序驱动 B) 面向过程、事件驱动

C) 面向过程、顺序驱动 D) 面向对象、事件驱动

4、下列关于工具箱的说法正确的是( c)。

A) 工具箱中控件的数目是固定不变的。

B) 工具箱中包含了所有的VB控件。

C) VB的内部控件不能从工具箱中移除。

D) ActiveX控件不能添加到工具箱中。

5、下列不能打开代码窗口的操作是（d ）。

A)双击窗体上的某个控件B)双击窗体

C)按F7键D)单击窗体或控件

6、为了保存一个Visual Basic应用程序，应当（ d ），下列说法中正确的是（）。

A)只保存窗体文件(.frm) B)只保存工程文件(.vbp)

C)分别保存工程文件和标准模块文件(.bas)

D)分别保存工程文件、窗体文件和标准模块文件

7、与传统的程序设计语言相比，VisualBasic最突出的特点是

(c )。

A)结构化程序设计 B)程序开发环境

C)

事件驱动编程机制 D)程序调试技术

8

、关于Visual Basic“方法”的概念错误的是（a）

A)方法是对象的一部分

B)方法是预先规定好的操作

C)方法是对事件的响应

D)方法用于完成某些特定功能

9、设置对象的属性值是程序设计的重要步骤，关于属性的说明错误的是（b）

A)属性是一组可以由用户定义的数据

B)

属性名称是由用户定义确定的

C)属性用来描述对象的性质

D)

同一种类型的对象具有相同的属性 10、下列文件的扩展名错误的为（c ）

。

A)工程文件 .vbp B)窗体文件

.frm

C)二进制窗体文件.frm D)标准模块文件.bas 11、下列关于添加“控件”的方法正确的是(b )。 A)单击控件图档，将指针移到窗体上，双击鼠标 B)双击工具箱中的控体，即在窗体中央出现该控件

C)单击工具箱中的控件，将指针移到窗体上再单击

D)用鼠标左键拖动工具箱中的某控件到窗体中适当位置

12、下列关于事件的叙述中不正确的是(d )。 A)事件是系统预先为对象定义的能被对象识别的动作

B)事件可分为用户事件与系统事件两类 C)VB 为每个对象设置好各种事件，并定义好事件过程的过程名，但过程代码必须由用户自行编写

D) VB 中所有对象的默认事件都是Click 13、可决定窗体的左上角是否有控制菜单的属性是（ a ）。 A) ControlBox

B) MinButton

C) MaxButton D) BorderStyle

14、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是( a )。

A)单击窗体上没有控件的地方B)单击任一个控件 C) 不执行任何操作 D) 双击窗体的标题栏 15、Label 控件中内容能垂直方向变化而宽度保持不变则应设置（ a ）属性。

A) Wordwrap B) Enabled C) Locked D) AutoSize

16、在VB 中，要使标签控件(Label)中的文本居中对齐，应将(b )属性的值设置为2。 A) Autosize B) Alignment C) Borderstyle D) Caption

17、只能用来显示字符信息的控件是(b )。 A) 文本框 B) 标签框 C) 图片框 D) 图像框 18、若要使用户不能修改文本框TextBox1中内容，应修改（a ）属性。

A) Locked B) MultiLine C) PassWordChar D) ScrollBar

19、若要设置文本框中所显示的文本颜色，使用的属性是（ c ）。 A) BackColor B) FillColor

C) ForeColor

D) BackStyle

20、下面Change 事件过程中，文本框控件Text1用来接收字符的输入，该事件过程的作用是（b

）

Prvate Sub Text1_Change()

Text2.Text=Str(6.28*Val(Text.Text))

End Sub

A)将在文本框Text1

输入的数字变为数值

B)将在文本框Text1输入的数字作为半径，求圆的

周长并转换为字符串

C)只要Text1中的内容一改变，Text2中显示的圆

周长也随之改变

D)事件过程中的Val 函数和Str 函数使用错误，事件过程不能执行

21、若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置 （ c ）。

A) Text 属性值为* B) Caption 属性值为* C) password 属性值为空 D) Passwordchar 属性值为*

22、 我们在一窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change( ) Text2.text=ucase(Text1.text) End Sub

则在Text1文本框输入“vusual basic ”，Text2将(b )。

A) Text2文本框中将不显示内容。 B) Text2文本框将同时显示“VISUAL BASIC ”。 C) Text2文本框将同时显示“vusual basic ”。

D) Text2文本框将“Text1.Text”。

23、命令按钮Command1的Caption属性为“退出(x)”，要将命令按钮的快捷键设为Alt+x，应修改Caption属性为（ a ）。

A) 在x前插入& B) 在x后插入&

C) 在x前插入# D) 在x后插入#

24、若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（ c ）。

A) Value B) Cancel C) Default D) Enabled

25、设置命令按钮的标题时，应改变的属性是（c ）。

A) text B) Name C) Caption D) (名称)

26、双击窗体中的对象后，Visual Basic将显示的窗口是（b）。

A) 项目(工程)窗口B) 工具箱

C) 代码窗口D) 属性窗口

27、一个可执行的VB应用程序至少要包括一个

(b )

A) 标准模块B) 窗体模块

C) 类模块D) 资源文件模块

28、编译一个工程的目的是( c)。

A) 将工程的程序翻译成可以看懂的文件

B) 将工程的程序重新正确编排

C) 按工程的程序生成计算机能够执行的机器代码，使之能够脱离VB集成开发环境独立运行D) 检查工程中有无错误的机器代码，以便工程能够脱离VB集成开发环境独立运行

29、以下说法正确的是(c )。

A) 通过改变属性窗口中的name属性，来改变窗体的标题。

B) Private表示此过程只可被本工程中的其它过程调用。

C) 在多文档应用中，每次只能有一个活动的子窗体可以进行输入/编辑。

D) 列表框包含了组合框的功能。

30、关于设置控件属性的叙述正确的是(c )。

A) 用户必须重新设置属性的值，否则属性值为空。

B) 任何属性的值都可以由用户随意设置。C) 属性值可以由用户设置，也可以使用系统的默认设置。

D) 属性值只能在属性窗口中设置。

31、为了把焦点移到某个指定的控件，所使用的方法是( a )

A) SetFocus B) Visible C) Refresh D) GetFocus

32、以下( b)属性不能在运行时设置。

A) Caption B) Name C) Backcolor D) Fontsize

33、当一个工程含有多个窗体时，其中的启动窗体是( d )。

A)启动VisualBasic时建立的窗体

B)第一个添加的窗体C)最后一个添加的窗体

D)在“工程属性”对话框中指定的窗体

34、在VB的工程中，工程文件的扩展名是( c )。

A) frm B) vbg C) vbp D) bas

35、以下关于保存工程的说法正确的是( c )。

A) 保存工程时只保存窗体文件即可

B) 保存工程时只保存工程文件即可

C) 先保存窗体文件，再保存工程文件

D) 先保存工程文件，再保存窗体文件

36、要使Print方法在Form_load事件中起作用，要对窗体的属性进行设置，该属性是( c ).

A)BackColor B)ForeColor

C)AutoRedraw D)Caption

37、要使Forml窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( c ).

A）Forml.Caption＝“欢迎使用VB”

B）Forml.Caption＝‘欢迎使用VB’

C）Forml.Caption＝欢迎使用VB

D）Forml.Caption＝”欢迎使用VB”

38、当窗体被启动时，不被自动激发的事件是

(c ).

A)Load B)Activate C) Click

D)Resize

39、下面4项中不属于面向对象系统三要素的是

(a ).

A）变量B）事件C）属性D）方法

40、可视化编程的基本过程主要有三步，这三个步骤是（c ）

A )

创建工程、设计界面、编写代码 B)

创建工程、编写程序、保存程序 C)

设计界面、设置属性、编写代码

D)设计界面、编写代码、调试程序

41、能获得字符串S 最左边4个字符的函数是(a )

A) Left(S,4) B) Left(1,4) C) Leftstr(S) D)Leftstr(3,4)

42、下面给出的符号中，不能作为Visual Basic 的

变量名的是( b ) A) abcd

B)4A123 C)AA123

D)BB%

43、按照Visual Basic 的规定，123#所表示的数据类型是 b

A)整型 B) 双精度型 C) 单精度型 D) 长整型 44、下面给出的符号中，可以作为Visual Basic 的变量名的是( d ). A) PRINT B) LET C)%by

D)s#

45、下面能够作为Visual Basic 的表达式的是

( a ) A) 4*sin(π)

B)b^2-4ab

C)[-b-sqr(dlt)]/(2*a*c)

D)exp(x)+ABS(Y)

46、 在Visual Basic 中，执行下面四个赋值语句时出现错误的是( c ) A) x=SGN(0) B)Y=sqr(0)

C)z=LOG(0)

D)x=SIN(0)

47、 设变量a=2,b=3,c=4,d=5，则表达式not a>b and b^2c-d 的值为( a ) A) True

B)False

C)-1 D)1 48、下列表达式中，（ b ）的值为false 。

A)

"BCD"<"BCE"

B)

"12345"<>"12345"&"ABC"

C) Not2*5=11 D) 4=4 and 5>2+2 49、下列选项中，为字符串常量的是（ b ）。 A) 6/12/2001 B)“6/12/2001” C) #6,12,2001# D) 6,12,2001#

50、Datetime 是Data 类型的变量，以下赋值语句中错误的是（ d ）。

A)Datetime=#4/14/97#

B)Datetime=#September 1,1997# C) Datetime=#12:15:00 AM# D) Datetime=“8/8/99”

51、下列能正确产生[1-30]之间的随机整数的表达式是( d)

A)1+rnd(30) B)1+30*rnd()

C)rnd(1+30) D)int(rnd()*30)+1 52、用于获得字符串长度的函数是（ a ）。 A) Len() B) Length() C)StrLen() D)strLength() 53、下列各组变量声明正确的是（ a ）。 A)Dim abc as integer , num as single B)Dim I%, N$ as integer

C)Dim a%, b%, c%, a$ D)public dim n% 54、“X 是小于100的非负数”，用VB 表达式表示正确的是( c ).

A) 0<=X<100 B) 0<=X<100

C) X>=0 AND X<100

D) 0<=X OR X<100

55、要声明一个长度为256个字符的定长字符串变量str ，以下哪个语句是正确的（ d ）。 A) dim str as string B) dim str as string(256)

C) dim str as string [256] D) dim str as string*256

56、执行语句 Print Format (5459.478,＂##,##0.00＂)，正确的输出是（ a ）。 A) 5459.48 B) 5,459.48 C) 5,459.478 D) 5,459.47

57、把InputBox 的返回值转换为数值应该使用的函数是( d )。 A) Log

B) Str C) Len

D) Val

58、以下程序段执行后，整型变量n 的值为( d )。 Year=2001

n=year\4+year\400-year\100 A) 495

B) 505 C) 500 D) 485

59、 假如A 为一boolean 型数据，则下列赋值语句正确的是( d )。

A) A=”true ” B) A=.true C) A=#TURE# D) A=3<4

60、表达式2*3^2+2*8/4+3^2的值为( b )。

A) 64 B) 31 C) 49 D) 22

61、日期数据应该在数据的( d )括起来。

A) 前后各用一个双引号 B) 前后各用一个单引号

C) 前后各用一个圆括号 D) 前后各用一个“#”号

62、以下程序段的输出结果是( d )。

A=Sqr(3)

b=Sqr(2)

C=a>b

Print c

A) -1 B) 0 C) False D) True

63、设a=2,b=3,c=4,d=5,下列表达式的值是( c)。 A=b<>c=d

A)1 B)True C)False D)-1

64、如果将布尔常量值True赋值给一个整形变量，则整形变量的值为( b )。

A) 0 B) -1 C) True D) False

65、在VB语句中，REM是(b )语句。

A) 恢复语句 B) 注释语句

C) 改名语句 D) 重定向语句

66、下面程序段的功能是(b )。

A=10.5

B=Int(A+0.6)

A) 求平均值 B) 将一实数四舍五入取整数

C) 求绝对值 D) 舍去一实数的小数部分

67、执行以下程序段后，变量c$的值为( d)。

A$=“Visual Basic Programing”

b$=“Quick”

c$=b$ & Ucase(Mid$(a$,7,6)) & Right $ (a$,11)

A) Visual BASIC Programing

B) Quick Basic Programing

C) QUICK Basic Programing

D) Quick BASIC Programing

68、运算符号“&”是( b )运算。

A) 逻辑与 B) 字符串连接 C) 关系 D) 算术

69、设a=2，b=3，c=4，d=5，下列表达式的值是( b )。 Not a<=C or 4*c=b^2 and b+c

A) -1 B) 0 C) True D) False

70、设a=3,b=5，则以下表达式值为真的是( c )

A) a>=b And b>10 B) (a>b)Or(b>0)

C) (a<0)Eqv(b>0) D) (-3+5>a)And(b>0)

71、下列( c )语句可以将变更A、B的值互换

A)A=B:B=A B)A=A+B:B=A-B:A=A-B

C)A=C:C=B:B=A D)A=(A+B)/2:B=(A-B)/2

72、下面4项中合法的单精度型变量是( a )

A）num! B）sum% C）xinte$ D)mm# 73、已知A$=”12345678”则表达式

Val(Left$(a$,4)+Mid$(A$,4,2)的值为( b )

A）123456 B）123445 C）8 D）6 74、表达式Datediff（”y”,＃12／30／1999＃，＃

l／13／2000＃）的结果是c

A）10 B）11 C）14 D）99 75、IS表达式Len B（”123程序设计ABC”）的

值是( c )

A）10 B）14 C）20 D）17

76、以下语句的输出结果是( b )。

A=Sqr(3)

Print Format(a,"$$####.###")

A)$1.732 B)$$1.732 C)$1732

D)$$0001.732

77、可以在窗体模块的通用声明段中声明(a )。

A)全局变量B)全局常量

C)全局数组D)全局用户自定义类型

78、下列不支持Print方法的是( d )

A)图片框控件B)窗体C)打印机D)文本框控件

79、设计一个程序，在程序中添加一个名称为Form1的窗体，添加窗体的Click事件过程代码，Private Sub Form_Click()

Dim x As Single,y As Single

x=InputBox(“输入第一个数据”,”输入数据”)

y=InputBox(“输入第二个数据“, “输入数据“) Print x+y

End Sub

程序运行时，单击窗体，先后在两个输入对话框

中输入123和456，则程序的输出为( a ).

A）123456 B）123 C）579 D）456

80、语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是( c )

A) 10 B) 60 C) 120 D) 345

81、语句Dim a(-4 To 4) As Integer定义的数组中，所包含的数组元素的个数( c )

A) 7 B) 8 C) 9 D) 10

82、以下叙述中错误的是( b )

A)用Shell函数可以调用能在Windows下运行的应用程序

B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数

C)调用Shell函数的格式应为：<变量名>＝Shell(……)

D)用Shell函数不能执行DoS命令

83、设有如下语句：

str1=InputBox(“输入”，“”，“练习”)

从键盘上输人字符串“示例”后，str1的值是（ d ）。

A) “输入”B) “”C) “练习” D) “示例”

84、inputBox函数返回值的类型为( b )。

A) 数值 B) 字符串 C) 变体

D) 数值或字符串(视输入的数据而定)

85、下列程序段的执行结果为（ b）。

X = Int(Rnd + 4)

Select Case x

Case 5

Print "优秀"

Case 4

Print "良好"

Case 3

Print "通过"

Case Else

Print "不通过"

End Select

A) 优秀 B) 良好 C) 通过 D) 不通过

86、有如下程序

For I = 1 To 3

For j = 5 To 1 Step -1 Print I + j

Next j

Next I

其循环执行的次数为：（ d ）。

A) 12 B) 13 C) 14 D) 15

87、以下程序段执行后整型变量n 的值为（b ）。N=0

For I=1 to 20 step 5

n=n+1

Next I

A) 50 B) 4 C) 15 D) 5

88、程序的基本控制结构是（ c ）。

A) 顺序结构、多分支结构和单分支结构。

B) For……Next结构、Do……Loop结构和Select……Case结构。

C) 顺序结构、选择结构和循环结构。

D) 单行结构和多行结构。

89、如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的括号里要填入（ a）。

X = 1

Do

x = x + 3

Print x

Loop Until ( )

A) x>=8 B) x<=8 C) x>=7 D) x<=7

90、下列关于For …next 语句的说法正确的是( a)

A)循环变量、初值、终值和步长都必须为数值型。

B)step后的步长只为正数。

C)初值必须小于终值。 D)初值必须大于终值。

91、下列各赋值语句，语法不正确的是（ a ）。

A)x+y=5 B)iNumber =15

C)Labell.caption =“time” D)sLength =x+y

92、当条件为5

A) if 5

B) if 5

C) if 5

D) if 5

93、有如下程序，该段程序将（ a）。

For I=1 to 10 step 0

K=k+2

Next I

A)形成无限循环 B)循环体执行一次后结束循环

C) 语法错误 D) 循环体不执行即结束循环

94、有如下语句，执行后该段语句的循环次数是( a)

Dim s,k,j as integer

For k=1 to 3

For j=3 To 1 Step-1

S=k*j

Next j

Next k

A) 9 B) 10 C) 3 D) 4

95、关于Exit for的使用说明正确的是（d ）。

A) Exit for 语句可以退出任何类型的循环。

B) 一个循环中只能有一个这样的语句。

C) Exit for 表示返回For语句去执行。

D) 一个For循环中可以有多条Exit for语句。

96、下列关于Sub过程的叙述正确的是（b ）。

A) 一个Sub过程必须有一个Exit sub语句。

B) 一个Sub过程必须有一个End sub语句。

C) 在Sub过程中可以定义一个Function过程。

D) 可以用Goto语句退出Sub过程。

97、以下语句错误的是（ b）。

A) If a=1 And b=2 then

C=3

End If

B) If a=1 Then

C=2

Else If a=2 Then

c=3

End If 98、多分支选择结构的Case语句，下列写法错误的是（ c ）。

A) Case 1,5,7,9 B) Case 8 to 10

C) Case 10 to 2 D) Case Is<"man"

99、下列循环语句将执行（ a）次。

A=1000

DO

Print a

A=A+1

Loop while a<=100

A) 1 B) 10 C) 100 D) 1000

100、关于For……Next循环的初值、终值与步长，下列说法正确的是（ c ）。

A) 只能是具体的数值。 B) 只能是表达式。C) 可以是数值表达式。 D) 可以是任何类型的表达式。

101、要使循环体至少执行一次，应使用（c ）循环。

A) For……next B) While……wend

C) Do……Loop while|until

D) do[while|until]……loop

102、有如下程序段，执行完该程序后，变量x的值为（d ）。

K=0

Do Until k >= 3

x = x + 2

k = k + 1

Loop

A) 2 B) 4 C) 6 D) 8 103、下列程序段的执行结果为( c)。

X=6

For K=1 To 10 Step –2

X=X+K

C) c=Iif(a f =1,2,3)

D) If a=1 Then

Next K

Print K; X

A) –1 6 B) –1 16 C) 1 6 D) 11

31

104、以下是计算10的阶乘的程序，请补充该程序。

Dim t%,k%

K=0:t=1

Do While ( a)

K=k+1

T=t*k

Loop

Print t

A) K<10 B) K>10 C) k=10 D) K>=10 105、设a=6，则执行 x=Iif(a>5,-1,0)后，x 的值为( d)。

A) 5 B) 6 C)0 D) -1 106、下列语句能正常结束循环的是( c )

A）i=5 B) i=1

Do Do

i =i+1 i=i+2

loop Until i<0 loop Until i=10 C）i=10 (D) i=6

Do Do

i =i+1 i=i-2

loop Until i>0 loop Until i=1 107、语句If x=1 then y=1,下列说法正确的是( c ) A）X= 1和y= 1均为赋值语句

B）x=l和y=1均为关系表达式

C）x=1为关系表达式，y=1为赋值语句

D）X=1为赋值语句，y=1为关系表达式

108、结构化程序由3种基本结构组成，下面属于3种基本结构之一的是( b )

A）递归结构B）选择结构

C）过程结构D）输入、输出结构

109、为了给x,y,z这3个变量赋初值1,下面正确的赋值语句是( a )

A）x=1:y=1:z=1 B）x=1,y=1,z=1

C）x=y=z=1 D）xyz=1 110、赋值语句：a=123+MID(“123456”,3,2)执行后，a变量中的值是( d )

A）”1234”B）123 C）12334 D）157 111、下面If语句统计满足性别为男、职称为副教授以上年龄小于40岁条件的人数，不正确的语句是( d )

A)If sex=”男性’ And age<40 InStr(duty,”教授”)>0 Then n=n+1

B) If sex=”男性’ And age<40 InStr(duty＝”教授”or duty＝”副教授” )>0 Then n=n+1

C) If sex=”男性’ And age<40 Right(duty，2)=”教授“Then n=n+1

D) If sex=”男性’ And age<40And duty=”教授”And duty duty＝”副教授Then n=n+1

112、下列程序的执行结果为( a)。

Dim s As Integer, n As Integer

s=0：n=1

Do Until n>100

S=S+n

N=n+1

Loop

Print s

A) 5050 B) 2500 C) 3000 D) 4000 113、下列关于数组的说法正确的是( d)。

A) 在VB中，一个数组中所包含的元素只能是相同类型的数据。

B) 在VB中，数组只能在模块中定义，不能在过程中定义模块。

C) 同普通变量一样，数组也可以不定义，先使用。

D) 在定义数组时，数组的每一维元素的个数必须是常数，不能是变量或表达式。

114、下列程序的执行结果是( a )。

Dim a(5) As String

Dim b As Integer

Dim I As Integer

For I = 0 To 5

a(I) = I + 1

Print a(I);

Next I

A) 123456 B) 6 C) 1 2 3 4 5 6 D) 0 115、数组Dim D(3,1 To 10,1 To 15)有( b )元素

A) 100 B) 600 C) 30 D) 450

116、如下数组声明语名，正确的是( b )

A)Dim a[3,4] As Integer

B) Dim a(3,4) As Integer

C) Dim a(n,n) As Integer

D) Dim a[3,n] As Integer

117、要储存n个单精度数，下列语句正确的是( b )

A)n=InputBox(“input m”)

B)dim a() Single

Dim a(1 To n) As Single

n=ImputBox(“input n”)

Redim a(1 To n)

C)Dim a() As Single

D)Dim a(n) As Single

n=InputBox(“input m”)

ReDim a[n] Single

118、已知有数组声明：Dim a(-1 To 3,2 To 5) As Integer,如下引用数组中的无素，正确的是( a ) A) a(-1,2) B)a(4) C)a[-1,2] D)a(0,6) 119、下列有关控件数组与一般控件的区别的叙述中，最合理的是(b )

A)控件数组一定由多个同类型的控件组成,一般控件只有一个控件

B)控件数组的Index为0,一般控件的Index为空

C)控件数组的Index为1,一般控件的Index为0；

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

120、我们定义一个数组A，给它赋值，然后将该数组的最后一个元素的值赋予变量B，则下列程序正确的是(d )。

A) Dim a(5) as integer B)Dim a(5) as integer For I=0 to 5 For I=0 to 5

A(I)=I+1 A(I)=I+1

Next I Next I

B=a5 b=a[5] C) Dim a(5) as integer D) Dim a(5) as integer For I=0 to 5 For I=0 to 5

A(I)=I+1 A(I)=I+1

Next I Next I

B=a(8) B=a(5)

121、下列程序段的执行结果为( d)。

Dim A(10), B(5)

For I = 1 To 10

A(I) = I

Next I

For J = 1 To 5

B(J) = J * 20

Next J

A(5) = B(2)

Print "A(5)="; A(5)

A) A(5)=5 B) A(5)=10 C) A(5)=20 D) A(5)=40

122、在以下事件过程中，Private表示（ b ）。 Private Sub lblAbc_Change()

……

End Sub

A) 此过程可以被任何其它过程调用

B) 此过程只可以被本窗体模块中的其它过程调用

C) 此过程不可以被任何其它过程调用

D) 此过程只可以被本工程中的其它过程调用123、用( a)关键字声明的局部变量在整个程序运行中一直存在。

A) Static B) Private C) Dim D) Public 124、要想从子过程调用后返回两个结果，下面子过程语句说明合法的是( d )

A)Sub f2(ByVal n%,ByVal m%)

B)Sub f1(n%,ByVal m%)

C)Sub f1(n%,m%) D)sub f1(ByVal n%,m%)

125、下列叙述中正确的是( c )

A) 在窗体的Form_Load事件过程中定义的变量是全局变量B) 局部变量的作用域可以超出所定义的过程C) 在某个Sub过程中定义的局部变量

可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D) 在调用过程时，所有局部变量被系统初始化为0或空字符串

126、假定有以下两个过程：

Sub s1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer

t=x

x=y

y=t

End Sub

Sub S2(x As Integer,y As Integer)

Dim t As Integer

t=x：x=y：y=t

End Sub

则以下说法正确的是( a )

A)用过程S1可以实现交换两个变量的值的操作，S2不能实现

B)用过程S2可以实现交换两个变量的值的操作，S1不能实现

C)用过程S1和S2都可以实现交换两个变量的值的操作

D)用过程S1和S2都不可以实再交换两个变量的值的操作

127、函数过程的叙述正确的是( c)。

A) 函数名只能被赋值一次

B)函数名没有赋值,就没有函数值返回调用过程中

C) 函数名可以多次被赋值

D) 定义函数的类型是指定义虚参的类型

128、以下关于过程及过程参数的描述中，错误的是( c )

A)过程的参数可以是控件名称

B)用数组作为过程的参数时，使用的是“传地址”方式

C)只有函数过程能够将过程中处理的信息传回到调用的程序中

D)窗体可以作为过程的参数

129、在过程定义中用(c )表示形参的传值。

A)Var B)ByDef C)ByVal D)Value 130、下面子过程语句说明合法的是( d ) A)Sub f1(ByVal n%()) B)Sub f1(n%) As Integer C)Function f1%(f1%) D)Function f1(ByVal n%) 131、下面过程运行后显示的结果是（ a ）。

Public Sub F1(n%,ByVal m%)

N=n mod 10

M=m\10

End Sub

Private Sub Command1_Click( )

Dim x%,y%

X=12:y=34

Call F1(x,y)

Print x,y

End Sub

A)2 34 B)12 34 C)2 3 D)12 3 132、下列控件中，没有Caption属性的是(b ) A)框架 B)列表框 C)复选框 D)单选按钮133、不能作为容器使用的对象是（ d ）。

A) Frame B) Form C) Picture D) Image 134、ScrollBars属性用来设置文本框是否含有滚动条，要设置该属性，( a )属性的值必须设置为True。

A) Locked B) Hideselection

C) Multiline D) Enabled

135、下列属性值为字符串的属性是( c )。

A) Caption B) Value C) Width D) Height 136、要使某控件在运行中不显示，通过设置可达到此要求的属性是( b)

A)Enabled B)Visible C)BackColor D)Caption 137、在下列说法中，正确的是( d )

A）通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上

B）在列表框中不能进行多项选择

C)在列表框中能将项目按字母顺序从大到小排列D）框架也有Click和Dblick事件

138、文本框（Text1）中有选定的文本，执行Text1.SelText＝“Hello”的结果是( a )

A）“Hello”将替换掉原来选定的文本

B）“Hello”将插入到原来选定的文本之前

C）Text1.SelLength为5

D）文本框中只有“Hello”

139、当用户按下并且释放一个后会触发

KeyPress、KeyUp和KeyDown事件，这3个事件发

生的顺序是( c )

A)KeyPress、KeyDown、KeyUp

B)KeyDown、Keyup 、KeyPress

C)KeyDown、KeyPress、KeyUp D)没有规律

140、使文本框获得焦点的方法是c

A)Change B)GotFocus C)SetFocus D)LostFocus

141、可以用作其它控件容器的控件有( c)。

A) 窗体，列表框，图像 B) 窗体，文本框，框

架

C) 窗体，框架，图片框 D)窗体，标签，图片框

142、决定标签内显示内容的属性是( d)。

A)Text B)Name C)Alignmem D)Caption

143、下列对象中没有焦点属性的是( b )。

A) 命令按钮控件 B) 标签控件

C) 文本框控件 D) 单选框控件

144、输出数据功能的控件是( a )。

A) 窗体和标签 B) 复选框和文本框

C) 标签和文本框 D) 选项按钮和复选框

145、命令按钮能响应的事件是( b)。

A)DblClick B)Click C)Load D)Scroll 146、确定复选框是否选中，可访问的属性是

（ a）。

A) Value B) Checked C) Selected D)

Caption

147、以下选项中，不属于单选按钮属性的是( d )。

A) Enabled B) Caption C) Name D)

Min

148、若想要建立一个学生管理的输入界面，其中

要求选择学生的性别/政治面貌(党/团/群众)及

选课情况(共有5门课，可任选)，应如何在窗体

中利用单选钮和选择框来实现( b)。

A) 将5门课程用一组5个选择框来表示，将性别

和政治面貌用5个单选钮来表示。B) 将5门课程用一组5个选择框来表示，用两个框架分别将性别用2个单选钮，政治面貌用3个单选钮来表示。

C) 将5门课程用一组5个单选钮来表示，将性别和政治面貌用5个选择框来表示。

D)用一组10个选择框表示课程、性别和政治面貌149、设置组合框的风格，可用的属性是（ a ）。

A) Backstyle B)Borderstyle C) Style D)Sorted 150、以下叙述中正确的是（ c ）。

A) 组合框包含了列表框的功能。

B) 列表框包含了组合框的功能。

C) 列表框和组合框的功能无相近之处。

D) 列表框和组合框的功能完全相同。

151、删列表框中所有项目的方法是( b )。

A) Delete B) clear C) New D) Cls 152、下列控件中，没有Caption属性的是( b ) A)框架 B)列表框 C)复选框 D)单选按钮153、引用列表框（List1）最后一个数据项应使用的语句是( d )

A)List1.List(List1.ListCount)

(B)List1.List(List1.ListCount-1)

(C)List1.List(ListCount)

(D)List1.List(ListCount-1)

154、用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是( c )

A)List B)ListIndex C) Text D) ListCount

155、为了添加ComboBox控件中的项目,需要使用( c )方法。

A)ADD B)Remove C)AddItem D)RemoveItem

156、不能触发滚动条(如图所示)Change事件的操作是（c）。

A) 拖动滚动块 B) 单击两端箭头

C)单击滚动块D)单击箭头与滚动块之间的滚动条157、在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是( c)。

A) Move B) Change C) Scroll D) GetFocus

158.若要获得滚动条的当前值,可访问的属性是(b)

A) Text B) Value C) Max D) Min 159、滚动条的Smallchange属性所设置的是( b)

A) 当单击滚动条上滚动块时的移动量。

B) 滚动条中滚动块的最小移动位置。

C) 滚动条中滚动块的最小移动范围。

D) 滚动条控件无该属性。

160、下列控件中可自动设置滚动条是（c ）。A) 复选框 B) 框架C) 文本框 D) 标签框161、以下不能改变滚动条Value属性的方法是d （）

A)直接在属性窗口中设定Value值

B)鼠标单击两端箭头键改变滚动条数值

C)将滚动框沿滚动条拖动到任意位置

D)鼠标单击两端箭头键改变滚动条数值

162、若要设置定时器控件的定时时间，需设置的属性是（ a ）。

A)Interval B)Value C)Enabled D)Text 163、如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该等于( b )。

A) 5000 B) 500 C) 50 D) 5

164、为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是(c )。

A) Visible B) Timer C) Enabled D) Interval

165、定时器的Interval属性以( )为单位指定Timer 事件之间的时间间隔( c )。

A)分B)秒C)毫秒D)微秒

166、在设计菜单时,如果要在菜单中加入一个菜单分隔项,则菜单分隔项的标题必须设置为（ b ）。

A) + B) - C) * D) !

167、通用对话框中能打开“颜色对话框”的方法是（ b）。

A) ShowOpen B) ShowColor

C) ShowSave D) ShowPrinter

168、以下是MDI子窗体在运行时特性的叙述，错误的是（ b ）。

A) 子窗体在MDI窗体的内部区域显示。B) 子窗体可在MDI窗体的外部区域显示。

C)当子窗体最小化时,它的图标在MDI窗体内显示

D) 当于窗体最大化时，其标题与MDI窗体标题合并，并显示在MDI窗体的标题栏中。

169、要使某菜单能够通过按住键盘上的Alt 键及K键打开，应（c ）。

A) 在“名称”栏中“K”字符前加上“&”

B) 在“标题”栏中“K”字符后加上“&”

C) 在“标题”栏中“K”字符前加上“&”

D) 在“名称”栏中“K”字符后加上“&”170、在Visual Basic中，要将一个窗体装载到内存进行预处理，但不显示，应该使用那种语句：( c)。

A) Show B) Hide C) Load D) Unload 171、在Visual Basic 中，要将一个窗体从内存中释放，应使用( d)语句。

A) Show B) Hide C) Load D) Unload 172、能显示窗体的方法是( b )。

A) Visible B) show C) Hide D) open 173、下列关于菜单的说法中，错误的是( d )。

A) 每个菜单项都是一个控件，与其他控件一样也有其属性和事件。

B)除了Click事件之外,菜单项不能响应其他事件

C) 菜单项的索引号可以不连续。

D) 菜单项的索引号必须从1开始。

174、为了使一个窗体从屏幕上消失但仍在内存中，所使用的方法或语句为( b )

A)Show B)Hide C)Load D)Enload 175、以下叙述中错误的是( a )

A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项

B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键

C) 程序运行过程中，可以重新设置菜单的Visible 属性

D) 弹出式菜单也在菜单编辑器中定义

176、设在菜单编辑器中定义了一个菜单项,名为menu1.为了在运行时隐藏它,应使用的语句是( d )

A) menu1.Enabled=True B) Munu1.Enabled=False

C) Menu1.Visible=True D) Menu1.Visible=False

177、以下叙述中错误的是( c )

A)在程序运行时，通用对话框控件是不可见的

B)在同一个程序中，用不同的方法(如ShowOpen 或ShowSave等)打开的通用对话框具有不同的作C)调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件

D)调用通用对话框控件的ShowColor方法，可以打开颜色对话框

178、用于显示弹出式菜单的方法名是( c )

A)ShowPopup B)ShowPopupMenu

C)PopupMenu D)ShowMenu

179、在设计一个记事本时，必须使用的控件是(c )。

A)滚动条B)图片框C)文本框D)单选框180、能对顺序文件进行输出的语句是（ c ）。

A) Put B) Get C) Write D) Read 181、目录列表框的Path属性的作用是（a ）。

A) 显示当前驱动器或指定驱动器上的目录结构。

B) 显示当前驱动器或指定驱动器上的某目录下的文件名。

C) 显示根目录下的文件名D) 显示路径下的文件182、设已打开5个文件，文件号为1，2，3，4，5。要关闭所有文件，以下语句正确的是（d ）。

A) Close #1,2,3,4,5 B) Close #1;#2;#3;#4;#5 C) Close #1-#5 D) Close

183、在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是（ a ）。

A)“text(.txt)|(*.txt)”

B)“文本文件(.txt)|(.txt)”

C)“text(.txt)||(*.txt)”

D)“text(.txt)(*.txt)”

184、如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件, 那么执行语句Open “C: StuData.dat” For Append As #1 之后将( b )。

A) 删除文件中原有内容。 D) 以上均不对。B) 保留文件中原有内容, 可在文件尾添加新内容

C)保留文件中原有内容,在文件头开始添加新内容

185、以下叙述中正确的是(d )

A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的

C) Open命令的作用是打开一个已经存在的文件

D) 使用Input #语句可以从随机文件中读取数据186、要获得当前驱动器应使用驱动器哪个属性(b )

A）Path B）Drive C）Dir D）Pattern

187、要使目录列表框（名称Dir1）中的目录随着驱动器列表框（名称为Drivel）中所选择的当前驱动大的不同而同时发生变化，则应( c )

A)在Dir1_Change()中,书写语句Dirl.Drive＝Drive

B)在Dir1_Change()中，书写语句Dirl.Path＝Drive

C)在Drivel_Change()中,书写语句Dirl.Path=Drivel.Drive

188、在Visual Basic 中按文件的访问方式不同，可以将文件分为( a )。

A)顺序文件、随机文件和二进制文件

B)文本文件和数据文件

C)数据文件和可执行文件

D)ASCII文件和二进制文件

189、设有语句

open "c：Test．Dat" For OutPut As#1

则以下错误的叙述是( b )

A)该语句打开C盘根目录下一个己存在的文件Test．Dat

B)该语句在C盘根目录下建立一个名为Test．Dat 的文件

C)该语句建立的文件的文件号为1 D)执行该语句后，就可以通过Print#语句向文件Test．Dat 中写入信息

190、若要在图片框中绘制一个椭圆，使用的方法

是（ a）。

A) Circle B) Line C) Point D) Pset 191、图像框(Image)和图片框(Picturebox)在使

用时有所不同，以下叙述中正确的是（ d ）。

A) 图片框比图像框占内存少。

B) 图像框内还可包括其他控件。

C) 图片框有Stretch属性而图像框没有。

D) 图像框有stretch属性而图片框没有。

192、以下属性和方法中，可重定义坐标系的是( c)

A)Drawstyle属性B)DrawWidth属性

C)Scale方法D)ScaleMode属性

193、指令“Circle（1000，1000），500，8，-6，-3”后，将绘制（d）。

A)圆孤B)椭圆C)圆孤D)扇形194、当对DrawWidth进行设置后将影响( a )

A)Line、Circle 、Pset方法

B)Line、Shape控件

C)Line、Circle、Point方法

D)Line、Circle、Pset方法和Line、Shape控件195、CLS可清除窗体或图形框中的内容是( c )

A)Picture属性设置的背景图案

B)在设计时放置的控件

C)程序运行时产生的图形和文字

D)以上A～C全部

196、通过设置Shape控件的( )属性可以绘制多

种形状的图形。a

A)Shape B)BorderStyle C)FillStyle D)Style 197、假定Picturel和Textl分别为图片框和文本

框的名称，下列不正确的语句是( c )。

A)Print 100 B)Picturel.Print 100

C)Print.Text1 D)Debug.Print 25

198、下列可以把当前目录下的图形文件picl.jpg

装入图片框Picturel中的语句为( c )。

A)Picture="pic1.jpg"

B)Picture.Handle="pic1.jpg"

C)Picturel.Picture=LoadPicture("pic1.jpg”)

D)Picture：LoadPicture("pic1.jpg")

199、比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（ b）

A) 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小.

B) 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分.

C) 当图片框（PictureBox）的AutoSize自属性为false时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸.

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

200、文本框Text1控件与数据库的绑定通过属性（ a ）实现。

A)DataSource 和DataField

B)RowSource和ListField

C)BoundColumn和BoundText

D)DataSource和ListField

三、程序填空

1、select case index '加入一条语句，使得index不

为1，2时，caption为other，则该语句应

为

case 1:form1.caption="1"

case 2:form1.caption="2"

______case else:

form1.caption=”other”________

End select

2、如下定义一含10个元素的一维数组kk,并且对每一元素赋初值为1，请填空：

__dim kk (0 to 9) as integer _________

dim i as integer

for i=0 to 9

___kk(i)=1_________

___next i_________

3、假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按

钮时，Form1窗体消失，显示窗体Form2，请在和处将程序补充完整。

Private Sub Command1_Click()

Form1. hide

Form2. show

End Sub

4、以下程序计算2到50间所有偶数的和，请补充完该程序。

Sub mult()

Dim sum As Integer

Sum=0

Dim i as integer

For i=2 to 50

If i Mod 2= 0 Then sum=sum+i

Next i

Print sum

End Sub

5、下列程序段执行后，在输入框中输入数字5，执行结果如下，请补充完该程序。

1 1 1 1 1

2 2 2

3

N = InputBox("请输入行数")

ReDim a( N,N)

For i = 1 To n

For j = i To n-i+1

a(i,j) =i

Next j

Next i

For i = 1 To N

For j = 1 To N

Print Tab(j * 3); a(i, j);

Next j

Print

Next I

6、下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在处将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a as Variant

a=Array(678,45,324,528,439,

387,87,875,273,823)

For i= 1 to 9

For j= i+1 to 1

If a(i)

a(j) Then

a1=a(i)

a(i)=a(j)

a(j)=a1

End If

Next j

Next i

For i=1 To 10

Print a(i)

Next i

End Sub

7、下列程序段找出被3、5、7除，余数为1的最

小的5个正整数，请在下划线处填入相应的内容。

Private Sub Command1_Click()

Dim CountN%,n%

CounN=0:n=1

Do

n=n+1

If Then

Print n

CountN=CountN+1

End If

Loop

End Sub

8、在窗体上画一个名称为Command1的命令按

钮，编写如下事件过程.

Private Sub Command1_C1ick()

Dim a As String

a=_____

For i ＝1 To 5

Print spc (6-i)；Mid$ (a，6-i，2*i-1)

Next i

End Sub

程序运行后，单击命令按钮，要求窗体上

显示的输出结果为

5

456

34567

2345678

123456789

9、在窗体上画一个名称为Combo1的组合框，画

两个名称分别Label1和Label2及Caption 属

性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。

Private Sub Combo1 _________ (KeyAscii As Integer)

If KeyAscii＝13 Then

For i＝0 To Combo1.listCount-1

If Combo1.Text＝______ then

Label2.Caption＝”输入项己在组合框中”

Exit Sub

End If

Next i

Label2.Caption＝“已成功添加输入项”

Combo1.______ Combo1.Text

End If

End Sub

10、次程序用来产生20个小于1-100的随机整数，并将其偶数在窗体上显示，请补充完该程序。

Randomize

For i = 1 To 20

x =

If x / 2 = Then

Print x

End If

Next i

11、设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。

Private Sub Command1_Click()

Dim a(1 To 10) As Integer

Dim I%,p%,t%,j As Integer

For I = 1 To 10

a(i) = I

Next I

For j = 1 To 5 Next j

For I = 1 To 10

Print a(i)

Next I

End Sub

12、下面是一个体操评分程序，20位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)

Private Sub Command1_Click()

Max=0:Min=10

For i=1 To 20

N=Val(InputBox("请输入分数："))

IF __________Then Max=N

IF __________Then Min=N

S=S+N

Next i

S=__________

P=S/18

Print"最高分："；Max

Print "最低分："；Min

Print "最后得分："；P

End Sub

13、在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min 的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值。

Private Sub HScroll1_ ( )

Labl2.Caption=HScroll1.

End Sub

14、以下Function过程Odd用于判断一个数是否是奇数。当单击命令按钮时，随机产生一个二位数，调用Odd 过程，判断该数是否是奇数。如果是奇数，则显示True，否则显示False。Private Sub Command1_Click( )

Dim x As Integer

x= Int(Rnd*90+10)