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

VB笔试模拟试卷276

(题后含答案及解析)

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

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

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

1． 下列对于软件测试的描述正确的是（ ）。

A．软件测试的目的是证明程序是否正确

B．软件测试的目的是使程序运行结果正确

C．软件测试的目的是尽可能多地发现程序中的错误

D．软件测试的目的是使程序符合结构化原则

正确答案：C

解析：软件测试是保证软件质量的关键环节，直接影响着软件的质量评估。

软件测试不仅要讲究策略，更要讲究时效性。软件测试的目的是尽可能多地发现

程序中的错误。

2． 设A=“12345678”，则表达式Val(Left(A，4)+Mid(A，4，2))的值为( )。

A．123456

B．123445

C．8

D．6

正确答案：B

3． 下列关于类、对象、属性和方法的叙述中，错误的是( )。

A．类是对一类具有相同的属性和方法对象的描述

B．属性用于描述对象的状态

C．方法用于表示对象的行为

D．基于同一个类产生的两个对象不可以分别设置自己的属性值

正确答案：D

解析：类是对一类具有相同的属性和方法对象的描述，属性用于描述对象的

状态，方法用于表示对象的行为，基于同一个类产生的两个对象是可以分别设置

自己的属性值的。

4． 以下关于函数过程的叙述中，正确的是（ ）。

A．函数过程形参的类型与函数返回值的类型没有关系

B．在函数过程中，过程的返回值可以有多个

C．当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式

传递

D．如果不指明函数过程参数的类型，则该参数没有数据类型

正确答案：A

5． 如果Form1是启动窗体，并且Form1的Load事件过程中有，

则程序启动后（ ）。

A．发生一个运行时错误

B．发生一个编译时错误

C．在所有的初始化代码运行后Form1是活动窗体

D．在所有的初始化代码运行后Form2是活动窗体

正确答案：C

6． 在VB中设计程序时，能自动被检查出来的错误是（ ）。

A．语法错误

B．语法错误和逻辑错误

C．运行错误

D．逻辑错误

正确答案：A

7． 在窗体上建立通用对话框需要添加的控件是（ ）。

A．Data控件

B．From控件

C．CommonDialog控件

D．VBComboBox控件

正确答案：C

解析：CommonDialog即为通用对话框控件．可设定不同的参数，有多种不

同类型。CommonDialog控件提供一组标准的操作对话框．进行诸如打开和保存

文件，设置打印选项，以及选择颜色和字体等操作．每种不同的对话框需要设置

不同的属性。如果用户需要建立一个通用对话框，则需要先添加commonDialog

控件。

8． 在KeyUp 事件过程中，通过KeyCode 参数判断用户的按键。假定键

“B”的 KeyCode值为66，则以下正确的说法是______。

A．按Shift+ B键后的KeyCode值为66+1

B．按Shift+ B、Ctrl+ B、Alt+ B键后的KeyCode值均为66

C．按Ctrl+ B键后的KeyCode值为66+2

D．按Alt+ B键后的KeyCode值为66+4

正确答案：B

9． A、B、C均为整型，执行下列语句后，窗口上将显示 _______。 A=7:

B=2：C=11 Print A*C B-A*C /B

A．0.5

B．-1.0

C．1.0

D．0.5

正确答案：D

解析：本题主要考查表达式的计算。Print后面的表达式中，首先计算乘方，

再按顺序计算乘除法，最后计算加减法。不难得出最后表达式的结果为-0.5。

10． 软件(程序)调试的任务是

A．诊断和改正程序中的错误

B．尽可能多地发现程序中的错误

C．发现并改正程序中的所有错误

D．确定程序中错误的性质

正确答案：A

解析：软件调试的任务是诊断和改正程序中的错误，本题正确答案为A)。

其他二项描述不正确，选项B)描述不全面，选项C)描述太绝对，选项D)描述不

符合定义。

11． 用InputBox函数设计的对话框,其功能是

A．能接收用户输入的数据,但不会返回任何信息

B．能接收用户输入的数据,并能返回用户输入的信息

C．既能用于接收用户输入的信息,又能用于输出信息

D．专门用于输出信息

正确答案：B

解析：考查InputBox函数的使用方法。InputBox 函数在一对话框来中显示

提示,等待用户输入正文或按下按钮,并返回包含文本框内容。InputBox和MsgBox

