[计算机类试卷]VB笔试模拟试卷276及答案与解析.doc

1、VB笔试模拟试卷 276及答案与解析 1 下列对于软件测试的描述正确的是（ ）。 （ A）软件测试的目的是证明程序是否正确 （ B）软件测试的目的是使程序运行结果正确 （ C）软件测试的目的是尽可能多地发现程序中的错误 （ D）软件测试的目的是使程序符合结构化原则 2 设 A=“12345678“，则表达式 Val(Left(A， 4)+Mid(A， 4， 2)的值为 ( )。 （ A） 123456 （ B） 123445 （ C） 8 （ D） 6 3 下列关于类、对象 、属性和方法的叙述中，错误的是 ( )。 （ A）类是对一类具有相同的属性和方法对象的描述 （ B）属性用于描述对象的状

2、态 （ C）方法用于表示对象的行为 （ D）基于同一个类产生的两个对象不可以分别设置自己的属性值 4 以下关于函数过程的叙述中，正确的是（ ）。 （ A）函数过程形参的类型与函数返回值的类型没有关系 （ B）在函数过程中，过程的返回值可以有多个 （ C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 （ D）如果不指明函数过程参数的类型，则该参数没有数据 类型 5 如果 Form1是启动窗体，并且 Form1的 Load事件过程中有 Form2.Show，则程序启动后（ ）。 （ A）发生一个运行时错误 （ B）发生一个编译时错误 （ C）在所有的初始化代码运行后 Form

3、1是活动窗体 （ D）在所有的初始化代码运行后 Form2是活动窗体 6 在 VB中设计程序时，能自动被检查出来的错误是（ ）。 （ A）语法错误 （ B）语法错误和逻辑错误 （ C）运行错误 （ D）逻辑错误 7 在窗体上建立通用对话框需要添加的控件是（ ）。 （ A） Data控件 （ B） From控件 （ C） CommonDialog控件 （ D） VBComboBox控件 8 在 KeyUp 事件过程中，通过 KeyCode 参数判断用户的按键。假定键 “B”的 KeyCode值为 66，则以下正确的说法是 _。 （ A）按 Shift+ B键后的 KeyCode值为 66+1 （

4、 B）按 Shift+ B、 Ctrl+ B、 Alt+ B键后的 KeyCode值均为 66 （ C）按 Ctrl+ B键后的 KeyCode值为 66+2 （ D）按 Alt+ B键后的 KeyCode值为 66+4 9 A、 B、 C均为整型，执行下列语句后，窗口上将显示 _。 A=7: B=2：C=11 Print A*C2B-A*C2/B （ A） 0.5 （ B） -1.0 （ C） 1.0 （ D） 0.5 10 软件 (程序 )调试的任务是 （ A）诊断和改正程序中的错误 （ B）尽可能多地发现程序中的错误 （ C）发现并改正程序中的所有错误 （ D）确定程序中错误的性质 11

5、 用 InputBox函数设计的对话框 ,其功能是 （ A）能接收用户输入的数据 ,但不会返回任何信 息 （ B）能接收用户输入的数据 ,并能返回用户输入的信息 （ C）既能用于接收用户输入的信息 ,又能用于输出信息 （ D）专门用于输出信息 12 下列 ( )标识符不能作为 VisualBasic的变量名。 （ A） ABCabe （ B） b1234 （ C） 28wed （ D） crud 13 要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是 ( )。 （ A）设置 BorderStyle的值为 Fixed ToolWindow （ B）设置 B

6、orderstyle的值为 Sizable ToolWindow （ C）设置 Borderstyle的值为 Fixed Dialog （ D）设置 Borderstyle的值为 Sizable 14 假定建立了一个名为 Comrnandl的命令按钮数组，则下列说法中错误的是（ ）。 （ A）数组中每个命令按钮的名称 (名称属性 )均为 Commandl （ B）数组中每个命令按钮的标题 (Caption属性 )都一样 （ C）数组中所有命令按钮可以使用同一个事件过程 （ D）用名称 commandl(下标 )可以访问数组中的每 个命令按钮 15 下列可作为 Visual Basic变量名的是

7、 _。 （ A） A#A （ B） 4A （ C） ? xy （ D） constA 16 在文本框中，要使键入的所有字符都显示 “*”号，这时应该设置 _属性为“*”号。 （ A） Text （ B） MultiLine （ C） ScrollBars （ D） 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)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 P

8、rint 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 18 设 x=4， y=8， z=7，下列表达式的值是 ( )。 x z Or z x （ A） 1 （ B） -1 （ C） True （ D） False 19 用 Print方法在 Form1窗体中显示出 4个 #号的正确代码为 ( )。 （ A） Debug.Print “#“ （ B） Print # （ C） Form1_Print #

9、 （ D） Form1.Print “#“ 20 按文件的内容划分有 ( )。 （ A）顺序文件和随机文件 （ B） ASCII文件和二进制文件 （ C）程序文件和数据文件 （ D）磁盘文件和打印文件 21 在窗体上放一个文本框 Text1，在文本框中输入 456，并有如下事件过程： Private Sub Form_Click() x=InputBox(“请输入一个整数 “) Print x+Text1.Text End Sub 单击该窗体，在输入对话框中输入 123，单击 “确定 ”按钮后，窗体上显示是 ( )。 （ A） 123 （ B） 456 （ C） 579 （ D） 123456

10、 22 执行如下语句： a=InputBox(“Today“, “Tomorrow“, “Yesterday“, “Day before yesterday“, 5) 将显示一个输入对话框，在对话框的输入区中显示的信息是_。 （ A） Today （ B） Tomorrow （ C） Yesterday （ D） Day before yesterday 23 下面程序的功能是由随机函数产生 100个在 200 700之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rn

11、d*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 24 使用 CoamonDialog 控件的 _ 方法可显示 ”打印 ”对话框。 （ A） ShowOpen （ B） ShowSave （ C） ShowColor

12、（ D） Showprinter 25 在窗体上添加一个文本框，名为 text1，然后编写如下的 load事件过程，则程序的运行结果是 _ 。 private sub form_ load text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end sub （ A） 在文本框中 显示 120 （ B）文本框中仍为空 （ C）在文本框中显示 1 （ D）出错 26 若在 Shape控件内以 FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由 FillColor属性指定，非线条的区域由 BackS

13、tyle属性填充，则应 _。 （ 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 27 有如下函致： Function fact(x As Integer)As Long Dim p As Long， i As I

14、nteger 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 28 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do UntiL n

15、um 6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 _。 （ A） 13.45.8 （ B） 1 3 5 （ C） 1 4 7 （ D）无数据输出 29 在窗体上画一个名称为 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 LabeCaption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是

16、 _。 （ A） 1 （ B） 5 （ C） 27 （ D） 45 30 为了使能在 DOS或 Windows下运行的可执行程序也可以在 Visual Basic中调用，可通过调用函数来实现。 （ A） String() （ B） Space() （ C） Left() （ D） Shell() 31 确定一个控件在窗体上的大小的属性是 （ A） Width和 Height （ B） Width或 Height （ C） Top和 Left （ D） Top或 Left 32 在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click()

17、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 33 在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click( ) Forj=1 To 3 Print Tab(3*j)11*(2*j-1)； Next j Print End Sub 程序的执行结果为 （ A） 11 （ B） 33 （ C） 11 33 （ D） 11 33 55 34 执行以下程序段 a$=“abbacddc

18、ba“ For i=6 To 2 Step-2 X=Mid(a， i， i) Y=Left(a， i) z=Rfight(a， i) z=UCase(X b = “Wel Back“ c = 【 】 + LCase(B) Print c End Sub 38 数据结构包括数据的逻辑结构、数据的【 】以及对数据的操作 运算。 39 数据库三级模式体系结构的划分，有利于保持数据库的【 】。 40 第一范式是满足关系模式所要遵循的最基本的条件的范式，即关系中的每个属性必须是【 】的简单项。 41 下面程序是由鼠标事件在窗体上画图 ,如果按下鼠标将可以画图 ,双击窗体可以清除所画图形。补充完整下面的程

19、序。 首先在窗体层定义如下变量 : 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

20、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 42 下列程序是用来计算 1+2+3+10 的程序段，请补充完整该程序。 Dimi,s,k As Integer s=0:k=0 For_To-1 k=k+1 s=s+k Nexti P

21、rint S 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 44 由 Array函数建立的数组的名字必须是【 】类型。 45 由 Array函数建立的数组的名字必须是【 】类型。 46 下列程序实现的功能是：当在

22、窗体上单击时，将输出 a1 txt 文件中的数字字符的个数。 Private Sub form_ Click() Dim Ch As String * 1 Dim n As Integer Open “c:a1. txt“ for Input As #10 do while【 】 Ch = Input(1, #10) if【 】 then n=n+1 End if Loop【 】 Close #10 End Sub 47 由 Visual Basic系统事先设定的，能被对象识别和响应的动作称为【 】。 48 在窗体上画一个命令按钮，然后编写如下程序： (假定变量 x是一个窗体级变量 ) Dim

23、 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命令按钮，输出的结果是【 】。 49 以下程序段的输出结果是【 】。 num=0 While num =2 num=num+1 Print num； Wend 50 设在工程中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 telNum As String*20 End Type 在窗

24、体上添加一个名为 Command1的命名按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。请在【 】中填入适当的内容，将程序被补充完整。 Private Sub Command1_Click( ) Dim B As【 】 Open“c： person.txt“For Output As #1 B.Name=Input Box(“输入姓名 ”) B.TelNum=InputBox(“输入学号 ”) Write#I， B， Name， B.TelNum Close #1 End Sub VB笔试模拟试卷 276答案与解析 1 【正确答案】 C

25、【试题解析】 软件测试是保证软件质量的关键环节，直接影响着软件的质量评估。软件测试不仅要讲究策略，更要讲究时效性。软件测试的目的是尽可能多地发现程序中的错误。 2 【正确答案】 B 3 【正确答案】 D 【试题解析】 类是对一类具有相同的属性和方法对象的描述，属性用于描述对象的 状态，方法用于表示对象的行为，基于同一个类产生的两个对象是可以分别设置自己的属性值的。 4 【正确答案】 A 5 【正确答案】 C 6 【正确答案】 A 7 【正确答案】 C 【试题解析】 CommonDialog即为通用对话框控件可设定不同的参数，有多种不同类型。 CommonDialog控件提供一组标准的操作对话框

26、进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作每种不同的对话框需要设置不同的属性。如果用户需要建立一个通用对话框，则需要先添加 commonDialog控件。 8 【正确答案】 B 9 【正确答案】 D 【试题解析】 本题主要考查表达式的计算。 Print后面的表达式中，首先计算乘方，再按顺序计算乘除法，最后计算加减法。不难得出最后表达式的结果为 -0.5。 10 【正确答案】 A 【试题解析】 软件调试的任务是诊断和改正程序中的错误，本题正确答案为A)。其他二项描述不正确，选项 B)描述不全面，选项 C)描述太绝对，选项 D)描述不符合定义。 11 【正确答案】 B 【试题解

