VB笔试模拟试卷127(题后含答案及解析)

VB笔试模拟试卷127

(题后含答案及解析)

题型有：1. 选择题 2. 填空题

选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有

一个选项是正确的，请将正确选项涂写在答题卡相应位置上。

1． 通过以下 ______ 窗口可以在设计时直观的调整窗体在屏幕上的位置。

A．代码

B．窗体设计

C．窗体布局

D．属性

正确答案：C

解析：Form Layout Window即窗体布局窗口，允许使用表示屏幕的小图像

来布置应用程序中各窗体的位置。

2． 不能作为容器使用的对象是 ______。

A．窗体

B．框架

C．图像框

D．图片框

正确答案：C

解析：窗体、框架和图片框都可以作为容器使用，在这些对象中可以放置其

他控件。图像框不能放置其他控件，不能作为容器使用。

3． 对变量名说法不正确的是 ______ 。

A．必须是字母开头，不能是数字或其他字符

B．可以包含字母、数字、下划线和标点符号

C．不能是Visual Basic的保留字

D．不能超过255个字符

正确答案：B

解析：变量名不能包含标点符号。

4． 骰子是一个正六面体，用1～6这六个数分别代表这六面，掷一次骰子

出现的数可表示为 ______ 。

A．Int(Rnd(6)+1)

B．Int(Rnd*6+1)

C．Int(Rnd*7)

D．Int(Rnd*6)

正确答案：B

解析：Rnd函数产生一个小于1、大于0的随机数，Int函数是求不大于参数

的最大整数。选项A的最大数是1，选项B的最大数是5，选项C的最小数是0，

只有选项D能产生1～6之间的整数。

5． 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、

Label1和 Command1，然后编写如下两个事件过程： Private Sub

Command1_Click( ) strText=InputBox(“请输入”) =strText End

Sub Private Sub Text1_Change( )

n=Right(Trim()，4) End Sub 程序运行后，如果在

对话框中输入abcdefgh，则在标签中显示的内容是 ______。

A．空

B．abcdef

C．abcd

D．efgh

正确答案：D

解析：Trim函数返回Variant(String)类型，其中包含指定字符串的拷贝，但

不包含前导和尾随空白。Right(字符串，n)：返回“字符串”的后n个字符。这

里的“字符串”可以是字符串常量、字符串变量、字符串函数或字符串连接表达

式。本题中输入的是abcdef,返回后4个字符就是efgh。

6． 如果在“立即”窗口中执行以下操作： a=8＜CR＞(＜CR＞是回车

键，下同) b=9＜CR＞ Print a＜b＜CR＞ 则输出的结果是 ______。

A．1

B．0

C．False

D．True

正确答案：D

解析：本题中的Print命令输出的是关系表达式的运算结果，由于a＜b成立，

因此返回值是True。

7． 无论什么控件，都有一个共同的属性，这个属性是 ______。

A．Name

B．Caption

C．Text

D．Font

正确答案：A

解析：每个控件都有Name属性，该属性表示控件的名称，如同变量名一样，

以便在程序中对该控件实施操作。

8． 为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属

性是 ______。

A．Visible

B．Timer

C．Enabled

D．Interval

正确答案：C

解析：计时器可以使用Name属性和Enabled属性。如果想暂时关闭计时器

(让计时器不起作用)，应将计时器的Enabled属性设置为False。

9． 在程序运行期间，如果拖动滚动条上的滑快，则触发的滚动条事件是

______。

A．Move

B．Change

C．Scroll

D．GetFocus

正确答案：C

解析：与滚动条有关的重要事件是Scroll和Change。当拖动滚动条上的滑

块时，会触发 Scroll事件，而当改变Value属性(滚动条内滑块位置改变)时会触

发Change事件。

10． 唯一能区别一个控件的属性是 ______。

A．Index

B．Text

C．Name

D．Caption

正确答案：C

解析：在程序中每个控件都有个名字，控件的名字也是它们互相区别的唯一

标志。

11． 以下能够触发文本框Change事件的操作是 ______。

A．改变文本框的内容

B．文本框失去焦点

C．文本框获得焦点

D．设置文本框的焦点

正确答案：A

解析：当用户向文本框中输入新信息，或当程序把Text属性设置为新值从

而改变文本框的Text属性时，将触发Change事件。程序运行后，在文本框中每