函数的区别。

12． 下列( )标识符不能作为VisualBasic的变量名。

A．ABCabe

B．b1234

C．28wed

D．crud

正确答案：C

解析：给变量命名时应遵循4个原则：①名字只能由字母、数字和下划线组

成；②第一个字符必须是英文字母，最后一个字符可以是类型说明符：③名字的

有效字符为255个；④不能使用Visual Basic中的保留字作为变量名。

13． 要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大

化和最小化按钮，设置的操作是( )。

A．设置BorderStyle的值为Fixed ToolWindow

B．设置Borderstyle的值为Sizable ToolWindow

C．设置Borderstyle的值为Fixed Dialog

D．设置Borderstyle的值为Sizable

正确答案：C

14． 假定建立了一个名为Comrnandl的命令按钮数组，则下列说法中错误

的是（ ）。

A．数组中每个命令按钮的名称(名称属性)均为Commandl

B．数组中每个命令按钮的标题(Caption属性)都一样

C．数组中所有命令按钮可以使用同一个事件过程

D．用名称commandl(下标)可以访问数组中的每个命令按钮

正确答案：B

15． 下列可作为Visual Basic变量名的是______。

A．A#A

B．4A

C．? xy

D．constA

正确答案：D

解析：变量名的命名必须遵守几个规定：变量名必须以字母开头，而不能以

数字或其他字符开头。变量名的其余部分可以包含字母、数字和/或下划线字符，

而不允许有空格、句号或其他停顿符号。变量名不能超过255个字符。变量名不

能是Visual Basic的保留字。

16． 在文本框中，要使键入的所有字符都显示“*”号，这时应该设置______

属性为“*”号。

A．Text

B．MultiLine

C．ScrollBars

D．PasswordChar

正确答案：D

解析：PasswordChar属性：返回或设置一个值，该值指示所键入的字符或占

位符在TextBox控件中是否要显示出来；返回或设置用作占位符。为了在对话框

中创建一个密码域应使用此属性。虽然能够使用任何字符，但是大多数基于

Windows的应用程序使用星号(*)。注意：如果MultiLine属性被设为True，那么

设置PasswordChar属性将不起效果。

17． 下列程序段的执行结果为( )。 Dim A(3，3) For M=1 To 3

For N=1 To 3 If N=M Or N=3-M+1 Then A(M, N)=1 Else A(M，

N)=0End If Next N Next M For M=1 To 3 For N=1 To 3 Print

A(M，N) Next N Print Next M

A．1 0 0 0 1 0 0 0 1

B．1 1 1 1 1 1 1 1 1

C．0 0 0 0 0 0 0 0 0

D．1 0 1 0 1 0 1 0 1

正确答案：D

解析：For循环的一般格式是：For counter=start To end [Step

step]statements][Exit For]statements]Next [counter]当所有循环中的语句都执行后，

step的值会加到counter中。此时，循环中的语句可能会再次执行，也可能是退

出循环并从Next语句之后的语句继续执行．可以将一个For…Next循环放置在

另一个 For…Next循环中，组成嵌套循环．不过在每个循环中的counter要使用

不同的变量名。根据题目中的意思，在If N=M Or N=3-M+1Then条件成立时，

给数组元素赋值为1；否则给数组元素赋值为0。当N=1，M=1 N=1， M=3 N=2，

M=2；N=3，M=3； N=3，M=1时，数组元素为1，其他的数组元素为。

18． 设x=4，y=8，z=7，下列表达式的值是( )。 x＞z Or z＜x

A．1

B．-1

C．True

D．False

正确答案：D

解析：关系和逻辑混合运算时，先进行关系运算然后进行逻辑运算．表达式

X＞Z Or z＜X的运算过程为：x＞z Or z＜X→False or False→False。

19． 用Print方法在Form1窗体中显示出4个#号的正确代码为( )。

A． “####”

B．Print ####

C．Form1_Print ####

D． “####”

正确答案：D

解析：分析题目可知有两个要求：一是输出4们号；二是在 Form1窗体中。

选项A)实现的是在立即窗口中输出4个#号；选项 B)实现的是在默认的对象中

输出4个#号；选项C)语法不对；只有选项D)是完全正确的。

20． 按文件的内容划分有( )。

A．顺序文件和随机文件

