2022年全国计算机等级考试二级VB上机题库题型总结 .pdf

学习必备欢迎下载这些题型是本套全国计算机等级考试VB所常见的。便将此整理一下，以供大学考前使用。祝大家能顺利通过二级。谢谢。上机第 1 套一、基本操作题（1）在名为 Form1 的窗体上绘制一个名为Fra1 的框架，标题为框架示例 ，高度为 2000，宽度为 3500；在框架中绘制一个文本框。名为 Txt1，高度为 600， 宽度为 2000，其位置距框架的左边框和上边框均为800，文本框中的初始内容设置为文本框示例 二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件 vbsj3.frm 。在名为 Form1的窗体上有一个单选按钮数组，含 3个单选按钮，均没有标题。程序功能：在运行时，如果选中一个单选按钮后，单击显示 按钮，则根据单选按钮的选中情况，在窗体上显示 你所在的城市是北京 、 你所在的城市是上海或 你所在的城市是天津 。要求：请利用属性窗口，为单选按钮依次添加标题：北京 、上海和 天津，设初始选取中的是北京 ，再添加一个标题为显示 的命令按钮，如图1-3所示。删除程序中语句前面的注释符，把程序中的问号 ？改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最后，将修改后的文件按原文件名保存在原文件夹中。程序源码：Private Sub Cmd1_Click() For i = 0 To 2 If Opt1(i).Value = True Then Print 你所在的城市是 + Opt1(i).Caption End If Next End Sub上机第 2 套题二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp 及其窗体文件 vbsj3.frm。请在名为 Form1的窗体上建立一个菜单，主菜单项为 项目 （名称为 mnuItem） ， 它有两个子菜单项，其名称分别为 mnuItemAdd 和mnuItemDel ，标题分别为 添加 和 删除 ，然后绘制一个名为Lst1的列表框和一个名为Txt1的文本框。编写适当的事件过程。程序运行后，如果单击添加 命令，则从键盘上输入要添加到列表框中的项目（内容任意，不少于3个） ；如果单击 删除 命令，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行结果如图1-8所示。在考生文件夹中的工程文件vbsj3.vbp（相应的窗体文件名为vbsj3.frm） ，可以实现上述功能。但程序不完整，请补充完整。程序源码：Private Sub mnuItemAdd_Click() 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 Txt1.Text = InputBox(_请输入要添加的项目) Lst1.AddItem ? End Sub Private Sub mnuItemDel_Click() Txt1.Text = InputBox( _ 请输入要删除的项目) For i = 0 To ? If Lst1.List(i) = ? Then Lst1.RemoveItem ? End If Next i End Sub Lst1.AddItem Txt1.TextFor i = 0 To Lst1.ListCount - 1If Lst1.List(i) = Txt1.Text Then Lst1.RemoveItem i（2） 在考生文件夹中有工程文件vbsj4.vbp 及其窗体文件 vbsj4.frm。在名为 Form1的窗体上有一个名称为Lst1的列表框，一个名称为Txt1的文本框，以及一个名为Cmd1的命令按钮（标题为复制 ） 。要求程序运行后，在列表框中自动建立4个列表项， 分别为 项目 1、项目 2 、项目 3和项目 4 。如果选择列表框中的一项，则单击 复制 按钮时，可以把该项复制到文本框中，如图1-9所示。图1-8 图1-9 程序源码：Option Explicit Private Sub Cmd1_Click() Dim i As Integer For i = ? To _ Lst1.ListCount-1 If Lst1.Selected(i) = True Then ? = Lst1.List(i) End If Next i End Sub Private Sub Form_Load() Lst1.AddItem Item1 Lst1.AddItem Item2 Lst1.AddItem Item3 Lst1.AddItem Item4 End Sub For i = 0 To Lst1.ListCount - 1Txt1.Text = Lst1.List(i)要求：删除程序中语句前面的注释符，把程序中的问号？ 改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最后，将修改后的文件按原文件名保存在原文件夹中。三、综合应用题在名为 Form1的窗体上建立一个名为Txt1的文本框（其 MultiLine 属性为 True，ScrollBars属性为 2）和两个名称分别为 Cmd1和Cmd2的命令按钮（它们的标题分别为读取 和保存 ） ，如图 1-10所示。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载图1-10 要求程序运行后，如果单击 读取 按钮则读入 dr021.dat文件中的 100个整数，放一个数组中（数组下界为1） ；如果单击 保存 按钮，则筛选出 100个整数中的所有偶数，在文本框Txt1中显示出来，并把所有偶数之和存入考生文件夹中的文件dw021.dat。在考生文件夹下有标准模块model.bas，其中 writedata过程可以把一个整数存入dw021.dat文件，考生可以把该模块文件添加到自己的工程中。注意：程序中对文件的操作统一使用相对路径；文件必须存放在考生文件夹中，窗体文件名为 vbsj5.frm ，工程文件名为 vbsj5.vbp，结果存入 dw021.dat文件，否则没有成绩。Option Explicit Sub writedata(ByVal a As Integer) Dim sFile As String sFile = dw021.dat Open App.Path & sFile For Output As #1 Print #1, a; Close #1 End Sub Dim a(100) As Integer Private Sub Cmd1_Click() Open App.Path & dr021.dat For Input As #1 Txt1.Text = For i = 1 To 100 Input #1, a(i) Txt1.Text = Txt1.Text & a(i) & Space(1) Next i Close #1 End Sub Private Sub Cmd2_Click() Txt1.Text = s = 0 For i = 1 To 100 If a(i) Mod 2 = 0 Then Txt1.Text = Txt1.Text & a(i) & Space(1) s = s + a(i) End If Next writedata s End Sub 上机第 3套题一、基本操作题（2）在 Form1窗体上绘制一个名为Txt1 的文本框，然后建立一个名为mnuOp的主菜单，其标题为操作 ，该菜单有两个名称分别为mnuOpDis和mnuOpCls的子菜单项，其标题分别为显示 和 清除。编写适当的事件过程，使程序运行后，若单击操作 菜单中的 显示 命令，在文本框显示Visual Basic；如果单击 清除命令，则清除文本框中显示的内容。程序的运行效果如图1-12所示。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载注意：文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。上机第 4 套一、基本操作题（2）在窗体上绘制一个列表框，名为Lst1，通过属性窗口向列表框中添加4个项目，分别为 项目 1 、项目2、 项目 3 和项目 4。编写适当的事件过程，使程序运行后，若双击列表框中的某一项，则该项就从列表中消失。程序的运行情况如图1-18所示。注意：文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。Private Sub Lst1_DblClick() Lst1.RemoveItem Lst1.ListIndex End Sub 上机第 5 套题二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp 及其窗体文件 vbsj3.frm。在名为 Form1的窗体中有一个名为 Txt1的文本框； 请在窗体上绘制两个名称分别为Fra1和Fra2的框架， 其标题分别为 性别 和身份 ；在Fra1中绘制两个名称分别为Opt1和Opt2的单选按钮，其标题分别为男 和女 ；在 Fra2中绘制两个名称分别为 Opt3和Opt4的单选按钮，其标题分别为学生 和老师 ；再绘制一个名为Cmd1的命令按钮，其标题为确定 。程序界面如图1-24所示。请编写适当的事件过程，使得在运行时，在Fra1、Fra2中选一个单选按钮，然后单击确定 按钮，就可以按照表 1-2把结果显示在文本框中。表1-2 运行结果表性别身份在文本框中显示的内容男学生男学生男老师男老师女学生女学生女老师女老师程序源码：Private Sub Form_Unload(Cancel As Integer) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 Open dw051.dat For Output As #1 Print #1, Opt1.Value, Opt2.Value, Opt3.Value, Opt4.Value, Txt1.Text Close #1 End Sub注意：不得修改窗体文件中已经存在的程序和Txt1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后保存修改后的文件。参考代码：Private Sub Cmd1_Click() If Opt1.Value = True Then If Opt3.Value = True Then Txt1.Text = 我是 + Opt1.Caption + Opt3.Caption Else Txt1.Text = 我是 + Opt1.Caption + Opt4.Caption End If Else If Opt3.Value = True Then Txt1.Text = 我是 + Opt2.Caption + Opt3.Caption Else Txt1.Text = 我是 + Opt2.Caption + Opt4.Caption End If End If End Sub 上机第 6 套题三、综合应用题在考生文件夹下有文件dr061.dat，文件中有几行汉字。请在窗体Form1上绘制一个名为Txt1的文本框，它能显示多行；再绘制一个名称为Cmd1的命令按钮，其标题为 保存 。编写适当的事件过程，使得在加载窗体时，把 dr061.dat文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字：计算机 VB 考试 ，如图 1-31所示。最后单击 保存 按钮，可以把文本框中修改过的内容存到文件dw061.dat中。图1-31 注意：只能在最前面插入文字，不能修改原有文字。文件必须存放在考生文件夹中，以vbsj5.vbp为文件名存储工程文件，以vbsj5.frm为文件名存储窗体文件。Private Sub Form_Load() Dim str1 As String Open App.Path & dr061.dat For Input As #1 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 Do While Not EOF(1) Input #1, str1 Txt1.Text = Txt1.Text + str1 Loop Close #1 End Sub Private Sub Cmd1_Click() Open App.Path & dw061.dat For Output As #1 Print #1, Txt1.Text Close #1 End Sub 上机第 7 套题一、基本操作题（2）在名为 Form1的窗体上放置一个名为Txt1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端），如图 1-33所示。注意：文件必须存放在考生文件夹中，窗体文件名为vbsj2.frm ，工程文件名为vbsj2.vbp。图1-33 Private Sub Txt1_Change() Txt1.Text = UCase(Txt1.Text) Txt1.SelStart = Len(Txt1.Text) End Sub 上机第 9 套题二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp，相应的窗体文件为vbsj3.frm 。在名为 Form1的窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0200范围内能被 3整除的所有整数的和，并在文本框中显示出来，如图1-44所示。在窗体的代码窗口中，已给出了部分程序，其中计算0200范围内能被 3整除的所有整数的和的操作在通用过程 Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在Function Fun() 和End Function之间填入所编写的若干语句。最后，按原文件名并在原文件夹中保存修改后的文件。程序源码：Sub SaveData() Open App.Path & & _ dw091.dat For Output As #1 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 Print #1, Txt1.Text Close #1 End Sub Function Fun() Dim sum As Integer Dim i As Integer For i = 1 To 200 If i Mod 3 = 0 Then sum = sum + i End If Next Txt1.Text = sumFun=sum End Function Private Sub Cmd1_Click() d = Fun() SaveData End Sub上机第 10 套题一、基本操作题（2）在名为 Form1的窗体上绘制一个名为Drv1的DrivelListBox 控件， 一个名为 Dir1 的DirListBox 控件和一个名为 File1的FileListBox 控件。编写适当的事件过程，使程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox 显示文件名（不显示路径名）。如图 1-48所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为vbsj2.frm ，工程文件名为 vbsj2.vbp。参考代码：Private Sub Drv1_Change() Dir1.Path = Drv1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_Click() MsgBox File1.FileName End Sub精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载上机第 12 套题二、简单应用题（2）在考生文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm 。在名为 Form1的窗体上有一个名称为 Cmd1，标题为 求小于 600的整数之和 的命令按钮。其功能是产生30个01000的随机整数，放入一个数组中，然后输出这30个整数中小于 600的所有整数之和。程序运行后，单击命令按钮，即可求出这些整数的和，并在窗体上显示出来，如图1-62所示。程序不完整，请补充完整，并能正确运行。要求：删除程序中语句前面的注释符，把程序中的问号？ 改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最后，将修改后的文件按原文件名保存在原文件夹中。程序源码Option Base 1 Private Sub Cmd1_Click() Dim arrN(30) As Integer Dim Sum As Double Randomize For i = 1 To 30 arrN(i) = Int(Rnd * ?) Next i Sum = ? For i = 1 To 30 If ? Then Sum = ? End If Next i Print Sum End Sub参考代码： arrN(i) = Int(Rnd * 1001)Sum = 0if arrN(i)600 then Sum = Sum + arrN(i) 上机第 13套题一、基本操作题（2）在名为 Form1的窗体上绘制一个名为Cmd1的命令按钮，标题为 打开 ，再绘制一个名为dlgFileOpen的通用对话框。程序运行后，若单击命令按钮，则弹出打开文件 对话框。请按下列要求设置属性和编写代码：设置适当属性，使对话框的标题为打开文件 ；设置适当属性，使对话框的文件类型 下拉式组合框中有两行 文本文件 、 所有文件 ，如图1-65所示，默认的类型是文本文件 ；编写命令按钮的事件过程，使得单击按钮可以弹出 打开文件 对话框。注意：程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载名为 vbsj2.vbp，窗体文件名为 vbsj2.frm 。图1-65 上机第 17套题二、简单应用题（2）在考生文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm 。在名为 Form1的窗体上有一个命令按钮和一个文本框。程序运行后，单击计算 命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，运行效果如图1-87所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组 arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的其他部分，只在 Function Fun()和End Function之间填入所编写的若干语句并运行程序。最后按原文件名并在原文件夹中保存修改后的文件。说明：数组arr中共有 40个元素，所谓 数组 arr中每个元素与其下标相除所得的和 ，指的是：arr(1)/1+arr(2)/2+arr(3)/3+ +arr(40)/40。程序源码：Option Base 1 Function Fun(a() As Single) As Single Dim sum As Single Dim i As Integer For i = LBound(a) To UBound(a) sum = sum + a(i) / i Next Fun = sum End FunctionPrivate Sub Cmd1_Click() Dim arr Dim arr2(40) As Single arr = Array(11.5, 65.84, 52, 78, 221.23, 22.25, 43.2, 26, 25.6, _56.7,9.6, 89.24, 34.37, 45.44, 56.59, 67.64, 7.8, 9.8, 87.45, _6.18,34.6, 55.8, 64.7, 43.7, 99.4, 84.7, 66.2, 23.9, 55.5, _44.1,13.22, 43.25, 1.22, 28.23, 78.26, 98.23, 56.31, 73.46, _ 9.63, 48.53) For i = 1 To UBound(arr) arr2(i) = arr(i) Next i r = Fun(arr2() Txt1.Text = Str(r) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 SaveData End Sub Sub SaveData() Open dw171.dat For Output As #1 Print #1, Txt1.Text Close #1 End Sub 上机第 18套题三、综合应用题数列： 1，1，2，3，5，8，3，21的规律是从第 3个数开始，每个数是它前面两个数之和。在考生文件夹下有一个工程文件vbsj5.vbp（相应的窗体文件为vbsj5.frm ） 。窗体 Form1中已经给出了所有控件。编写适当的事件过程完成以下功能：选中一个单选按钮后，单击显示结果 按钮，则计算出上述数列的第 n项的值（ n是选中的单选按钮后面的数值），并显示在文本框中，如图1-93所示（提示：因计算结果较大，应使用 Long型变量）。图1-93 注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击 显示结果 按钮获得一个结果；必须使用窗体右上角的关闭 按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。程序源码：Private Sub _ Form_Unload(Cancel As _ Integer) Opt1(0).Value = False Opt1(1).Value = True Opt1(2).Value = False Cmd1_Click unload_sub End Sub参考代码：Private Sub Cmd1_Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To Opt1.Count-1 If Opt1(i).Value = True Then 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 n = Val(Opt1(i).Caption) Exit For End If Next ReDim a(n) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next Txt1.Text = a(n) End Sub上机第 19套题一、基本操作题（2） 在名为 Form1的窗体上放置两个名称分别为Lst1和Lst2的列表框。在Lst1中添加 项目 1、 项目 2 、 、项目 10，并设置 MultiSelect 属性为 2（要求在控件属性中设置） 。再放置一个名为Cmd1的命令按钮，其标题为 复制 。程序运行后，若单击复制 按钮，将 Lst1中选中的内容（至少两项）复制到Lst2中，如图 1-95所示。若选择的项数少于两项，用消息框提示请至少选择两项 。注意：文件必须存放在考生文件夹中，窗体文件名为vbsj2.frm ，工程文件名为vbsj2.vbp。图1-95 Private Sub Cmd1_Click() Dim n As Integer Dim i As Integer For i = 0 To Lst1.ListCount - 1 If Lst1.Selected(i) = True Then n = n + 1 End If Next If n 2 Then MsgBox 请至少选择两项 Else For i = 0 To Lst1.ListCount - 1 If Lst1.Selected(i) = True Then Lst2.AddItem Lst1.List(i) End If Next 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 11 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 End If End Sub三、综合应用题在名为 Form1的窗体上绘制一个名称为Txt1的文本框，其 MultiLine 属性为 True，初始内容为空白；两个名称分别为 Cmd1和Cmd2的命令按钮，它们的标题分别为添加两条记录 和显示所有记录 。编写适当的事件过程，程序运行后， 如果单击 添加两条记录 命令按钮， 则向考生文件夹下的dr191.dat文件中添加两条记录，该文件是一个用随机存取方式建立的文件，共有3个记录，新添加的记录作为第4、第5个记录；如果单击显示所有记录 命令按钮，则把该文件中的全部记录（包括原来的3个记录和新添加的2个记录，共 5个记录）在文本框中显示出来，如图1-98所示。随机文件 dr191.dat中的每个记录包括3个字段，分别为姓名、电话号码和邮政编码，其名称、类型和长度分别为：图1-98 其类型定义为：Private Type PalInfo Name As String *8 Tel As String * 10 Post As Long End Type 变量定义为： Dim Pal As PalInfo 要求：单击 添加两条记录 按钮，则打开随机文件dr191.dat，向文件中添加第4、第 5个记录。这两条记录依次为（其中的字母必须是小写字母）：Zhangnan 66666666 100042 Wangjie 88888888 100037 单击 显示所有记录 按钮，则在文本框中显示dr191.dat文件中的 5个记录，每个记录显示一行。存盘时必须存放在考生文件夹中，工程文件名为vbsj5.vbp，窗体文件名为 vbsj5.frm。Private Type PalInfo Name As String * 8 Tel As String * 10 Post As Long End Type Dim Pal As PalInfo Private Sub Cmd1_Click() Open App.Path & dr191.dat For Random As #1 Len = Len(Pal) Pal.Name = Zhangnan Pal.Tel = 66666666 Pal.Post = 100042 Put #1, 4, Pal Pal.Name = Wangjie 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 12 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 Pal.Tel = 88888888 Pal.Post = 100037 Put #1, 5, Pal Close #1 End Sub Private Sub Cmd2_Click() Txt1.Text = Open App.Path & dr191.dat For Random As #1 Len = Len(Pal) While Not EOF(1) Get #1, , Pal Txt1.Text = Txt1.Text & Pal.Name & Pal.Tel & Pal.Post & vbCrLf Wend Close #1 End Sub 上机第 25套题二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp，相应的窗体文件为vbsj3.frm 。在名为 Form1的窗体上有一个名称为 Cmd1的命令按钮， 其标题为 添加 ；一个名为 Txt1 文本框，初始内容为空白； 一个名称为 Lst1的列表框。程序运行后，如果在文本框中输入一个英文句子（由多个单词组成，各单词之间用一个空格分开） ， 然后单击 添加 按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 1-126所示。该程序不完整，请补充完整。图1-126要求：去掉程序中的注释符 ，把程序中的问号 ？改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。程序源码Private Sub Cmd1_Click() Dim S1 As StringDim S2 As StringDim I1 As Integer S1 = ? I1 = 1 Do Do While Mid(S1, I1, 1) _ ? And I1 = Len(S1) S2 = S2 & Mid(S1, I1, 1) I1 = I1 + 1 Loop 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 Lst1.AddItem ? S2 = ? I1 = I1 + 1 Loop While I1 = Len(S1) End Sub参考代码S1 = Txt1.TextDo While Mid(S1, I1, 1) And I1 b Then i = a : a = b b = ? End If s = 0 For i = a To b s = s + ? Next i Txt3.Text = s End Sub图1-146 图1-147 参考代码：b = is = s + i上机第 31套题三、综合应用题在窗体 Form1上绘制 3个名称分别为 Cmd1、Cmd2和Cmd3的命令按钮，它们的标题分别为 读数 、 计算 和保存 。程序运行后， 如果单击 读数 按钮， 则读入 dr311.dat和dr312.dat文件中的各 20个整数， 分别放入两个数精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 16 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载组中；如果单击 计算 按钮， 则把两个数组中对应下标的元素相除并截尾取整后放入第3个数组中（即把第1个数组的第 n个元素除以第 2个数组的第 n元素，结果截尾取整后作为第3个数组的第 n个元素。这里的 n为1，2， 30） ，然后计算第 3个数组各元素之和，并把所求得的和在窗体上显示出来，如图1-158所示；如果单击 保存 按钮，则把所求得的和存入考生文件夹的dw311.dat文件中。图1-158 在考生文件夹下有一个工程文件vbsj5.vbp，考生可以装入该文件。窗体文件vbsj5.frm中的 ReadData1和ReadData2过程可以把 dr311.dat和dr312.dat文件中的各 30个整数分别读入Arr1和Arr2数组中；而 WriteData过程可以把指定的整数值写到考生文件夹指定的文件中（整数值通过计算求得，文件名为dw311.dat） 。注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为vbsj5.vbp，窗体文件名仍为vbsj5.frm 。程序源码：Option Base 1 Dim Arr1(20) As Integer Dim Arr2(20) As Integer Sub ReadData1() Open App.Path & & _ dr311.dat For Input As #1 For i = 1 To 20 Input #1, Arr1(i) Next i Close #1 End SubSub ReadData2() Open App.Path & & _ dr312.dat For Input As #1 For i = 1 To 20 Input #1, Arr2(i) Next i Close #1 End Sub Sub WriteData(Filename As _ String, Num As Integer) Open App.Path & & _ Filename For Output As #1 Print #1, Num Close #1 End Sub参考代码：Private Sub Cmd1_Click() 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 17 页，共 39 页 - - - - - - - - - - 学习必备欢迎下载 ReadData1 ReadData2 End Sub Private Sub Cmd2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / Arr2(i) Sum = Sum + Arr3(i) Next Print Sum End Sub Private Sub Cmd3_Click() WriteData dw311.dat, Sum End Sub上机第 37套题二、简单应用（2）在考生文件夹中有一个工程文件vbsj4.vbp（相应的窗体文件名为vbsj4.frm ） 。在名为 Form1的窗体上有 4个文本框，初始内容为空；一个命令按钮，标题为 降序排列 。功能是通过调用过程Sort将数组按降序排序。请装入该文件。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来，如图1-187所示。本程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符 ，把程序中的问号 ？改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件中保存修改后的文件。程序源码：Option Base 1 Private Sub Sort(a() As Integer) Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer Start = LB