键入一个字符，就会引发一次Change事件。

12． 文本框控件最多能处理 ______ 个字节。

A．16K

B．32K

C．64K

D．128K

正确答案：B

解析：对于用户系统上单行TextBox控件来说，最大值不能超过被内存强制

建立的值，并且对于多行TextBox控件而言，最大值大约为32K。

13． 下列程序段的执行结果为 ______。 n=16 For k=n To 1 Step-1

x=Sqr(k) x=x-2 Next k Print x-2

A．-3

B．-1

C．1

D．2

正确答案：A

解析：因为在For循环每次执行时，都会根据循环控制变量k给x重新赋值，

所以只需根据最后一次循环的值计算x的值即可。最后一次循环，k=1，所以

x=Sqr(1)=1，x=x-2=-1。打印x-2的值，即为-1-2=-3。

14． 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub

Command1_Click( ) x=0 Do Until x=-1 a=InputBox(“请输入a的值”)

a=Val(A) b=InputBox(“请输入b的值”) b=Val(B) x=InputBox(“请

输入x的值”) x=Val(x) a=a+b+x Loop Print a End

Sub 程序运行后，单击命令按钮，依次在输入对话框中输入10、8、9、2、

11、-1，则输出结果为 ______。

A．15

B．14

C．13

D．12

正确答案：D

解析：本题中，每次循环开始的时候，变量a都被重新赋了一次值，所以最

后的结果仅仅是2+11+(-1)，因此最终输出的值是12。

15． 在窗体上画一个名称为command1的命令按钮，然后编写如下程序；

Option Base 1 Private Sub Command1_Click( ) Dim arr(4)As String

For i=1 To 4arr(i) = Chr(Asc(“A”)+(i-1))Next i For Each b1 In arrPrint b1；

Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容

为 ______。

A．ABCD

B．abcd

C．出错信息

D．1 2 3 4

正确答案：A

解析：语句Chr(Asc(“A”)+(i-1))的作用是将字符A的ASCII码值加上循环变

量的值减1，求出此ASCII码对应的字符。将计算出的字符赋值给数组arr的第

i个元素。循环结束后，arr的4个元素分别为字符A、B、C、D。Print方法输

出项的最后用分号结束，使得输出不换行。

16． 假定有如下的Sub过程： Sub Func(x As Single， y As Single)

t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然

后编写如下事件过程： Private Sub Command1_Click( ) Dim a As Single

Dim b As Single a=6 b=5 Func(a, B) Print a, b End Sub 程

序运行后，单击命令按钮，输出结果为 ______。

A．6 5

B．1 1

C．1.2 5

D．1.2 1

正确答案：D

解析：Visual Basic的函数参数默认的方式是传地址的，所以函数s对参数

做的改变会反映到原来的变量里。

17． 在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，

如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。 Private Sub

Text1_KeyPress＜KeyAscii As Integer) Dim char as String

char=Chr(KeyAscii) =String(5，KeyAscii) End Sub

A．aaaaa

B．AAAAA

C．aaaaaa

D．AAAAAA

正确答案：D

解析：在程序段用到了4个函数，在按了键盘上的某个键(在这里是字母键

A)后，Chr函数将得到的键的ASCII码值(101)转换成该ASCII码值对应的字符

(A)，然后利用Ucase函数将该字符转换成大写字母(A)，将该大写字母的ASCII

码值(利用函数Asc( ))赋给 KeyAscii，最后利用String函数的5个ASCII码值

等于KeyAscii的字符(即5个A)赋给文本框Text1，此时文本框中将显示5个A，

又因为KeyPress事件本身会在文本框中显示输入一个ASCII码值为KeyAscii

的字符(A)，因此最后在文本框中将显示6个大写字母A。

18． 在对象的MouseDown和MouseUp事件过程中，当Button参数的值为

1、2、4时，分别代表按下鼠标 ______。

A．左键、中间键和右键

B．左键、右键和中间键

C．中间键、左键和右键

D．左键、右键和同时按下左右键

正确答案：B

解析：Button参数指示用户按下或释放了哪个鼠标键。当Button参数的值

为1时，表示用户按下或释放了鼠标的左键；当Button参数的值为2时，表示

用户按卞或释放了鼠标的右键；当Button参数的值为4时，表示用户按下或释

放了鼠标的中间键。

19． 在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个