B．ASCII文件和二进制文件

C．程序文件和数据文件

D．磁盘文件和打印文件

正确答案：C

解析：根据不同的分类标准，文件可分为不同的类型。根据数据性质，文件

可分为程序文件和数据文件；根据数据的存取方式和结构，文件可分为顺序文件

和随机文件；根据数据的编码方式，文件可分为ASCII文件和二进制文件。

21． 在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过

程： Private Sub Form_Click( )x=InputBox(“请输入一个整数”)Print

x+ End Sub 单击该窗体，在输入对话框中输入123，单击“确

定”按钮后，窗体上显示是( )。

A．123

B．456

C．579

D．123456

正确答案：D

解析：InputBox函数用于产生一个输入对话框，在对话框来中显示提示，等

待用户输入字符或按下按钮，然后返回包含文本框内容的字符串，所以x是字符

串类型，因此x+是字符串的连接操作，输出的是两个字符串的连接。

22． 执行如下语句： a=InputBox(“Today”, “Tomorrow”, “Yesterday”, “Day

before yesterday”, 5) 将显示一个输入对话框，在对话框的输入区中显示的信

息是______。

A．Today

B．Tomorrow

C．Yesterday

D．Day before yesterday

正确答案：C

解析：InputBox函数格式为：InputBox(prompt[, title][, default][, xpos, gpos][,

helpfile, context])其中：prompt是一个字符串，其长度不得超过1024个字符，它

是在对话框内显示的信息，用来提示用户输入；title是字符串，它是对话框的标

题，显示在对话框顶部的标题区；default是字符串，用来显示输入缓冲区的默认

信息；xpos, ypos是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)

和上边的距离(ypos)；helpfile, context, helpfile是一个字符串变量或字符串表达

式，用来表示帮助文件的名称；context是一个数值变量或表达式，用来表示相

关帮助主题的帮助目录号。

23． 下面程序的功能是由随机函数产生100个在200～700之间的整数，然

后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线

处将程序补充完整。 Dim a(100) For j=1 To 100

a(j)=Int(Rnd*501+200)：Print a(j) Next j : Print p=1 : max= ______ For

j=2 To 100 If a(j)＞max Then max=a(j) : p=j Next j Print “The

largest number is “ ; max Print “The position is”; p End

A．0

B．a(1)

C．1.7E+38

D．1.7E-38

正确答案：B

解析：Rnd随机数函数产生一个在(0，1)区间的任意一个单精度随机实数(不

含0和1)。 Int函数返回不大于自变量的最大整数。数组a用来存放100个随机

数。此程序的第一个For循环，其中Int(Rnd*501)产生0～500的随机整数，

Int(Rnd*501)+200产生200～700的随机整数，该For循环的功能是产生100个

在200～700间的整数，并将它们存放在一维数组a中。程序的后半部分的功能

是在数组中依照从第一个元素到最后一个元素的顺序，查找最大的一个数并将之

赋值给max，并且找出最大数所在的位置，并把它赋值给p。max是当前查找的

元素中的最大值，p记录该元素的位置，显然在下划线处应填写数组的第一个元

素，即a(1)。

24． 使用CoamonDialog 控件的______ 方法可显示”打印”对话框。

A．ShowOpen

B．ShowSave

C．ShowColor

D．Showprinter

正确答案：D

25． 在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，

则程序的运行结果是______ 。 private sub form_ load =“”

us for k=1 to 5 t=t*k next k =t end sub

A． 在文本框中显示120

B．文本框中仍为空

C．在文本框中显示1

D．出错

正确答案：D

26． 若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图

案的线条的颜色由FillColor属性指定，非线条的区域由BackStyle属性填充，则

应 ______。

A．将Shape控件的FillStyle属性设置为2-7间的某个值，BackStyle属性设

置为1

B．将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为1

C．将Shape控件的FillsStyle属性设置为2-7间的某个值，BackStyle属性设

置为0

D．将Shape控件的FillStyle属性设置为0或1，BackStyle属性设置为0

正确答案：A

解析：Shape控件的相关属性 FillStyle属性，该属性的设置值决定了形状

控件内部的填充图案，其值如下： 0-Solid：(实心) 1-Transparent：(透明)