27、析】 考查 InputBox函数的使用方法。 InputBox 函数在一对话框来中显示提示 ,等待用户输入正文或按下按钮 ,并返回包含文本框内容。 InputBox和MsgBox函数的区别。 12 【正确答案】 C 【试题解析】 给变量命名时应遵循 4个原则： 名字只能由字母、数字和下划线组成； 第一个字符必须是英文字母，最后一个字符可以是类型说明符： 名字的有效字符为 255个； 不能使用 Visual Basic中的保留字作为变量名。 13 【正确答案】 C 14 【正确答案】 B 15 【正确答案】 D 【试题解析】 变量名的命名必须遵守几个规 定：变量名必须以字母开头，而不能以数字或其

28、他字符开头。变量名的其余部分可以包含字母、数字和 /或下划线字符，而不允许有空格、句号或其他停顿符号。变量名不能超过 255个字符。变量名不能是 Visual Basic的保留字。 16 【正确答案】 D 【试题解析】 PasswordChar属性：返回或设置一个值，该值指示所键入的字符或占位符在 TextBox控件中是否要显示出来；返回或设置用作占位符。为了在对话框中创建一个密码域应使用此属性。虽然能够使用任何字符，但是大多数基于Windows的应用程序使用星号 (*)。注意：如果 MultiLine属性被设为 True，那么设置 PasswordChar属性将不起效果。 17 【正确答案】

