1、二级 VISUAL+BASIC 笔试 66 及答案解析(总分：94.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.以下是 MDI 子窗体在运行时特性的叙述，错误的是_。（分数：2.00）A.子窗体在 MDI 窗体的内部区域显示B.子窗体可在 MDI 窗体的外部区域显示C.当子窗体最小化时，它的国标在 MDI 窗体内显示D.当子窗体最大化时，其标题与 MDI 窗体标题合并，并显示在 MDI 窗体的标题栏中2.在窗体上有一名为 list1 的列表框和名为 Command1 的命令按钮，要求程序运行后；如果单击命令按钮，则把列表框中所有的列表项目写到顺序文件 li
2、st.txt 中。下列能完成该操作的程序是_。（分数：2.00）A.Private Sub Command1_Click() Open “c:/listxt”For Input As #1 For i=0 To ListListCount-1 Print #1，List1.List( Next i Close #1 End SubB.Private Sub Command1_lick() Open “c:/listxt”For Output As #1 For i=0 To List1.ListCount Print #1，List1.List( Next i Close #1 End Sub
3、C.Private Sub Command1_Click() Open “c:/listxt”For Output As #1 For i=0 To List1.ListCount -1 Print #1，List1. List( Next i C1ese #1 End SubD.Private Sub Command1_Click() Open “c:/listxt”For As #1 For i=0 To List1.ListCount Print #1，List1.List( Next i Close #1 End Sub3.在窗体上添加一命令按纽，其名为 Command1，然后编写代码
4、如下： Private Sub Command1_Click() Dim arr (5)As Integer Dim arrl (5)As Integer n=3 For i=1 To 5 Arr (i)=i Arrl (n)=2*n+ i Next i Print arrl (n)；arr (n) End Sub 程序的运行结果为：_。（分数：2.00）A.3 11B.11 3C.13 3D.3 134.栈和队列_。（分数：2.00）A.共同之处在于二者都是先进先出的特殊的线性表B.共同之处在于二者都是先进后出的特殊的线性表C.共同之处在于二者都只允许在顶端执行删除操作D.没有共同之处5.设
5、置命令按钮的标题文字时，应改变的属性是_。（分数：2.00）A.textB.NameC.CaptionD.(名称)6.以下语句正确的是：_。（分数：2.00）A.Select Case a Case b=1 Case “B” b=2 Case Else b=3 End SelectB.Select Case a Case “A” b=1 Case “B” b=2 Case Default b=3 End SelectC.Switch a Case “A” b=1 Case “B” b=2 Case Else b=3 End SwitchD.Switch a Case “A” b=1 Case
6、“B” b=2 Case Default b=3 End Select7.在窗体上添加一个按纽，名为 command1，然后编写如下的事件过程：_。 Private Sub Command1_Click() For i=1 To 4 x= 4 For j=1 To 3 x= 3 For k=1 To 2 x=x + 5 Next k Next j Next i Print x End Sub（分数：2.00）A.13B.26C.30D.408.若要将某命令按钮设置为默认命令按钮。则应设置为 True 的属性是_。（分数：2.00）A.ValueB.CancelC.DefaultD.Enable
7、d9.以下程序段中 Do.Loop 循环执行的次数为_。 n=5 Do if n mod 2=0 then n=n/2 else n=n*3+1 end if Loop until n=1（分数：2.00）A.4B.3C.5D.210.已知二叉树的前序序列为 ABDCEFG，中序序列为 DBCAFEG，则后序序列为_。（分数：2.00）A.DCBAFGEB.DCBFGEAC.DCBFEGAD.DCBGFEA11.下列关于线性表的叙述中，不正确的是_。（分数：2.00）A.线性表是 n 个结点的有穷序列B.线性表可以为空表C.线性表的每一个结点有且仅有一个前趋和一个后继D.线性表结点间的逻辑关系
8、是 1:1 的联系12.若要设置文本框中所显示的文本颜色，使用的属性是_。（分数：2.00）A.BackColorB.FillColorC.ForeColorD.BackStyle13.为了防止一个用户的工作不适当地影响另一个用户，应该采取_。（分数：2.00）A.完整性控制B.安全性控制C.并发控制D.访问控制14.下列程序段的执行结果为_。 x=Int (Rnd+4) Select Case x Case 5 Print“优秀” Case 4 Print“良好” Case 3 Print“通过” Case Else Print“没有通过” End Select（分数：2.00）A.优秀B.
9、良好C.通过D.没有通过15.有如下一个 Sub 过程： Sub mlt (ParamArray numbers() n=1 For Each x In numbers n=n * x Next x Print n End Sub 在一个事件过程中如下调用该 Sub 过程： Private Sub Coinmand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a，b，c，d End Sub 则运行该程序，结果为_。（分数：2.00）A.12B.2
10、4C.36D.4816.在数据库设计中，数据流图表达的是_。（分数：2.00）A.数据和数据结构的关系B.数据和算法的关系C.数据和处理的关系D.数据和通信的关系17.算法指的是_。（分数：2.00）A.计算机程序B.解决问题的计算方法C.解决问题的有限运算序列D.排序算法18.单击命令按钮时，下列程序代码的执行结果为_。 Private Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2*x+y+3*z End Function Private Function SecProc(x As Integer，y
11、As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim C As Integer a=2 b = 3 c = 4 Print SecProc(c，b，a) End Sub（分数：2.00）A.21B.19C.17D.3419.VB 的工程资源管理器可管理多种类型的文件，下面叙述正确的是_。（分数：2.00）A.窗体文件的扩展名为frm，每个窗体对应一个窗体文件B.标准模块必须属于某一个窗体C.
12、用户通过类模块来定义自己的类，每个类都可用多个文件来保存，其扩展名为.batD.资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑20.若要将窗体从内存中卸载出去，应该使用的方法是_。（分数：2.00）A.ShowB.UnLoadC.LoadD.Hide21.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”22.有如下函数过程： Function gys(ByVa
13、l x As Integer，ByVal y As Integer) As Integer Do While y0 reminder = x Mod y x=y y=reminder Loop gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是_。 Private Sub Command7_Click() Dim s As Integer Dim b As Integer a=100 b=25 x=gys(a，b) Print x End Sub（分数：2.00）A.0B.25C.50D.10023.下列程序段的执行结果为_。 Dim A(3，3) For M
14、=1 To 3 For N=1 To 3 If N=M 0r 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 Print A(M， N)；Next N Print Next M（分数：2.00）A.1 0 0 0 1 a 0 0 1B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1 0 124.以下程序段执行后整型变量度 n 的值为_。 n=0 for I=l to 20 step 5 n=n+1 next I（分数：2.
15、00）A.50B.4C.15D.21025.可以用 InputBox 函数产生“输入对话框”。若执行下列语句时，st=InputBox (“请输入字符串”，“字符串对话框”，“字符串”)当用户输入完毕，按 OK 按钮后，st变量的内容是_。（分数：2.00）A.字符串B.请输入字符串C.字符串对话框D.用户输入的内容26.若二叉树中度为 2 的结点有 15 个，度为 1 的结点有 10 个，则有_个叶结点。（分数：2.00）A.25B.30C.31D.1627.使图形能自动按控件大小而改变的控件是_。（分数：2.00）A.图片框B.图象框C.标签框D.框架28.可决定窗体的左上角是否有控制菜单
16、的属性是_。（分数：2.00）A.ControlBoxB.MinButtonC.MaxButtonD.BorderStyle29.不能触发滚动条(如图所示)Change 事件的操作是_。 （分数：2.00）A.拖动滚动块B.单击两端箭头C.单击滚动块D.单击箭头与滚动块之间的滚动条30.为了克服软件危机，人们提出了用_的原理来设计软件，这就是软件工程诞生的基础。（分数：2.00）A.数学B.软件学C.运筹学D.工程学31.有如下程序 For i=1 To 3 For j=5 To 1 Step -1 Print i+ j Next j, I 其循环执行的次数为：_。（分数：2.00）A.12B
17、.13C.14D.1532.以下程序输出的结果为_。 x=1 y=4 Do Until y4 x=x*y y=y + 1 Loop Print x（分数：2.00）A.4B.8C.12D.1633.若要获得滚动条的当前值，可访问的属性是_。（分数：2.00）A.TextB.ValueC.MaxD.Min34.关于数据库系统的特点，下列说法中错误的是数据_。（分数：2.00）A.结构化B.共享性高C.独立性差D.统一管理和控制35.软件调试方法中的静态调试方法之一为_。（分数：2.00）A.计算机辅助静态分析B.黑盒法C.因果图D.路径覆盖二、B填空题/B(总题数：12，分数：24.00)36.
18、一个类可以直接或间接的祖先中继承所有的属性和方法采用这个方法可以提高了软件的 U【1】 /U。（分数：2.00）填空项 1:_37.有 64 个结点的完全二叉树的深度为U 【2】 /U(根的层次为 1)。（分数：2.00）填空项 1:_38.采用顺序查找方法查找长度为 n 的线性表，平均查找长度为U 【3】 /U。（分数：2.00）填空项 1:_39.模块独立性概念是模块化、抽象，U 【4】 /U这些软件工程基本原理的直接产物。（分数：2.00）填空项 1:_40.在概念设计阶段可用 E-R 图，其中“矩形框”表示实体，U 【5】 /U表示实体间联系。（分数：2.00）填空项 1:_41.窗体
19、的属性可在属性窗口中设置，也可在程序中用U 【6】 /U语句动态设置。（分数：2.00）填空项 1:_42.VB 中的控件分为内部控件、ActiveX 控件和U 【7】 /U三类。（分数：2.00）填空项 1:_43.窗体中有两个命令按钮：“显示”(控件名为 CmdDisplay)和“测试”(控件名为 cmdTest)单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮，否则退出。请填空。 Private Sub cmdTest_ lick() answer=MsgBox (“隐藏按钮”，65) If answer=vbOK
20、 Then cmdDisplay.U 【8】 /U Else End End If End Sub（分数：2.00）填空项 1:_44.设有一个 10 个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换，第五个元素与第六个元素交换，请补充完该程序。 Private Sub Commnd1_Click() Dim a(1 To 10)As Integer Dim i As Integer Dim p As Integer Dim t As Integer Dim j As Integer For i=1 To 10 a(i)=i Next i For j=1
21、To 5 U【9】 /U U【10】 /U U【11】 /U Next j For i=1 To 10 Print a(i) Next i End Sub（分数：2.00）填空项 1:_45.以下程序代码实现单击命令按钮 Command1 时生成 20 个(0，100)之间的随机整数，存于数组中，打印数组中大于 50 的数，并求这些数的和。 Dim arr(1 To 20) For i=1 To 20 arr(i)=U 【12】 /U Next i Sum=0 For Each X InU 【13】 /U If X50 Then Print Tab(20)；X Sum=Sum+X End If
22、 Next X Print Tab(20)；“Sum”；Sum（分数：2.00）填空项 1:_46.有如下 Sub 过程： Sub ind(a As Integer) Static x As Integer x= x + a Print x： End Sub 以下是调用它的事件过程，程序运行后，单击命令按纽 Command1 三次，输出结果为U 【14】 /U。 Private Sub Command1_Click() Ind 2 End Sub（分数：2.00）填空项 1:_47.在 C 盘当前文件夹下建立一个名为 StuData.txt 的顺序文件。要求用 InputBox 函数输入 5
23、名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。 Private Sub Form_ Click() Open “C：StuData.txt” For OutPUt As #1 For i=1 To 5 StuNo=InputBox(“请输入学号”) StuName=InputBox(“请输入姓名”) StuEng=Val(InputBox(“请输入英语成绩”) U 【15】 /U Next i Close #1 End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 66 答案解析(总分：94.00，做题时间：90 分钟)一、B选择题
24、/B(总题数：35，分数：70.00)1.以下是 MDI 子窗体在运行时特性的叙述，错误的是_。（分数：2.00）A.子窗体在 MDI 窗体的内部区域显示B.子窗体可在 MDI 窗体的外部区域显示C.当子窗体最小化时，它的国标在 MDI 窗体内显示D.当子窗体最大化时，其标题与 MDI 窗体标题合并，并显示在 MDI 窗体的标题栏中 解析：2.在窗体上有一名为 list1 的列表框和名为 Command1 的命令按钮，要求程序运行后；如果单击命令按钮，则把列表框中所有的列表项目写到顺序文件 list.txt 中。下列能完成该操作的程序是_。（分数：2.00）A.Private Sub Comm
25、and1_Click() Open “c:/listxt”For Input As #1 For i=0 To ListListCount-1 Print #1，List1.List( Next i Close #1 End SubB.Private Sub Command1_lick() Open “c:/listxt”For Output As #1 For i=0 To List1.ListCount Print #1，List1.List( Next i Close #1 End SubC.Private Sub Command1_Click() Open “c:/listxt”For
26、 Output As #1 For i=0 To List1.ListCount -1 Print #1，List1. List( Next i C1ese #1 End Sub D.Private Sub Command1_Click() Open “c:/listxt”For As #1 For i=0 To List1.ListCount Print #1，List1.List( Next i Close #1 End Sub解析：3.在窗体上添加一命令按纽，其名为 Command1，然后编写代码如下： Private Sub Command1_Click() Dim arr (5)As
27、 Integer Dim arrl (5)As Integer n=3 For i=1 To 5 Arr (i)=i Arrl (n)=2*n+ i Next i Print arrl (n)；arr (n) End Sub 程序的运行结果为：_。（分数：2.00）A.3 11B.11 3 C.13 3D.3 13解析：4.栈和队列_。（分数：2.00）A.共同之处在于二者都是先进先出的特殊的线性表B.共同之处在于二者都是先进后出的特殊的线性表C.共同之处在于二者都只允许在顶端执行删除操作 D.没有共同之处解析：5.设置命令按钮的标题文字时，应改变的属性是_。（分数：2.00）A.textB.
28、NameC.Caption D.(名称)解析：6.以下语句正确的是：_。（分数：2.00）A.Select Case a Case b=1 Case “B” b=2 Case Else b=3 End Select B.Select Case a Case “A” b=1 Case “B” b=2 Case Default b=3 End SelectC.Switch a Case “A” b=1 Case “B” b=2 Case Else b=3 End SwitchD.Switch a Case “A” b=1 Case “B” b=2 Case Default b=3 End Sele
29、ct解析：7.在窗体上添加一个按纽，名为 command1，然后编写如下的事件过程：_。 Private Sub Command1_Click() For i=1 To 4 x= 4 For j=1 To 3 x= 3 For k=1 To 2 x=x + 5 Next k Next j Next i Print x End Sub（分数：2.00）A.13 B.26C.30D.40解析：8.若要将某命令按钮设置为默认命令按钮。则应设置为 True 的属性是_。（分数：2.00）A.ValueB.CancelC.Default D.Enabled解析：9.以下程序段中 Do.Loop 循环执行
30、的次数为_。 n=5 Do if n mod 2=0 then n=n/2 else n=n*3+1 end if Loop until n=1（分数：2.00）A.4B.3C.5 D.2解析：10.已知二叉树的前序序列为 ABDCEFG，中序序列为 DBCAFEG，则后序序列为_。（分数：2.00）A.DCBAFGEB.DCBFGEA C.DCBFEGAD.DCBGFEA解析：11.下列关于线性表的叙述中，不正确的是_。（分数：2.00）A.线性表是 n 个结点的有穷序列B.线性表可以为空表C.线性表的每一个结点有且仅有一个前趋和一个后继 D.线性表结点间的逻辑关系是 1:1 的联系解析：1
31、2.若要设置文本框中所显示的文本颜色，使用的属性是_。（分数：2.00）A.BackColorB.FillColorC.ForeColor D.BackStyle解析：13.为了防止一个用户的工作不适当地影响另一个用户，应该采取_。（分数：2.00）A.完整性控制B.安全性控制C.并发控制 D.访问控制解析：14.下列程序段的执行结果为_。 x=Int (Rnd+4) Select Case x Case 5 Print“优秀” Case 4 Print“良好” Case 3 Print“通过” Case Else Print“没有通过” End Select（分数：2.00）A.优秀B.良好
32、 C.通过D.没有通过解析：15.有如下一个 Sub 过程： Sub mlt (ParamArray numbers() n=1 For Each x In numbers n=n * x Next x Print n End Sub 在一个事件过程中如下调用该 Sub 过程： Private Sub Coinmand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a，b，c，d End Sub 则运行该程序，结果为_。（分数：2.00）A.12B
33、.24 C.36D.48解析：16.在数据库设计中，数据流图表达的是_。（分数：2.00）A.数据和数据结构的关系B.数据和算法的关系C.数据和处理的关系 D.数据和通信的关系解析：17.算法指的是_。（分数：2.00）A.计算机程序B.解决问题的计算方法C.解决问题的有限运算序列 D.排序算法解析：18.单击命令按钮时，下列程序代码的执行结果为_。 Private Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2*x+y+3*z End Function Private Function SecProc(x
34、 As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim C As Integer a=2 b = 3 c = 4 Print SecProc(c，b，a) End Sub（分数：2.00）A.21 B.19C.17D.34解析：19.VB 的工程资源管理器可管理多种类型的文件，下面叙述正确的是_。（分数：2.00）A.窗体文件的扩展名为frm，每个窗体对应一个窗体文
35、件B.标准模块必须属于某一个窗体 C.用户通过类模块来定义自己的类，每个类都可用多个文件来保存，其扩展名为.batD.资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑解析：20.若要将窗体从内存中卸载出去，应该使用的方法是_。（分数：2.00）A.ShowB.UnLoad C.LoadD.Hide解析：21.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” 解析
36、：22.有如下函数过程： Function gys(ByVal x As Integer，ByVal y As Integer) As Integer Do While y0 reminder = x Mod y x=y y=reminder Loop gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是_。 Private Sub Command7_Click() Dim s As Integer Dim b As Integer a=100 b=25 x=gys(a，b) Print x End Sub（分数：2.00）A.0B.25 C.50D.100解析
37、：23.下列程序段的执行结果为_。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M 0r 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 Print A(M， N)；Next N Print Next M（分数：2.00）A.1 0 0 0 1 a 0 0 1B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1 0 1 解析：24.以下程序段执行后整型变量度 n 的值为_。 n=0 f
38、or I=l to 20 step 5 n=n+1 next I（分数：2.00）A.50B.4 C.15D.210解析：25.可以用 InputBox 函数产生“输入对话框”。若执行下列语句时，st=InputBox (“请输入字符串”，“字符串对话框”，“字符串”)当用户输入完毕，按 OK 按钮后，st变量的内容是_。（分数：2.00）A.字符串B.请输入字符串C.字符串对话框D.用户输入的内容 解析：26.若二叉树中度为 2 的结点有 15 个，度为 1 的结点有 10 个，则有_个叶结点。（分数：2.00）A.25B.30C.31D.16 解析：27.使图形能自动按控件大小而改变的控件
39、是_。（分数：2.00）A.图片框B.图象框 C.标签框D.框架解析：28.可决定窗体的左上角是否有控制菜单的属性是_。（分数：2.00）A.ControlBox B.MinButtonC.MaxButtonD.BorderStyle解析：29.不能触发滚动条(如图所示)Change 事件的操作是_。 （分数：2.00）A.拖动滚动块B.单击两端箭头C.单击滚动块 D.单击箭头与滚动块之间的滚动条解析：30.为了克服软件危机，人们提出了用_的原理来设计软件，这就是软件工程诞生的基础。（分数：2.00）A.数学B.软件学C.运筹学D.工程学 解析：31.有如下程序 For i=1 To 3 Fo
40、r j=5 To 1 Step -1 Print i+ j Next j, I 其循环执行的次数为：_。（分数：2.00）A.12B.13C.14D.15 解析：32.以下程序输出的结果为_。 x=1 y=4 Do Until y4 x=x*y y=y + 1 Loop Print x（分数：2.00）A.4 B.8C.12D.16解析：33.若要获得滚动条的当前值，可访问的属性是_。（分数：2.00）A.TextB.Value C.MaxD.Min解析：34.关于数据库系统的特点，下列说法中错误的是数据_。（分数：2.00）A.结构化B.共享性高C.独立性差 D.统一管理和控制解析：35.软
41、件调试方法中的静态调试方法之一为_。（分数：2.00）A.计算机辅助静态分析 B.黑盒法C.因果图D.路径覆盖解析：二、B填空题/B(总题数：12，分数：24.00)36.一个类可以直接或间接的祖先中继承所有的属性和方法采用这个方法可以提高了软件的 U【1】 /U。（分数：2.00）填空项 1:_ （正确答案：可重用性）解析：37.有 64 个结点的完全二叉树的深度为U 【2】 /U(根的层次为 1)。（分数：2.00）填空项 1:_ （正确答案：7）解析：38.采用顺序查找方法查找长度为 n 的线性表，平均查找长度为U 【3】 /U。（分数：2.00）填空项 1:_ （正确答案：(n+)/2
42、）解析：39.模块独立性概念是模块化、抽象，U 【4】 /U这些软件工程基本原理的直接产物。（分数：2.00）填空项 1:_ （正确答案：信息隐蔽）解析：40.在概念设计阶段可用 E-R 图，其中“矩形框”表示实体，U 【5】 /U表示实体间联系。（分数：2.00）填空项 1:_ （正确答案：菱形框）解析：41.窗体的属性可在属性窗口中设置，也可在程序中用U 【6】 /U语句动态设置。（分数：2.00）填空项 1:_ （正确答案：赋值）解析：42.VB 中的控件分为内部控件、ActiveX 控件和U 【7】 /U三类。（分数：2.00）填空项 1:_ （正确答案：可插入对象）解析：43.窗体中
43、有两个命令按钮：“显示”(控件名为 CmdDisplay)和“测试”(控件名为 cmdTest)单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮，否则退出。请填空。 Private Sub cmdTest_ lick() answer=MsgBox (“隐藏按钮”，65) If answer=vbOK Then cmdDisplay.U 【8】 /U Else End End If End Sub（分数：2.00）填空项 1:_ （正确答案：visible=true）解析：44.设有一个 10 个元素的数组，下列程序将该
44、数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换，第五个元素与第六个元素交换，请补充完该程序。 Private Sub Commnd1_Click() Dim a(1 To 10)As Integer Dim i As Integer Dim p As Integer Dim t As Integer Dim j As Integer For i=1 To 10 a(i)=i Next i For j=1 To 5 U【9】 /U U【10】 /U U【11】 /U Next j For i=1 To 10 Print a(i) Next i End Sub（分数：2.00）填空项
45、 1:_ （正确答案：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 20 arr(i)=U 【12】 /U Next i Sum=0 For Each X InU 【13】 /U If X50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；“Sum”；Sum（分数：2.
46、00）填空项 1:_ （正确答案：12 Int (Rnd*99+1) 13 arr）解析：46.有如下 Sub 过程： Sub ind(a As Integer) Static x As Integer x= x + a Print x： End Sub 以下是调用它的事件过程，程序运行后，单击命令按纽 Command1 三次，输出结果为U 【14】 /U。 Private Sub Command1_Click() Ind 2 End 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 #1 For i=1 T