2-Horizontal Lin：(水平线) 3-Vertial Line：(垂直线) 4-Upward Diagona：(向

上对角线) 5-Downward Diagonal：(向下对角线) 6-Cross：(交叉线)

7-Diagonal：(对角交叉线) FiilColor属性，用来定义形状控件的内部颜色。 如

果FiilStyle属性值设置为1，则FillColor属性将不起作用。 BackStyle属性，

设置值为0和1，用来决定形状控件的背景是否被指定的颜色填充。为0时，形

状控件的背景是透明的，为1时，形状控件的背景由BackColor属性所指定的颜

色来填充。如果FillStyle属性设置为0，则BackStyle属性将不起作用。

27． 有如下函致： Function fact(x As Integer)As Long Dim p As Long，

i As Integer p=1 For i=1 To x p=p*1 Next fact=p

End Function 调用它的事件过程如下： Private Sub Command1_Click( )

i=Val(Inputbox(“请输入数据”)) a=fact((i)) Print a End Sub

若输入数据5，则运行结果为

A．120

B．60

C．80

D．100

正确答案：A

解析：本题的难点是实参与形参数传递的问题。如果将fact((i))改成fact(i)

会产生“ByRef参数类型不符”的提示。字符型变量i经(i)计算的结果为5，其

作为常数参数按值传递调用子过程fact(5)。子过程的功能是计算n!。

28． 在窗体上画一个名称为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．13.45.8

B．1 3 5

C．1 4 7

D．无数据输出

正确答案：B

解析：Do Until…Loop循环采用的是先判断循环条件后执行循环体的做法。

而用Until关键字表示当循环条件为False时执行循环体，直到条件为True时终

止循环。 代码中，num是整型数据，循环体共被执行3次。循环体第三次被执

行后，num的值为7，故循环终止。

29． 在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的

标签，然后编写如下事件过程： Private Sub Command1_Click( ) s=0

For i=1 To 15x=2*i-1if x Mod 3=0 Then s=s+1 Next i LabeCaption=s

End Sub 程序运行后，单击命令按钮，则标签中显示的内容是______。

A．1

B．5

C．27

D．45

正确答案：B

解析：循环共执行了15次，分别计算出x的值，为1～30之间的奇数，即

1、3、5、7、……、29，并统计其中能够被3整数的个数。选项B正确。

30． 为了使能在DOS或Windows下运行的可执行程序也可以在Visual Basic

中调用，可通过调用函数来实现。

A．String( )

B．Space( )

C．Left( )

D．Shell( )

正确答案：D

解析：在Visual Basic中，不但提供了可调用的内部函数，还可以调用各种

应用程序，也就是凡是能在 DOS或Windows下运行的可执行程序，也可以在

Visual Basic中调用，这是通过Shell( )函数来实现的。

31． 确定一个控件在窗体上的大小的属性是

A．Width和Height

B．Width或Height

C．Top和Left

D．Top或Left

正确答案：A

解析：Height和Width(高、宽)属性用来指定窗体的高度和宽度，其单位为

twip。

32． 在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码：

Private Sub Command1_Click( ) k=0 Do While k ＜ 70 k=k+2

k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，

文本框中显示的是

A．20

B．32

C．44

D．78

正确答案：D

解析：第1次执行循环体，k=(0+2)× (0+2)+(0+2)=6，a=0+6=6；第2次执

行循环体，k=(6+2)×(6+2)+(6+2)=72，a=6+72=78：第3次测试循环条件时，72

＜70为假，终止循环。

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

Command1_Click( ) Forj=1 To 3 Print Tab(3*j)11*(2*j-1)；Next jPrint

End Sub 程序的执行结果为

A．11

B．33

C．1133

D．11 33 55

正确答案：D

解析：可以使用排除法，由于存放在For j循环，所以输出结果排除A与B

项，同时由于第一个Print方法的最后有j，所以输出结果不会换行显示，故排除

C，答案为 D。注意Tab(n)表示把光标移到由参数n指定的位置。

34． 执行以下程序段 a$=“abbacddcba” For i=6 To 2 Step-2

X=Mid(a，i，i) Y=Left(a，i) z=Rfight(a，i) z=UCase(X&Y&z) Next i

Print z 输出结果为

A．ABA

B．BBABBA

C．ABBABA

D．AABAAB

正确答案：B

解析：由于Print语句在For循环后，而不在For循环内，故只有For循环

