VB笔试模拟试卷128

VB笔试模拟试卷128

一、公共基础选择题（本题共70题，每题7.0分，共

10分。）

1、如果要改变窗体的标题，需要设置窗体对象的属性。

A、Name

Caption

C、BorderStyle

D^BackColor

标准答案：2

知识点解析：窗体的Caption属性决定了窗体对象在显示时的标题。

2、有如下程序，其运行结果为oDimSumAsString*4ReadSum,X,Y%

PrintSum,ZDate"X+Y:之和”,300,200.613End

A、X+Y:之和501

B、X+Y之和500.613

C、X+Y:501

D、X+Y:500,613

标准答案：4

知识点解析：由于“DimSumAsString*4”定义字符型变量Sum的长度为4个字

节，因而Read语句读Sum变量时，仅读对应字符常量的前4个字符；Y%为整形

变量，在Read-Data语句中，对应的数值常量经四舍五入后读入，所以选择C

3、符号％是声明类型变量的类型定义符。

A、Vafiant

Integer

C、Single

D、String

标准答案：2

知识点解析：Integer数据类型Integer变量存储为16位（两个字节）的数值形式，其

范围为-32768〜32767oInteger的类型声明字符是百分比符号（％）。

4、表达式26/4*3的值是o

A、1

B、2

C、18.75

D、18

标准答案：2

知识点解析：运算符“*，的优先级大于所以先进行4x3的运算，再进行26U2

的运算，最后的结果是2,故应选B。

5、Print方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是

A、逗号

B、空格

C、冒号

D、分号

标准答案：1

知识点解析：Prim方法中，使用紧凑格式输出，各表达式的分隔符应是分号，使

用标准格式输出，各表达式的分隔符应是逗号。

6、图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属

性是______o

A、AutoSize

B、Appearance

C、AutoRedraw

D、Stretch

标准答案：8

知识点解析：Stretch属性：选回/设置一个值，决定是否调整图形的大小以适应图

像控件。Appearance属性：返回/设置一个对象在运行时是否以3D效果显示。图

像框控件无Autosize和AutoRedraw属性。

7、要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为

A、1

B、0

C、True

D、False

标准答案：1

知识点解析：Style属性：该属性用于确定控件外观，只能在设计时确定。其取值

可以设置为0（标准形式）或1（复选框形）。

8、CommonDialog控件可以显示种对话框。

A、4种

B、5种

C^6种

D、7种

标准答案：4

知识点解析：CommonDialog控件有六种对话框，分别可以显示“颜色”、“字体”、

“帮助”、“打开”、“打印”和“保存”对话框。

9、为了暂时关闭计时器，应把计时器的某个属性设置为Falss,这个属性是

A、Visble

Timer

C、Interval

D、Enabled

标准答案：8

知识点解析：控件的Enabled属性表示其是否有效，如果想使某个控件失效，可以

将它的Enabled属性设为Falseo

10、在窗体上有若干控件，其中有一个名称为Textl文本框。影响Textl的Tab顺

序的属性是o

A、Tabindex

B、TabStop

C、Enabled

D、Visible

标准答案：1

知识点解析：Tabindex属性决定了按Tab键时，焦点在各个控件移动的顺序。

TabStop用于返回或设置一个值，该值用来指示是否能够使用TAB键来将焦点从

一个对象移动到另一个对象。当设置此属性为False,则使用Tab键移到此控件时

会自动跳到下一个Tabindex属性值的控件。Enabled属性决定控件是否允许操

作。Visible属性决定控件是否可见。

二、选择题(本题共15题，每题1.0分，共15分。)

11、己知字母A的ASCII码是65,运行下面程序后输出的结果是oM=

65:A$"Fori=1To3A$=A$+Chr$(M)M=M+1NextiPrintA$

A、197

B、656667

C、ABC

D、CBA

标准答案：4

知识点解析：函数Chr$是把ASCII码转换为相应的字符，而同为大写或同为小写

的相邻的英语字母的ASCII码也是相邻的自然数。字母人的ASCII码为65；则字

母B、C的ASCH码分别为66和67。在For循环中，表达式A$+Chr$(M)把字母

