1、二级 VISUAL+BASIC 笔试-53 及答案解析(总分：94.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.为了防止一个用户的工作不适当地影响另一个用户，应该采取_。（分数：2.00）A.完整性控制B.安全性控制C.并发控制D.访问控制2.有如下程序For i=1 To 3For j=5 To 1 Step -1Print i+ jNext j, I其循环执行的次数为：_。（分数：2.00）A.12B.13C.14D.153.关于数据库系统的特点，下列说法中错误的是数据_。（分数：2.00）A.结构化B.共享性高C.独立性差D.统一管理和控制4.下列程序段的
2、执行结果为_。x=Int (Rnd+4)Select Case xCase 5Print“优秀”Case 4Print“良好”Case 3Print“通过”Case ElsePrint“没有通过”End Select（分数：2.00）A.优秀B.良好C.通过D.没有通过5.在窗体上添加一个按纽，名为 command1，然后编写如下的事件过程：_。Private Sub Command1_Click()For i=1 To 4x= 4For j=1 To 3x= 3For k=1 To 2x=x + 5Next kNext jNext iPrint xEnd Sub（分数：2.00）A.13B.
3、26C.30D.406.算法指的是_。（分数：2.00）A.计算机程序B.解决问题的计算方法C.解决问题的有限运算序列D.排序算法7.已知二叉树的前序序列为 ABDCEFG，中序序列为 DBCAFEG，则后序序列为_。（分数：2.00）A.DCBAFGEB.DCBFGEAC.DCBFEGAD.DCBGFEA8.设置命令按钮的标题文字时，应改变的属性是_。（分数：2.00）A.textB.NameC.CaptionD.(名称)9.下列程序段的执行结果为_。Dim A(3，3)For M=1 To 3For N=1 To 3If N=M 0r N=3-M+1 ThenA(M，N)=1ElseA(M
4、，N)=0End IfNext NNext MFor M=1 To 3For N=1 To 3Print A(M， N)；Next NPrintNext M（分数：2.00）A.1 0 0 0 1 a 0 0 1B.1 1 11 1 11 1 1C.0 0 0 0 0 00 0 0D.1 0 10 1 01 0 110.有如下函数过程：Function gys(ByVal x As Integer，ByVal y As Integer) As IntegerDo While y0reminder = x Mod yx=yy=reminderLoopgys=xEnd Function以下是调用该
5、函数的事件过程，该程序的运行结果是_。Private Sub Command7_Click()Dim s As IntegerDim b As Integera=100b=25x=gys(a，b)Print xEnd Sub（分数：2.00）A.0B.25C.50D.10011.软件调试方法中的静态调试方法之一为_。（分数：2.00）A.计算机辅助静态分析B.黑盒法C.因果图D.路径覆盖12.可以用 InputBox 函数产生“输入对话框”。若执行下列语句时，st=InputBox (“请输入字符串”，“字符串对话框”，“字符串”)当用户输入完毕，按 OK 按钮后，st变量的内容是_。（分数：
6、2.00）A.字符串B.请输入字符串C.字符串对话框D.用户输入的内容13.在窗体上有一名为 list1 的列表框和名为 Command1 的命令按钮，要求程序运行后；如果单击命令按钮，则把列表框中所有的列表项目写到顺序文件 list.txt 中。下列能完成该操作的程序是_。（分数：2.00）A.Private Sub Command1_Click()Open “c:/list.txt”For Input As #1For i=0 To Listl.ListCount-1Print #1，List1.List(i)Next iClose #1End SubB.Private Sub Comma
7、nd1_lick()Open “c:/list.txt”For Output As #1For i=0 To List1.ListCountPrint #1，List1.List(i)Next iClose #1End SubC.Private Sub Command1_Click()Open “c:/list.txt”For Output As #1For i=0 To List1.ListCount -1Print #1，List1. List(i)Next iC1ese #1End SubD.Private Sub Command1_Click()Open “c:/list.txt”Fo
8、r As #1For i=0 To List1.ListCountPrint #1，List1.List(i)Next iClose #1End Sub14.若要将某命令按钮设置为默认命令按钮。则应设置为 True 的属性是_。（分数：2.00）A.ValueB.CancelC.DefaultD.Enabled15.以下程序输出的结果为_。x=1y=4Do Until y4x=x*yy=y + 1LoopPrint x（分数：2.00）A.4B.8C.12D.1616.若要设置文本框中所显示的文本颜色，使用的属性是_。（分数：2.00）A.BackColorB.FillColorC.ForeC
9、olorD.BackStyle17.在数据库设计中，数据流图表达的是_。（分数：2.00）A.数据和数据结构的关系B.数据和算法的关系C.数据和处理的关系D.数据和通信的关系18.栈和队列_。（分数：2.00）A.共同之处在于二者都是先进先出的特殊的线性表B.共同之处在于二者都是先进后出的特殊的线性表C.共同之处在于二者都只允许在顶端执行删除操作D.没有共同之处19.VB 的工程资源管理器可管理多种类型的文件，下面叙述正确的是_。（分数：2.00）A.窗体文件的扩展名为frm，每个窗体对应一个窗体文件B.标准模块必须属于某一个窗体C.用户通过类模块来定义自己的类，每个类都可用多个文件来保存，其
10、扩展名为.batD.资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑20.可决定窗体的左上角是否有控制菜单的属性是_。（分数：2.00）A.ControlBoxB.MinButtonC.MaxButtonD.BorderStyle21.若二叉树中度为 2 的结点有 15 个，度为 1 的结点有 10 个，则有_个叶结点。（分数：2.00）A.25B.30C.31D.1622.以下是 MDI 子窗体在运行时特性的叙述，错误的是_。（分数：2.00）A.子窗体在 MDI 窗体的内部区域显示B.子窗体可在 MDI 窗体的外部区域显示C.当子窗体最小化时，它的国标在 MDI 窗体内显示D.当子窗
11、体最大化时，其标题与 MDI 窗体标题合并，并显示在 MDI 窗体的标题栏中23.为了克服软件危机，人们提出了用_的原理来设计软件，这就是软件工程诞生的基础。（分数：2.00）A.数学B.软件学C.运筹学D.工程学24.以下程序段执行后整型变量度 n 的值为_。n=0for I=l to 20 step 5n=n+1next I（分数：2.00）A.50B.4C.15D.21025.在窗体上添加一命令按纽，其名为 Command1，然后编写代码如下：Private Sub Command1_Click()Dim arr (5)As IntegerDim arrl (5)As Integern=
12、3For i=1 To 5Arr (i)=iArrl (n)=2*n+ iNext iPrint arrl (n)；arr (n)End Sub程序的运行结果为：_。（分数：2.00）A.3 11B.11 3C.13 3D.3 1326.不能触发滚动条(如图所示)Change 事件的操作是_。（分数：2.00）A.B.C.D.27.以下程序段中 Do.Loop 循环执行的次数为_。n=5Doif n mod 2=0 thenn=n/2elsen=n*3+1end ifLoop until n=1（分数：2.00）A.4B.3C.5D.228.单击命令按钮时，下列程序代码的执行结果为_。Priv
13、ate Function FirProc (x As Integer，y As Integer，z As Integer)FirProc=2*x+y+3*zEnd FunctionPrivate Function SecProc(x As Integer，y As Integer，z As Integer)SecProc=FirProc(z，x，y)+xEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As IntegerDim C As Integera=2b = 3c = 4Print SecProc(c，b，（分数
14、：2.00）A.29.以下语句正确的是：_。（分数：2.00）A.Select Case aCaseb=1Case “B”b=2Case Elseb=3End SelectB.Select Case aCase “A”b=1Case “B”b=2Case Defaultb=3End SelectC.Switch aCase “A”b=1Case “B”b=2Case Elseb=3End SwitchD.Switch aCase “A”b=1Case “B”b=2Case Defaultb=3End Select30.若要获得滚动条的当前值，可访问的属性是_。（分数：2.00）A.TextB.
15、ValueC.MaxD.Min31.使图形能自动按控件大小而改变的控件是_。（分数：2.00）A.图片框B.图象框C.标签框D.框架32.有如下一个 Sub 过程：Sub mlt (ParamArray numbers()n=1For Each x In numbersn=n * xNext xPrint nEnd Sub在一个事件过程中如下调用该 Sub 过程：Private Sub Coinmand1_Click()Dim a As IntegerDim b As IntegerDim c As IntegerDim d As Integera=1b=2c=3d=4mlt a，b，c，dE
16、nd Sub则运行该程序，结果为_。（分数：2.00）A.12B.24C.36D.4833.下列关于线性表的叙述中，不正确的是_。（分数：2.00）A.线性表是 n 个结点的有穷序列B.线性表可以为空表C.线性表的每一个结点有且仅有一个前趋和一个后继D.线性表结点间的逻辑关系是 1:1 的联系34.Datetime 是 Data 类型的变量，以下赋值语句中错误的是：_。（分数：2.00）A.Datetime=# 4/14/97#B.Datetime=# September 1，1997#C.Datetime=#12:15:00 AM#D.Datetime=“8/8/99”35.若要将窗体从内存
17、中卸载出去，应该使用的方法是_。（分数：2.00）A.ShowB.UnLoadC.LoadD.Hide二、填空题(总题数：12，分数：24.00)36.一个类可以直接或间接的祖先中继承所有的属性和方法采用这个方法可以提高了软件的 【1】 。（分数：2.00）填空项 1:_37.有 64 个结点的完全二叉树的深度为 【2】 (根的层次为 1)。（分数：2.00）填空项 1:_38.采用顺序查找方法查找长度为 n 的线性表，平均查找长度为 【3】 。（分数：2.00）填空项 1:_39.模块独立性概念是模块化、抽象， 【4】 这些软件工程基本原理的直接产物。（分数：2.00）填空项 1:_40.在
18、概念设计阶段可用 E-R 图，其中“矩形框”表示实体， 【5】 表示实体间联系。（分数：2.00）填空项 1:_41.窗体的属性可在属性窗口中设置，也可在程序中用 【6】 语句动态设置。（分数：2.00）填空项 1:_42.VB 中的控件分为内部控件、ActiveX 控件和 【7】 三类。（分数：2.00）填空项 1:_43.窗体中有两个命令按钮：“显示”(控件名为 CmdDisplay)和“测试”(控件名为 cmdTest)单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮，否则退出。请填空。Private Sub cm
19、dTest_ lick()answer=MsgBox (“隐藏按钮”，65)If answer=vbOK ThencmdDisplay. 【8】 ElseEndEnd IfEnd Sub（分数：2.00）填空项 1:_44.设有一个 10 个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换，第五个元素与第六个元素交换，请补充完该程序。Private Sub Commnd1_Click()Dim a(1 To 10)As IntegerDim i As IntegerDim p As IntegerDim t As IntegerDim j As Intege
20、rFor i=1 To 10a(i)=iNext iFor j=1 To 5【9】 【10】 【11】 Next jFor i=1 To 10Print a(i)Next iEnd Sub（分数：2.00）填空项 1:_45.以下程序代码实现单击命令按钮 Command1 时生成 20 个(0，100)之间的随机整数，存于数组中，打印数组中大于 50 的数，并求这些数的和。Dim arr(1 To 20)For i=1 To 20arr(i)= 【12】 Next iSum=0For Each X In 【13】 If X50 ThenPrint Tab(20)；XSum=Sum+XEnd I
21、fNext XPrint Tab(20)；“Sum”；Sum（分数：2.00）填空项 1:_46.有如下 Sub 过程：Sub ind(a As Integer)Static x As Integerx= x + aPrint x：End Sub以下是调用它的事件过程，程序运行后，单击命令按纽 Command1 三次，输出结果为 【14】 。Private Sub Command1_Click()Ind 2End Sub（分数：2.00）填空项 1:_47.在 C 盘当前文件夹下建立一个名为 StuData.txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)
22、、姓名(StuName)和英语成绩(StuEng)。Private Sub Form_ Click()Open “C：StuData.txt” For OutPUt As #1For i=1 To 5StuNo=InputBox(“请输入学号”)StuName=InputBox(“请输入姓名”)StuEng=Val(InputBox(“请输入英语成绩”)【15】 Next iClose #1End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-53 答案解析(总分：94.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.为了防止一个用户的
23、工作不适当地影响另一个用户，应该采取_。（分数：2.00）A.完整性控制B.安全性控制C.并发控制 D.访问控制解析：2.有如下程序For i=1 To 3For j=5 To 1 Step -1Print i+ jNext j, I其循环执行的次数为：_。（分数：2.00）A.12B.13C.14D.15 解析：3.关于数据库系统的特点，下列说法中错误的是数据_。（分数：2.00）A.结构化B.共享性高C.独立性差 D.统一管理和控制解析：4.下列程序段的执行结果为_。x=Int (Rnd+4)Select Case xCase 5Print“优秀”Case 4Print“良好”Case 3
24、Print“通过”Case ElsePrint“没有通过”End Select（分数：2.00）A.优秀B.良好 C.通过D.没有通过解析：5.在窗体上添加一个按纽，名为 command1，然后编写如下的事件过程：_。Private Sub Command1_Click()For i=1 To 4x= 4For j=1 To 3x= 3For k=1 To 2x=x + 5Next kNext jNext iPrint xEnd Sub（分数：2.00）A.13 B.26C.30D.40解析：6.算法指的是_。（分数：2.00）A.计算机程序B.解决问题的计算方法C.解决问题的有限运算序列 D
25、.排序算法解析：7.已知二叉树的前序序列为 ABDCEFG，中序序列为 DBCAFEG，则后序序列为_。（分数：2.00）A.DCBAFGEB.DCBFGEA C.DCBFEGAD.DCBGFEA解析：8.设置命令按钮的标题文字时，应改变的属性是_。（分数：2.00）A.textB.NameC.Caption D.(名称)解析：9.下列程序段的执行结果为_。Dim A(3，3)For M=1 To 3For N=1 To 3If N=M 0r N=3-M+1 ThenA(M，N)=1ElseA(M，N)=0End IfNext NNext MFor M=1 To 3For N=1 To 3Pr
26、int A(M， N)；Next NPrintNext M（分数：2.00）A.1 0 0 0 1 a 0 0 1B.1 1 11 1 11 1 1C.0 0 0 0 0 00 0 0D.1 0 10 1 01 0 1 解析：10.有如下函数过程：Function gys(ByVal x As Integer，ByVal y As Integer) As IntegerDo While y0reminder = x Mod yx=yy=reminderLoopgys=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是_。Private Sub Command7_Click
27、()Dim s As IntegerDim b As Integera=100b=25x=gys(a，b)Print xEnd Sub（分数：2.00）A.0B.25 C.50D.100解析：11.软件调试方法中的静态调试方法之一为_。（分数：2.00）A.计算机辅助静态分析 B.黑盒法C.因果图D.路径覆盖解析：12.可以用 InputBox 函数产生“输入对话框”。若执行下列语句时，st=InputBox (“请输入字符串”，“字符串对话框”，“字符串”)当用户输入完毕，按 OK 按钮后，st变量的内容是_。（分数：2.00）A.字符串B.请输入字符串C.字符串对话框D.用户输入的内容 解
28、析：13.在窗体上有一名为 list1 的列表框和名为 Command1 的命令按钮，要求程序运行后；如果单击命令按钮，则把列表框中所有的列表项目写到顺序文件 list.txt 中。下列能完成该操作的程序是_。（分数：2.00）A.Private Sub Command1_Click()Open “c:/list.txt”For Input As #1For i=0 To Listl.ListCount-1Print #1，List1.List(i)Next iClose #1End SubB.Private Sub Command1_lick()Open “c:/list.txt”For O
29、utput As #1For i=0 To List1.ListCountPrint #1，List1.List(i)Next iClose #1End SubC.Private Sub Command1_Click()Open “c:/list.txt”For Output As #1For i=0 To List1.ListCount -1Print #1，List1. List(i)Next iC1ese #1End Sub D.Private Sub Command1_Click()Open “c:/list.txt”For As #1For i=0 To List1.ListCoun
30、tPrint #1，List1.List(i)Next iClose #1End Sub解析：14.若要将某命令按钮设置为默认命令按钮。则应设置为 True 的属性是_。（分数：2.00）A.ValueB.CancelC.Default D.Enabled解析：15.以下程序输出的结果为_。x=1y=4Do Until y4x=x*yy=y + 1LoopPrint x（分数：2.00）A.4 B.8C.12D.16解析：16.若要设置文本框中所显示的文本颜色，使用的属性是_。（分数：2.00）A.BackColorB.FillColorC.ForeColor D.BackStyle解析：17
31、.在数据库设计中，数据流图表达的是_。（分数：2.00）A.数据和数据结构的关系B.数据和算法的关系C.数据和处理的关系 D.数据和通信的关系解析：18.栈和队列_。（分数：2.00）A.共同之处在于二者都是先进先出的特殊的线性表B.共同之处在于二者都是先进后出的特殊的线性表C.共同之处在于二者都只允许在顶端执行删除操作 D.没有共同之处解析：19.VB 的工程资源管理器可管理多种类型的文件，下面叙述正确的是_。（分数：2.00）A.窗体文件的扩展名为frm，每个窗体对应一个窗体文件B.标准模块必须属于某一个窗体 C.用户通过类模块来定义自己的类，每个类都可用多个文件来保存，其扩展名为.bat
32、D.资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑解析：20.可决定窗体的左上角是否有控制菜单的属性是_。（分数：2.00）A.ControlBox B.MinButtonC.MaxButtonD.BorderStyle解析：21.若二叉树中度为 2 的结点有 15 个，度为 1 的结点有 10 个，则有_个叶结点。（分数：2.00）A.25B.30C.31D.16 解析：22.以下是 MDI 子窗体在运行时特性的叙述，错误的是_。（分数：2.00）A.子窗体在 MDI 窗体的内部区域显示B.子窗体可在 MDI 窗体的外部区域显示C.当子窗体最小化时，它的国标在 MDI 窗体内显示D.
33、当子窗体最大化时，其标题与 MDI 窗体标题合并，并显示在 MDI 窗体的标题栏中 解析：23.为了克服软件危机，人们提出了用_的原理来设计软件，这就是软件工程诞生的基础。（分数：2.00）A.数学B.软件学C.运筹学D.工程学 解析：24.以下程序段执行后整型变量度 n 的值为_。n=0for I=l to 20 step 5n=n+1next I（分数：2.00）A.50B.4 C.15D.210解析：25.在窗体上添加一命令按纽，其名为 Command1，然后编写代码如下：Private Sub Command1_Click()Dim arr (5)As IntegerDim arrl
34、(5)As Integern=3For i=1 To 5Arr (i)=iArrl (n)=2*n+ iNext iPrint arrl (n)；arr (n)End Sub程序的运行结果为：_。（分数：2.00）A.3 11B.11 3 C.13 3D.3 13解析：26.不能触发滚动条(如图所示)Change 事件的操作是_。（分数：2.00）A.B.C. D.解析：27.以下程序段中 Do.Loop 循环执行的次数为_。n=5Doif n mod 2=0 thenn=n/2elsen=n*3+1end ifLoop until n=1（分数：2.00）A.4B.3C.5 D.2解析：28
35、.单击命令按钮时，下列程序代码的执行结果为_。Private Function FirProc (x As Integer，y As Integer，z As Integer)FirProc=2*x+y+3*zEnd FunctionPrivate Function SecProc(x As Integer，y As Integer，z As Integer)SecProc=FirProc(z，x，y)+xEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As IntegerDim C As Integera=2b =
36、3c = 4Print SecProc(c，b，（分数：2.00）A.解析：29.以下语句正确的是：_。（分数：2.00）A.Select Case aCaseb=1Case “B”b=2Case Elseb=3End Select B.Select Case aCase “A”b=1Case “B”b=2Case Defaultb=3End SelectC.Switch aCase “A”b=1Case “B”b=2Case Elseb=3End SwitchD.Switch aCase “A”b=1Case “B”b=2Case Defaultb=3End Select解析：30.若要获得
37、滚动条的当前值，可访问的属性是_。（分数：2.00）A.TextB.Value C.MaxD.Min解析：31.使图形能自动按控件大小而改变的控件是_。（分数：2.00）A.图片框B.图象框 C.标签框D.框架解析：32.有如下一个 Sub 过程：Sub mlt (ParamArray numbers()n=1For Each x In numbersn=n * xNext xPrint nEnd Sub在一个事件过程中如下调用该 Sub 过程：Private Sub Coinmand1_Click()Dim a As IntegerDim b As IntegerDim c As Integ
38、erDim d As Integera=1b=2c=3d=4mlt a，b，c，dEnd Sub则运行该程序，结果为_。（分数：2.00）A.12B.24 C.36D.48解析：33.下列关于线性表的叙述中，不正确的是_。（分数：2.00）A.线性表是 n 个结点的有穷序列B.线性表可以为空表C.线性表的每一个结点有且仅有一个前趋和一个后继 D.线性表结点间的逻辑关系是 1:1 的联系解析：34.Datetime 是 Data 类型的变量，以下赋值语句中错误的是：_。（分数：2.00）A.Datetime=# 4/14/97#B.Datetime=# September 1，1997#C.Da
39、tetime=#12:15:00 AM#D.Datetime=“8/8/99” 解析：35.若要将窗体从内存中卸载出去，应该使用的方法是_。（分数：2.00）A.ShowB.UnLoad C.LoadD.Hide解析：二、填空题(总题数：12，分数：24.00)36.一个类可以直接或间接的祖先中继承所有的属性和方法采用这个方法可以提高了软件的 【1】 。（分数：2.00）填空项 1:_ （正确答案：可重用性）解析：37.有 64 个结点的完全二叉树的深度为 【2】 (根的层次为 1)。（分数：2.00）填空项 1:_ （正确答案：7）解析：38.采用顺序查找方法查找长度为 n 的线性表，平均查
40、找长度为 【3】 。（分数：2.00）填空项 1:_ （正确答案：(n+)/2）解析：39.模块独立性概念是模块化、抽象， 【4】 这些软件工程基本原理的直接产物。（分数：2.00）填空项 1:_ （正确答案：信息隐蔽）解析：40.在概念设计阶段可用 E-R 图，其中“矩形框”表示实体， 【5】 表示实体间联系。（分数：2.00）填空项 1:_ （正确答案：菱形框）解析：41.窗体的属性可在属性窗口中设置，也可在程序中用 【6】 语句动态设置。（分数：2.00）填空项 1:_ （正确答案：赋值）解析：42.VB 中的控件分为内部控件、ActiveX 控件和 【7】 三类。（分数：2.00）填空
41、项 1:_ （正确答案：可插入对象）解析：43.窗体中有两个命令按钮：“显示”(控件名为 CmdDisplay)和“测试”(控件名为 cmdTest)单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮，否则退出。请填空。Private Sub cmdTest_ lick()answer=MsgBox (“隐藏按钮”，65)If answer=vbOK ThencmdDisplay. 【8】 ElseEndEnd IfEnd Sub（分数：2.00）填空项 1:_ （正确答案：visible=true）解析：44.设有一个
42、10 个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换，第五个元素与第六个元素交换，请补充完该程序。Private Sub Commnd1_Click()Dim a(1 To 10)As IntegerDim i As IntegerDim p As IntegerDim t As IntegerDim j As IntegerFor i=1 To 10a(i)=iNext iFor j=1 To 5【9】 【10】 【11】 Next jFor i=1 To 10Print a(i)Next iEnd Sub（分数：2.00）填空项 1:_ （正确答案：
43、9 t=a(j) 10 a(j)=a(10-j+1) 11 a(10-j+1)=t）解析：45.以下程序代码实现单击命令按钮 Command1 时生成 20 个(0，100)之间的随机整数，存于数组中，打印数组中大于 50 的数，并求这些数的和。Dim arr(1 To 20)For i=1 To 20arr(i)= 【12】 Next iSum=0For Each X In 【13】 If X50 ThenPrint Tab(20)；XSum=Sum+XEnd IfNext XPrint Tab(20)；“Sum”；Sum（分数：2.00）填空项 1:_ （正确答案：12 Int (Rnd*
44、99+1) 13 arr）解析：46.有如下 Sub 过程：Sub ind(a As Integer)Static x As Integerx= x + aPrint x：End Sub以下是调用它的事件过程，程序运行后，单击命令按纽 Command1 三次，输出结果为 【14】 。Private Sub Command1_Click()Ind 2End Sub（分数：2.00）填空项 1:_ （正确答案：6）解析：47.在 C 盘当前文件夹下建立一个名为 StuData.txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。Private Sub Form_ Click()Open “C：StuData.txt” For OutPUt As #1For i=1 To 5StuNo=InputBox(“请输入学号”)StuName=InputBox(“请输入姓名”)StuEng=Val(InputBox(“请输入英语成绩”)【15】 Next iClose #1End Sub（分数：2.00）填空项 1:_ （正确答案：Write #1，StuNo，StuName，StuEng）解析：