执行完毕后，Print方法才输出最终的z值。当i=z时，For循环执行最后一次循

环体。此时 Mid(a，2，2)表示返回a＄从第2个字符开始向右的2个字符，即“bb”；

Left(a，2)表示返回 a＄左边的两个字符，即“ab”；Risht(a，2)表示返回a＄右边

两个字符，即“ba”。所以“X&Y&z”的值为”bbabba”，Ucase返回字符串的大

写形式。

35． 在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：

Dim Flag As BooleanPrivate Sub Command1_Click( ) Dim intNum As Integer

intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End IfEnd

SubFunction f(X as Integer)As Integer If X＜10 ThenY=X ElseY=X＋10 End If

f=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X as

Single,Y As Single) Flag=TrueEnd Sub 运行程序，首先单击窗体，然后单击命

令按钮，在输入对话框中输入5，则程序的输出结果为______。

A．0

B．5

C．15

D．无任何输出

正确答案：B

解析：单击窗体在释放鼠标时，将会触发Form_MouseUp事件，将Flag值

置True，从而允许输出。在Command1的Click事件中，通过输入框输入5，并

在窗体上输出f(5)，函数f的作用是，如果自变量x＜10，则直接返回 x，否则

返回x＋10。故本题应输出5。

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

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

36． 【 】的功能是用于显示当前过程中的有关信息，当测试一个过程时，

可在其中输入代码并立即执行。

正确答案：立即窗口

37． 下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程

序中字符串 “Welcome Home”中的字符全部大写输出，其后字符”Wel Back”全部

小写输出。请填空。 Private Sub Command1_Click( ) a = “Welcome

Home”; b = “Wel Back” c = 【 】+ LCase(B) Print c

End Sub

正确答案：UCase

解析：字符串转换函数UCase的作用是字符串中所有小写字母改成大写。

字符串转换函数LCase的作用是字符串中所有大写字母改成小写。

38． 数据结构包括数据的逻辑结构、数据的【 】以及对数据的操作运算。

正确答案：存储结构

解析：数据结构包括3个方面，即数据的逻辑结构、数据的存储结构及对数

据的操作运算。

39． 数据库三级模式体系结构的划分，有利于保持数据库的【 】。

正确答案：数据独立性

解析：数据库的三级模式体系结构把数据的组织管理工作进行了划分，把数

据的具体组织留给DBMS管理，使用户能逻辑地、抽象地处理数据，而不必关

心数据在计算机中的具体表示方式与存储方式，保证了数据的独立性。

40． 第一范式是满足关系模式所要遵循的最基本的条件的范式，即关系中

的每个属性必须是【 】的简单项。

正确答案：不可再分

解析：范式指的是规范化的关系模式。一个低一级范式的关系模式通过模式

分解可以转换为若干个高一级范式的关系模式集合，这种过程就叫做关系模式的

规范化。规范化理论正是用来改造关系模式，通过分解关系模式来消除其中不合

适的数据依赖，以解决数据冗余、插入异常、删除异常和更新异常问题。由于规

范化的程度不同，就产生了不同的范式。满足最基本规范化条件的关系模式叫做

第一范式。第一范式是满足关系模式所要遵循的最基本的条件的范式，即关系中

的每个属性必须是不可再分的简单项。在第一范式基础上再满足另外一些约束条

件就产生了第二范式、第三范式等。目前主要有6种范式：第一范式(1NF)、第

二范式 (2NF)、第三范式(3NF)、BC范式(BCNF)、第四范式(4NF)和第五范式

(5NF)。

41． 下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗

体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量: Dim

PaintStart As Boolean 编写如下事件过程: Private Sub

Form_Load( )DrawWidth=2 ForeColor=vreen End Sub Private Sub

Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As

Single)PaintStart = True End Sub Private Sub Form_MouseMove(Button As Integer,

Shift As Integer, X As Single, Y As Single)If PaintStart Then PSet (X, Y) End If

End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As

Single, Y As Single)【 】End Sub Private Sub Form_DblClick( )Cls End Sub

正确答案：PaintStart = False

解析：上述过程定义了一个布尔型变量PaintStart,当按下鼠标左键(触发

MouseDown事件) 时,由题意按下鼠标键表示能画图,所以该变量的值为True,而