A、B、C连接起来，因此最后输出的结果是“ABC”。

12、有如下程序，运行后的输出结果是oa=5Ifa<=3ThenPrint3;EndIf

Ifa<=4ThenPrint4;EndIfIfa<=5ThenPrint5;EndIfIfa<=6;Print6;EndIf

知识点解析：每执行一次循环i的值增加3,n值增加1；而当i>10时循环退出,

故循环只能被执行4次，则n值为4。

16>在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码：

PrivateSubCommandl_Click()Dimarrl(10)AsInteger,arr2(10)AsIntegern=3Fori=l

To6arrl(i)=iarr2(n)=2*n+iNextiPrintarr2(n);arrl(n)EndSub程序运行后,单击命

令按钮，输出结果是O

A、123

B、312

C、143

D、314

标准答案：1

知识点解析：本题的程序每次循环都将arr2(3)重新赋一次值。最终的arr2(3)的值

为2*3+6=12。而arrl⑶的值始终为3。所以最终的输出是12和3。

17、在窗体上画一个名祢为Labell的标签，然后编写如下事件过程：OplionBase1

PrivateSubFormClick()Dima(10)AsIntegerFork=lTo10a(k)=kA2Nextk

Labell.Caption=a(k)EndSub程序运行后，单击窗体，在标签中显示的内容是

______0

A、100

B、10

C、121

D、出错信息

标准答案：8

知识点解析：一维数组a的下标在1〜10之间。而循环结束后k值为11,故产生

下标越界的错误。

18>阅读程序：FunctionF(aAsInteger)b=0Staticcb=b+lc=c+lF=a+b+cEnd

FunctionPrivateSubCommandl_CIick()DimaAsIntegera=2Fori=llo3Print

F(A)NextiEndSub运行上面的短序，单击命令按钮，输出结果为。

A、444

B、456

C、468

D、479

标准答案：2

知识点解析：Static语句在过程级别中使用，用于声明变量并分配存储空间。在整

个代码运行期间都能保留使用Static语句声明的变量的值。本题中变量c的值，调

用•次函数F就加1。而变量a和变量b的值，在函数F中直是2和1。

19、以下说法错误的是o

A、函数过程没有返回值

B、函数过程可以带参数

C、子过程没有返回值

D、子过程可以带参数

标准答案：1

知识点解析：函数和过程都可以带参数，但函数可以返回值而过程不能。

20、耍得到字体对话框中用户所选择的字体颜色的属性是o

A^Color

B、ForeColor

C、FontColor

D、ShowColor

标准答案：1

知识点解析：ColorsFontBlod>Fontltalic^FontName>FontSize、FontStrikeThru>

FontUndcHinc等属性分别对应“字体”对话框的字体颜色、字体是否粗体、字体是否

斜体、字体名称、字体大小、字体是否有中划线、字体是否有下划线。

21、用于显示弹出式菜单的方法名是

ANShowPOpupMcnu

B、ShowMenu

C、ListPopupMenu

D、PopupMcnu

标准答案：8

知识点解析：弹出式菜单是独立于窗体菜单栏而显示在窗体内的浮动菜单。弹出式

菜单在窗体内的显示位置取决于单击鼠标键时指针的位置。要显示弹出式菜单，必

须调用PopupMenu方法。

22、窗体不拥有下列事件。

A、Terminate

B>Initialize

C^Validate

D、OLEStartDrag

标准答案：4

知识点解析：Validate事件在焦点转换到另一个控件之前发生，此时该控件的

CausesValidation属性值设置为True。此事件不适用于窗体。

23、对窗体编写如下事件过程：PrivateSubFormMouseDown(ButtonAsInteger,

ShiftAsInteger,_xAsSingle,YAsSingle)IfButton=2ThenPrint"AAA"EndIfEnd

SubPrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,_xAsSingle,

YAsSingle)PriiiL'BBB"EndSub程序运行后,如果单击鼠标右键,则输出结央为

A、AAABBB

B、BBB

C、AAAAAA

D、BBB

标准答案：1

知识点解析：窗体的MouseDown和MouseUp中，Button参数是具有相应于左按钮