29、 D 【试题解析】 For循环的一般格式是： For counter=start To end Step step statements Exit For statements Next counter 当所有循环中的语句都执行后， step的值会加到 counter中。此时，循环中的语句可能会再次执行，也可能是退出循环并从 Next语句之后的语句继续执行可以将一 个 ForNext 循环放置在另一个 ForNext 循环中，组成嵌套循环不过在每个循环中的 counter要使用不同的变量名。 根据题目中的意思，在 If N=M Or N=3-M+1Then条件成立时，给数组元素赋值为1；否则给

30、数组元素赋值为 0。当 N=1， M=1 N=1， M=3 N=2， M=2； N=3，M=3； N=3， M=1时，数组元素为 1，其他的数组元素为。 18 【正确答案】 D 【试题解析】 关系和逻辑混合运算时，先进行关系运算然后进行逻辑运算表达式 X Z Or z X的运算过程为： x z Or z XFalse or FalseFalse 。 19 【正确答案】 D 【试题解析】 分析题目可知有两个要求：一是输出 4们号；二是在 Form1窗体中。选项 A)实现的是在立即窗口中输出 4个 #号；选项 B)实现的是在默认的对象中输出 4个 #号；选项 C)语法不对；只有选项 D)是完全正确

31、的。 20 【正确答案】 C 【试题解析】 根据不同的分类标准，文件可分为不同的类型。根据数据性质，文件可分为程序文件和数据文件；根据数据的存取方式和结构，文件可分为顺序文件和随机文件；根据数据 的编码方式，文件可分为 ASCII文件和二进制文件。 21 【正确答案】 D 【试题解析】 InputBox函数用于产生一个输入对话框，在对话框来中显示提示，等待用户输入字符或按下按钮，然后返回包含文本框内容的字符串，所以 x是字符串类型，因此 x+Text1.Text是字符串的连接操作，输出的是两个字符串的连接。 22 【正确答案】 C 【试题解析】 InputBox函数格式为： InputBox(

32、prompt, title, default, xpos, gpos, helpfile, context) 其中： prompt是一个字符串，其长度不得超过 1024个字符，它是在对话框内显示的信息，用来提示用户输入； title是字符串，它是对话框的标题，显示在对话框顶部的标题区； default是字符串，用来显示输入缓冲区的默认信息； xpos, ypos是两个整数值，分别用来确定对话框与屏幕左边的距离 (xpos)和上边的距离 (ypos)； helpfile, context, helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名称； context是一个数值变量或