命令按钮，并编写如下事件过程： Private Sub Command1_Click( )

=cdlOFNHideReadOnly =“All

Files(*.*)|*.*| Text Files”&_”(*.txt)|*.txt|Batch Files(*.bat)|*.bat”

lndex=1 en MsgBox

me End Sub 程序运行后，单击命令按钮，将显示

一个“打开”对话框，此时在“文件类型”框中显示的是 ______。

A．AllFiles(*.*)

B．TextFiles(*.txt)

C．BatchFiles(*.bat)

D．不确定

正确答案：A

解析：从程序可见FilterIndex属性已经设为1，所以缺省过滤器为*.*。

20． Visual Basic没有提供下列 ______ 事件。

A．MouseDown

B．MouseUp

C．MouseExit

D．MouseMove

正确答案：C

解析：MouseDown代表鼠标键在对象上按下，MouseUp代表鼠标键在对象

上弹起， MouseMove代表鼠标键在屏幕上移动，而MouseExit不是Visual Basic

中的事件。

21． 编写如下事件过程： Private Sub Form KeyDown(KeyCode As

Integer，Shift As Integer) If(Button And 3)=3 Then Print “AAAA”

End If End Sub 程序运行后，为了在窗体上输出”AAAA”，应按下的鼠标

键为 ______。

A．左

B．右

C．同时按下左、右

D．按什么键都不显示

正确答案：D

解析：从题目中的程序可以看出，(BuRon And 3)=3这个条件永远是假的，

所以输出语句也永远不会被执行。

22． 假定在窗体上建立一个通用对话框，其名称为CommonDialogl，用下

面的语句可以建立一个对话框： =1 与该语句等价

的语句是 ______。

A．en

B．ve

C．nt

D．lor

正确答案：A

解析：通用对话框的Action属性为1表示显示的是“打开”对话框，所以

相当于Common en。

23． Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括

A．顺序文件

B．二进制文件

C．随机文件

D．Unix文件

正确答案：D

解析：Visual Basic访问文件的方式分为三类有Input/Output/Append(访问顺

序文件)、 Binary(访问二进制文件)、Random(访问随机文件)。如果未指定方式，

则以Random访问方式打开文件。

24． 读数据文件的操作可以通过下列 ______ 语句来实现。

A．Input#和Get#

B．Read和Line Input#

C．Get#和Line Input#

D．Line Input# 和Input#

正确答案：D

解析：Get#语句把由“文件号”所指定的磁盘文件中的数据读到“变量”中。

Visual Basic中没有Read语句。读数据文件的操作由Input#语句、Line Input#语

句和Input( )函数来实现。

25． 用Close语句可以关闭一个已经用完不再使用的文件，当该语句不带

任何参数时，它的功能是

A．可以关闭所有已打开的文件

B．只能关闭最近打开的那个文件

C．可以关闭最近打开的那个文件

D．语法错误

正确答案：A