（位0）、右按钮（位1）,以及中间按钮（位2）的一个位字段。这些位的值分别等于1、

2和4。其中仅有一位被设置，指示出引起该事件的那个按钮。本题中MouseDown

事件会首先判断按下的是哪个鼠标键，如果是右键则输出AAA。然后在MouseUp

事件中输出BBBo

24、以下语句可以实现将文件filename1复制为filename2的是。

A、Copyfilename1,filename^

B、Namefilename1,filename2

C^FileCopyfilename1,filename2

D、Duplicatefilename1,filename?

标准答案：4

知识点解析：文件的基本操作包括：1）文件删除。Killfilename,filename指要删

除的文件路径。使用Kill命令删除文件时需先将文件关闭。2）文件复制。FileCopy

source,destination,source指定要复制的文件，deslinalion指定文件source要复制

到的目标路径。3）文件重命名。NameoldfilenameAsnewfilename,oldfilename指定

原文件名，ncwfilcname指定新文件名。使用Name时必须先关闭文件

oldfilename。

25、在窗体上画一个名祢为Drivel的驱动器列表框，一个名称为Dirl的目录列表

框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命

令放在一个事件过程中，这个事件过程是O

A^Drivel_Change

B、DriveLClick

C、Dirl.Click

D、Dirl_Change

标准答翥：1

知识点解析：驱动器列表框用来显示用户系统中有效磁盘驱动器的列表。在程序运

行时，该控件的Drive属性可以返回或设置程序运行时所选择的驱动器。目录列表

框用来显示当前驱动器上的目录结构。在程序运行时，该控件的Path属性可以返

回或设置当前路径。当驱动器列表框中当前所选中的驱动器发生变化时，Driv?属

性也将相应变化，从而触发驱动器列表框的Change事件，因此可以在驱动器列表

框的Change事件中加入如下的语句：DirLPath=Drivel.Drive。该语句的作用是将

目录列表框的Palh属性设置为改变后的当前驱动器路径，从而使目录列表框中的

目录结构随当前所选择的驱动器的变化而相应变化。

三、公共基础填空题（本题共5题，每题1.0分，共5

分。）

26、数据库系统的主要特点为数据集成性、数据的高和低冗余性、数据独立

性和数据统一管理和控制。

标准答案：共享性

知识点解析：数据库系统中的数据能被不同的应用程序使用，实现了数据的高度共

享，从而降低了数据的冗余，这也是数据库的主要目的。

27、数据库的逻辑模型设计阶段的任务是将转换成关系模式。

标准答案：E-R图

知识点解析：数据库逻辑设计的任务是将概念模型进一步转化成相应的数据模型。

而E-K图是主要的概念模型，因此数据库的逻辑设计的主要工作是将E-R图转换

成关系模式。

28、在面向对象方法中，描述的是具有相似属性与操作的一组对象。

标准答案：类

知识点。析：在面向对象方法中，把具有相同属性和方法的对象称为类，类是对象

的抽象，对象是类的实例。

29、最简单的交换排序方法是。

标准答案：冒泡排序

知识点解析：交换排序是指借助数据元素之间的互相交换进行排序的一种方法，冒

泡排序是一种最简单的交换排序方法，它是通过相邻元素之间的相互交换逐步将线

性表变得有序。

30、在链表的运算过程中，能够使空表与非空表的运算统一的结构是_____o

标准答案：循环链表

知识点解析：在循环链表中，由于设置了一个头结点，因此在任何情况下，循环链

表中至少有一个结点存在，从而使空表与非空表的运算统一。

四、填空题(本题共7题，每题分，共7分。)

31、VisualBASIC应用程序通常由3类模块组成，即窗体模块、【】和类模块。

标准答案：标准模块

知识点解析：模块是相对独立的程序单元。在VisualBasic中主要有3种模块，即

窗体模块、标准模块和类模块。类模块主要用来定义类和建立ActiveX组件。

32、以下程序段执行后y的值是［］。x=6y=int(x+0.5)print

标准答案：9

知识点解析：返回参数的整数部分，其类型和参数相同。语法Int(number)必要的