松开鼠标左键(触发MouseUp事件) 时,该变量为False;如果变量PaintStart为True,

则移动鼠标(触发MouseMove事件),将在窗体上绘出一个点;除鼠标事件外,上述

程序还含有一个Load事件过程和一个DblClick事件过程,其中Load事件过程用

来设置画点的大小和颜色,DblClick事件过程用来清除所画的图形,函数Pset是画

点语句,用它可以在(x,y) 处画一个点。

42． 下列程序是用来计算1+2+3+…+10的程序段，请补充完整该程序。

Dimi,s,k As Integer s=0:k=0 For______To-1 k=k+1 s=s+k

Nexti Print S

正确答案：i=-10

43． 如果存在如下过程：Private Function FMax(a( )As Integer) Dim

First As Integer，Last As Integer，i As Integer First=LBound(a)

Last=UBound(a) Max=a(First) Fori=FirSt To Last Ifa(i)＞Max

ThenMax=a(i) Nexti FMax=Max End Function

正确答案：100

44． 由Array函数建立的数组的名字必须是【 】类型。

正确答案：变体 或 Variant

解析：Array 返回一个包含数组的 Variant。语法Array(arglist)所需的arglist

参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋

值。如果不提供参数，则创建一个长度为0的数组。

45． 由Array函数建立的数组的名字必须是【 】类型。

正确答案：变体或Variant

解析：Array返回一个包含数组的Variant。语法Army(arglist)所需的arglist

参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋

值。如果不提供参数，则创建一个长度为。的数组。

46． 下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中

的数字字符的个数。Private Sub form_ Click( )Dim Ch As String * 1Dim n As

IntegerOpen “c:a1. txt” for Input As #10do while【 】Ch = Input(1, #10)if【 】

thenn=n+1End ifLoop【 】Close #10End Sub

正确答案：Not EOF(10), Ch＞=“0” And Ch＜=“9”,Print n

解析：要求算出中的数字字符的个数，可采用下述方法：首先定义一

个记录数字字符个数的变量n并打开文件，然后从文件中读取一个字符，判断该

字符是否为数字字符，若是数字字符，则变量n的值加1。重复上述过程直到文

件结尾。在读字符前应要测试文件内部读写指针是否位于文件尾，只有不是在文

件结尾处才能读取字符，故[7]处应填“Not EOF(10)”，读取一个字符后，应判断

该字符是否为数字字符，故[8]处应填“Ch＞=“0”And Ch＜=“9””，当文件中

的所有字符都读出一遍后，n的值就是数字型字符的个数，最后应输出n，所以

[9]处应填“Print n”。

47． 由Visual Basic系统事先设定的，能被对象识别和响应的动作称为【 】。

正确答案：事件

解析：在VB 6.0中，事件是预先没置好的，能够被对象识别和响应的动作。

不同的对象能够识别不同的事件。

48． 在窗体上画一个命令按钮，然后编写如下程序： (假定变量x是一个

窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End

Sub Private Sub Command1_Click( ) inc 2 inc 3 inc 4

Print x； End Sub 程序执行后，单击Command1命令按钮，输出的结果是

【 】。

正确答案：9

解析：inc函数每执行一次就向x上累加一次传入的参数，所以最后x的值

为：2+3+4=9。

49． 以下程序段的输出结果是【 】。 num=0 While num＜=2

num=num+1 Print num； Wend

正确答案：1 2 3

解析：此题不断修改变量num的值并输出，num同时又是循环变量，3次循

环分别计算出3个值为1、2、 3。注意While型循环和For型循环的不同形式。

50． 设在工程中有一个标准模块，其中定义了如下记录类型： Type

BooksName As String*10telNum As String*20 End Type 在窗体上添加

一个名为Command1的命名按钮，要求当执行事件过程Command1_Click时，在

顺序文件 中写入一条记录。请在【 】中填入适当的内容，将程序被

补充完整。 Private Sub Command1_Click( )Dim B As【 】Open”c：

”For Output As #=Input Box(“输入姓

名”)=InputBox(“输入学号”) Write#I，B，Name，

Close #1 End Sub

正确答案：Books

解析：本题先定义一个Books数据类型，包括两个元素：Name与TelNum。

为变量B赋值并写入，首先要定义变量B的数据类型，根据题意，应定义变量

B为Books数据，故填 Books。