33、表达式，用来表示相关帮助主题的帮助目录号。 23 【正确答案】 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，并且找

34、出最大数所在的位置，并把它赋值给 p。 max是当前查找的元素中的最大值， p记录该元素的位置，显然在下划线处应填写数组的第一个元素，即a(1)。 24 【正确答案】 D 25 【正确答案】 D 26 【正确答案】 A 【试题解析】 Shape控件的相关属性 FillStyle属性，该属性的设置值决定了形状控件内部的填充图案，其值如下： 0-Solid： (实心 ) 1-Transparent： (透明 ) 2-Horizontal Lin： (水平线 ) 3-Vertial Line： (垂直线 ) 4-Upward Diagona： (向上对角线 ) 5-Downward Diagonal

35、： (向下对角线 ) 6-Cross： (交叉线 ) 7-Diagonal： (对角交叉线 ) FiilColor属性，用来定义形状控件的内部颜色。 如果 FiilStyle属性值设置为 1，则 FillColor属性将不起作用。 BackStyle属性，设置值为 0和 1，用来决定形状控件的背景是否被指定的颜色填充。为 0时，形状控件的背景是透明的，为 1时，形状控件的背景由 BackColor属性所指定的颜色来填充。如果 FillStyle属性设置为 0，则 BackStyle属性将不起作用。 27 【正确答案】 A 【试题解析】 本题的难点是实参与形参数传递的问题。如果将 fact(i)

36、改成 fact(i)会产生 “ByRef参数类型不符 ”的提示。字符型变量 i经 (i)计算的结果为 5，其作为常数参数按值传递调用子过程 fact(5)。子过程的功能是计算 n!。 28 【正确答案】 B 【试题解析】 Do UntilLoop 循环采用的是先判断循环条件后执行循环体的做法。而用 Until关键字表示当循环条件为 False时执行循环体，直到条件为 True时终止循环。 代码中， num是整型数据，循环体共被执行 3次。循环体第三次被执行后， num的值为 7，故循环终止。 29 【正确答案】 B 【试题解析】 循环共执行了 15次，分别计算出 x的值，为 1 30之间的奇数