解析：Close语句的格式如下： Close[#文件号][,#文件号]…… 参数“#

文件号”可省略，当省略时表示关闭所有文件。

填空题（每空2分，共30分）请将每一个空的正确答案写在答题卡上。注

意：以命令关键字填空的必须拼写完整。

26． 在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各

元素之间______的信息。

正确答案：前后件关系

解析：在数据存储结构中，除了要存储数据，还要存储数据的前后件关系，

对于顺序存储的数据结构，前后件之间的关系，是通过存储空间的位置来实现的，

而对于链式存储来说，数据元素之间的前后件关系是通过指针来实现的。

27． 按照“先进先出”的原则组织数据的结构的是______。

正确答案：队列

解析：队列是一种特殊的线性表，只允许在表的一端插入元素，在表的另一

端删除元素，插入元素的一端叫做“队尾”，删除元素的一端叫做“队头”，先插

入的元素先被删除，是按先进先出的原则组织数据的。

28． 深度为5的满二叉树中，叶子结点的个数为______。

正确答案：16

解析：满二叉树的叶子结点都在最后一层，即第4层，且第4层的结点达到

最大数，即25-1=16。

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

正确答案：类

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

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

30． Jackson方法是一种面向______的结构化方法。

正确答案：数据结构

解析：Jackson方法是一种结构化分析方法，它是一种面向数据结构的方法。

31． 属性窗口分为4个部分，这4个部分分别是______。

正确答案：对象框、属性显示方式、属性列表和属性解释

解析：对象属性在设计阶段可以通过属性窗口来设置。属性窗口分为4个部

分，即对象框、属性显示方式、属性列表和属性解释。

32． Text文本框接受的最长字符数由文本框的______属性确定。

正确答案：MaxLength

解析：MaxLength属性返回或设置一个值，指定文本框控件中能够输入的字

符最大数量，默认为0，表示对输入的数量不限制。

33． 设当前日期为2008年4月28日，星期一，则执行下面语句后的输出

结果为______。 Print Day(Now) Print Month(Now) Print Year(Now)

Print Weekday(Now)

正确答案：28＜CR＞4＜CR＞2008＜CR＞2＜CR＞ (＜CR＞表示换行)

解析：本题考查了日期函数的应用。其中，Day(Now)函数，表示返回当前

号数(即当前天是几号)；Month(Now)函数，表示返回当前月份(即当前是几月)；

Year(Now)函数，表示返回当前年份(即当前是哪年)；Weekday(Now)函数，表示

返回当前星期号(即当前是星期几)。注意，星期号是用0～6来表示，0代表周六，

1代表周日，2代表周一，3代表周二， 4代表周三，5代表周四，6代表周五。

34． 表达式”12345”＜＞”12345” & “ABC”的值是______。

正确答案：True

解析：运算的顺序为先进行算术运算“&”，然后是关系运算“＜＞”。表达

式”12345”，＜＞ “12345”&”ABC”的运算过程如下： ①先进行算术运算，”12345”

＜＞”12345”&”ABC”=“12345”＜＞”12345ABC”； ②再进行关系运算，”12345”

＜＞”12345”&”ABC”=“12345”＜＞”12345ABC”=true。

35． 若要添加CommonDialog控件，则应从“工程”菜单中选择“部件”

命令，在弹出的“部件”对话框的“控件”选项卡中选择______，将控件添加到

工具箱中。

正确答案：Microsoft Common Dialog Control 6.0

解析：通用对话框是VB提供的ActiveX控件。ActiveX控件是具有.OCX扩

展名的文件，或一个可插入的对象。当使用“部件”对话框将其添加到工程中时，

将扩充工具箱的内容。当工具箱上无通用对话框控件图标时，可以通过选择“工

程”菜单中的“部件”命令，或用鼠标右键单击工具箱，在弹出的快捷菜单中，

选择“部件”命令，打开“部件”对话框。然后在对话框中的“控件”选项卡中，

找到“Microsoft Common Dialog Control 6.0”，并选中该项，单击“确定”按钮

后即可将通用对话框控件添加到工具箱中。

36． 下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输

出；否则结束。请在程序空白处填入适当内容使程序完整。 Sub PrintOut( )

Dim a As Integer a = MsgBox(“输出结果?”, vblnformation + vbYesNo, “提

示：”) If a = ______ ThenPrint “Myresult” End If End Sub

正确答案：vbYes(或6)

解析：MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个

Integer告诉用户单击哪一个按钮。返回值是一个整数，这个整数与选择的按钮有

关，如下表所示。

37． 如果要通过程序代码来一次性删除列表框中所有项目，则应使用的方

法是______。

正确答案：Clear

解析：Clear方法用于清除控件中所有列表内容或系统剪贴板的内容。

38． 窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将

图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次

向左、向右移动 300twip。请在程序空白处填入适当内容使程序完整。 Private

Sub Form_Load( ) PicturePicture = LoadPicture(“c:My Documents图片

Qian1_Icon0ico”) ______ End Sub Private Sub Timer1_Timer( )

Static x, y As Integer x = x + 300 y = y + 300 PictureMove x,

y End Sub

正确答案：al=1000

解析：Interval属性返回或设置对Timer控件的计时事件各调用间的毫秒数；

Timer事件在一个Timer控件的预定时间间隔过去之后发生，即每隔Interval属

性设定的时间间隔，就会触发一次。题中要求每隔一秒移动一次，因此在窗体启

动时，应将Timer1控件的Interval属性值设置为1000。

39． 文件根据数据性质，可分为【 】文件和【 】文件。

正确答案：程序,数据

解析：如果一个文件内存放的是程序数据，则该文件是程序文件。否则该文

件内存放的就是供其他程序使用的数据，也就是数据文件。