number参数是Double或任何有效的数值表达式。如果number包含Null,则返PI

Null-

33、以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计

出若干数字的平均值，输出结果。请填空。PrivateSubForm_click()Dimx,yAs

SingleDimzAsIntegerx=InputBox("Enterascore")Dowhile[]y=y+xz=z+l

x=InputBox("Enterascore")LoopIfz=0Thenz=lEndIfy=[]PrintyEndSub

标准答案：x>=0,y/z

知识点解析：根据表达式的值有条件地执行一组语句。语法IfconditionThen

|statements][Elseelsestatements]或者，可以使用块形式的语法:IfconditionThen

Istatements]|ElseIfcondition-nThen|elseifslatements|...|Else|elsestatements]]EndIf

当条件为True时，或直到条件变为True时，重复执行一个语句块中的命令。语法

Do[{WhileIUntil)condition][statements)|ExitDo][statements]Loop或者可以使用

下面这种语法:Do[statements][ExitDo][statements]Loop[{WhileIUntil)

condition]本题的循环首先判断输入是否大于0,如果是则处理这个输入，否则结

束循环。循环体内的第二个判断语句判断的是当前输入是否比当前的最小值小，如

果是则改写当前最小值为输入值，否则结束判断语句。

34、在窗体上画一个命令按钮：然后编写如下程序：Functionfun(ByValnumAs

Long)AsLongDimkAsLongk=lnum=Abs(num)DoWhilenumk=k*(numMod10)

num=num\IOLoopfun=kEndFunctionPrivateSubCommandI_Click()DimnAsLong

DimrAsI.ongn=InputRnx("请输入一"个数")n=CI.ng(n)r=fun(n)PrintrEndSuh程序

运行后，单击命令按钮，在输入对话框中输入“345”,输出结果为【】。

标准答案：60

知识点解析：程序首先要求用户输入一个数，然后将这个数转化为长整型传递入函

数fun。本题中传入的数字是345。函数fun中首先将传入的参数取绝对值，然后

进入循环：第一次循环结束的时候：k=5num=34第二次循环结束的时候：k=20

nuin=3第三次循环结束的时候：k=60num=0

35、菜单编辑器可分为3个部分，即数据区、【】和菜单项显示区。

标准答案：编辑区

知识点解析：菜单编辑器的界面分为数据区、编辑区和菜单(项)显示区三个部分。

数据区用来确定菜单的名称、索引和标题等信息。编辑区用来对当前的菜单项进行

插入、删除等操作。显示区用来显示当前对菜单操作的结果，以便用户和自己的创

建目标做比照。

36、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSub

Commandl_Click()Fori=lTo4x=4Forj=lTo3x=3Fork=lTo2x=x+6NextkNext

jNextiPrintxEndSub程序运行后，单击命令按钮.输出结果是【】。

标准答案：15

知识点解析；观察程序，山于每次执行第二层循环时x都被重新赋值，因此只要看

当x=3时，执行第三层循环所得到的结果就可以。k=1,x=x+6=3+6=9

k=2,x=x+6=9+6=15最终的输出结果是：15。

37、在窗体上画一个命令按钮，然后编写如下事件过程：OptionBase1PrivateSub

Commandl_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10

NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是【】。

标准答案：1234

知识点解析：跟踪程序：由a=Array(1,2,34)可知：a(l)=1a(2)=2a⑶=3a(4)=4执

行循环体：s=s+a(i)*j=a(4)*1=4j=j*l0=10s=s+a(i)*j=4+a(3)*10=34j=j*10=100

s=s+a(i)*j=34+a(2)*100=234,j=j*l0=1000s=s+a(i)*j=234+a(1)*1000=1234j=j*l0=-

10000最终的输出结果是：1234。

五、填空题(含2小题)(本题共2题，每题分，

共2分。)

38、为了定义自己的鼠标光标，首先应把MousePoinier属性设置为【】，然后把

[1属性设置为一个图标文件。

标准答案：99,Mouseicon

知识点解析：MousePoinier属性用来返回或设置一个值，该值指示在运行时当鼠标

移动到对象的一个特定部分时，被显示的鼠标指针的类型。如果将其设为9