37、，即 1、 3、 5、 7、 、 29，并统计其中能够被 3整数的个数。选项 B正确。 30 【正确答案】 D 【试题解析】 在 Visual Basic中， 不但提供了可调用的内部函数，还可以调用各种应用程序，也就是凡是能在 DOS或 Windows下运行的可执行程序，也可以在Visual Basic中调用，这是通过 Shell()函数来实现的。 31 【正确答案】 A 【试题解析】 Height和 Width(高、宽 )属性用来指定窗体的高度和宽度，其单位为 twip。 32 【正确答案】 D 【试题解析】 第 1次执行循环体， k=(0+2) (0+2)+(0+2)=6， a=0+6=6

38、；第 2次执行循环体， k=(6+2)(6+2)+(6+2)=72， a=6+72=78：第 3次测试循环条件时， 7270为假，终止循环。 33 【正确答案】 D 【试题解析】 可以使用排除法，由于存放在 For j循环，所以输出结果排除 A与B项，同时由于第一个 Print方法的最后有 j，所以输出结果不会换行显示，故排除 C，答案为 D。注意 Tab(n)表示把光标移到由参数 n指定的位置。 34 【正确答案】 B 【试题解析】 由于 Print语句在 For循环后，而不在 For循环内，故只有 For循环执行完毕后， Print方法才输出最终的 z值。当 i=z时， For循环执 行最

39、后一次循环体。此时 Mid(a， 2， 2)表示返回 a从第 2个字符开始向右的 2个字符，即“bb”； Left(a， 2)表示返回 a左边的两个字符，即 “ab”； Risht(a， 2)表示返回 a右边两个字符，即 “ba”。所以 “X如果变量 PaintStart为 True,则移动鼠标 (触发 MouseMove事件 ),将在窗体上绘出一个点 ;除鼠标事件外 ,上述程序还含有一个 Load事件过程和一个 DblClick事件过程 ,其中 Load事件过程用来设置画点的大小和颜色 ,DblClick事件过程用来清除所画的图形 ,函数 Pset是画点语句 ,用它可以在 (x,y) 处画一

40、个点。 42 【正确答案】 i=-10 43 【正确答案】 100 44 【正确答案】 变体 或 Variant 【试题解析】 Array 返回一个包含数组的 Variant。 语法 Array(arglist) 所需的 arglist参数是一个用逗号隔开的值表，这些值用于给 Variant所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0的数组。 45 【正确答案】 变体或 Variant 【试题解析】 Array返回一个包含数组的 Variant。 语法 Army(arglist) 所需的 arglist参数是一个用逗号隔开的值表，这些值用于给 Variant所包含的数组的各元

41、素赋值。如果不提供参数，则创建一个长度为。的数组。 46 【正确答案】 Not EOF(10), Ch =“0” And Ch =“9”,Print n 【试题解析】 要求算出 a1.txt中的数字字符的个数，可采用下述方法：首先定义一个记录数字字符个数的变量 n并打开文件，然后从文件中读取一个字符，判断该字符是否为数字字符，若是数字字符，则变量 n的值加 1。重复上述过程直到文件结尾。在读字符前应要测试文件内部读写指针 是否位于文件尾，只有不是在文件结尾处才能读取字符，故 7处应填 “Not EOF(10)”，读取一个字符后，应判断该字符是否为数字字符，故 8处应填 “Ch =“0”And

42、Ch =“9”，当文件中的所有字符都读出一遍后， n的值就是数字型字符的个数，最后应输出 n，所以 9处应填“Print n”。 47 【正确答案】 事件 【试题解析】 在 VB 6.0中，事件是预先没置好的，能够被对象识别和响应的动作。不同的对象能够识别不同的事件。 48 【正确答案】 9 【试题解析】 inc函数每 执行一次就向 x上累加一次传入的参数，所以最后 x的值为： 2+3+4=9。 49 【正确答案】 1 2 3 【试题解析】 此题不断修改变量 num的值并输出， num同时又是循环变量， 3次循环分别计算出 3个值为 1、 2、 3。注意 While型循环和 For型循环的不同形式。 50 【正确答案】 Books 【试题解析】 本题先定义一个 Books数据类型，包括两个元素： Name与TelNum。为变量 B赋值并写入，首先要定义变量 B的数据类型，根据题意，应定义变量 B为 Books数据，故填 Books。