《2023年全国计算机等级考试二级VB上机题库题型全面汇总归纳1.pdf》由会员分享，可在线阅读，更多相关《2023年全国计算机等级考试二级VB上机题库题型全面汇总归纳1.pdf（38页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、学习必备 欢迎下载 这些题型是本套全国计算机等级考试 VB所常见的。便将此整理一下，以供大学考前使用。祝大家能顺利通过二级。谢谢。上机第 1 套 一、基本操作题（1）在名为 Form1 的窗体上绘制一个名为 Fra1 的框架，标题为框架示例，高度为 2000，宽度为 3500；在框架中绘制一个文本框。名为 Txt1，高度为 600，宽度为 2000，其位置距框架的左边框和上边框均为 800，文本框中的初始内容设置为文本框示例 二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm。在名为Form1的窗体上有一个单选按钮数组，含3个单选按钮，均没有标题。
2、程序功能：在运行时，如果选中一个单选按钮后，单击显示按钮，则根据单选按钮的选中情况，在窗体上显示你所在的城市是北京、你所在的城市是上海或你所在的城市是天津。要求：请利用属性窗口，为单选按钮依次添加标题：北京、上海和天津，设初始选取中的是北京，再添加一个标题为显示的命令按钮，如图1-3所示。删除程序中语句前面的注释符，把程序中的问号？改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最后，将修改后的文件按原文件名保存在原文件夹中。程序源码：Private Sub Cmd1_Click()For i=0 To 2 If Opt1(i).Value=True Th
3、en Print 你所在的城市是+Opt1(i).Caption End If Next End Sub 上机第 2 套题 二、简单应用题 （1）在考生文件夹中有一个工程文件 vbsj3.vbp 及其窗体文件 vbsj3.frm。请在名为Form1的窗体上建立一个菜单，主菜单项为项目（名称为mnuItem），它有两个子菜单项，其名称分别为mnuItemAdd 和mnuItemDel，标题分别为添加和删除，然后绘制一个名为Lst1的列表框和一个名为Txt1的文本框。编写适当的事件过程。程序运行后，如果单击添加命令，则从键盘上输入要添加到列表框中的项目（内容任意，不少于3个）；如果单击删除命令，则
4、从键盘上输入要删除的项目，将其从列表框中删除。程序的运行结果如图1-8所示。在考生文件夹中的工程文件vbsj3.vbp（相应的窗体文件名为vbsj3.frm），可以实现上述功能。但程序不完整，请补充完整。程序源码：Private Sub mnuItemAdd_Click()学习必备 欢迎下载 Txt1.Text=InputBox(_请输入要添加的项目)Lst1.AddItem?End Sub Private Sub mnuItemDel_Click()Txt1.Text=InputBox(_ 请输入要删除的项目)For i=0 To?If Lst1.List(i)=?Then Lst1.Rem
5、oveItem?End If Next i End Sub Lst1.AddItem Txt1.Text For i=0 To Lst1.ListCount-1 If Lst1.List(i)=Txt1.Text Then Lst1.RemoveItem i（2）在考生文件夹中有工程文件 vbsj4.vbp 及其窗体文件 vbsj4.frm。在名为Form1的窗体上有一个名称为Lst1的列表框，一个名称为Txt1的文本框，以及一个名为Cmd1的命令按钮（标题为复制）。要求程序运行后，在列表框中自动建立4个列表项，分别为项目1、项目2、项目3和项目4。如果选择列表框中的一项，则单击复制按钮时，可
6、以把该项复制到文本框中，如图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=
7、0 To Lst1.ListCount-1 Txt1.Text=Lst1.List(i)要求：删除程序中语句前面的注释符，把程序中的问号？改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最后，将修改后的文件按原文件名保存在原文件夹中。三、综合应用题 在名为Form1的窗体上建立一个名为Txt1的文本框（其MultiLine 属性为True，ScrollBars 属性为2）和两个名称分别为Cmd1和Cmd2的命令按钮（它们的标题分别为读取和保存），如图1-10所示。制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选
8、按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 图1-10 要求程序运行后，如果单击读取按钮则读入dr021.dat文件中的100个整数，放一个数组中（数组下界为1）；如果单击保存按钮，则筛选出100个整数中的所有偶数，在文本框Txt1中显示出来，并把所有偶数之和存入考生文件夹中的文件dw021.dat。在考生文件夹下有标准模块model.bas，其中writedata过程可以把一个整数存入dw021.dat文件，考生可以把该模块文件添加到自己的工程中。注意：程序中对文件的操作统一使用相对路径；文件必须存放在考生文件夹中，窗体文件
9、名为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
10、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的主菜单，其标题为操作，该菜单有两个名称分别为mn
11、uOpDis和mnuOpCls的子菜单项，其标题分别为显示和清除。编写适当的事件过程，使程序运行后，若单击操作菜单中的显示命令，在文本框显示Visual Basic；如果单击清除命令，则清除文本框中显示的内容。程序的运行效果如图 1-12所示。制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 注意：文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。上机第 4 套 一、基本操作题（2）在窗体上绘制一个
12、列表框，名为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的
13、文本框；请在窗体上绘制两个名称分别为Fra1和Fra2的框架，其标题分别为性别和身份；在Fra1中绘制两个名称分别为Opt1和Opt2的单选按钮，其标题分别为男和女；在Fra2中绘制两个名称分别为Opt3和Opt4的单选按钮，其标题分别为学生和老师；再绘制一个名为Cmd1的命令按钮，其标题为确定。程序界面如图1-24所示。请编写适当的事件过程，使得在运行时，在Fra1、Fra2中选一个单选按钮，然后单击确定按钮，就可以按照表1-2把结果显示在文本框中。表1-2 运行结果表 性别 身份 在文本框中显示的内容 男 学生 男学生 男 老师 男老师 女 学生 女学生 女 老师 女老师 程序源码：Pri
14、vate Sub Form_Unload(Cancel As Integer)制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 Open dw051.dat For Output As#1 Print#1,Opt1.Value,Opt2.Value,Opt3.Value,Opt4.Value,Txt1.Text Close#1 End Sub 注意：不得修改窗体文件中已经存在的程序和 Txt1的属性，在结束程序运行之前，必须进行能够产生上表
15、中一个结果的操作；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后保存修改后的文件。参考代码：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=我是+Opt
16、2.Caption+Opt4.Caption End If End If End Sub 上机第 6 套题 三、综合应用题 在考生文件夹下有文件 dr061.dat，文件中有几行汉字。请在窗体 Form1上绘制一个名为Txt1的文本框，它能显示多行；再绘制一个名称为Cmd1的命令按钮，其标题为保存。编写适当的事件过程，使得在加载窗体时，把dr061.dat文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字：计算机VB考试，如图1-31 所示。最后单击保存按钮，可以把文本框中修改过的内容存到文件 dw061.dat中。图1-31 注意：只能在最前面插入文字，不能修改原有文字。文件必须存
17、放在考生文件夹中，以vbsj5.vbp为文件名存储工程文件，以vbsj5.frm为文件名存储窗体文件。Private Sub Form_Load()Dim str1 As String Open App.Path&dr061.dat For Input As#1 制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 Do While Not EOF(1)Input#1,str1 Txt1.Text=Txt1.Text+str1 Loop Clo
18、se#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(
19、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 Funct
20、ion之间填入所编写的若干语句。最后，按原文件名并在原文件夹中保存修改后的文件。程序源码：Sub SaveData()Open App.Path&_ dw091.dat For Output As#1 制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 Print#1,Txt1.Text Close#1 End Sub Function Fun()Dim sum As Integer Dim i As Integer For i=1 To 2
21、00 If i Mod 3=0 Then sum=sum+i End If Next Txt1.Text=sum Fun=sum End Function Private Sub Cmd1_Click()d=Fun()SaveData End Sub 上机第 10 套题 一、基本操作题（2）在名为Form1的窗体上绘制一个名为Drv1的DrivelListBox 控件，一个名为Dir1的DirListBox 控件和一个名为File1的FileListBox 控件。编写适当的事件过程，使程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox 显示文件名（不显示路径名
22、）。如图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 制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单
23、选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 上机第 12 套题 二、简单应用题（2）在考生文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。在名为Form1的窗体上有一个名称为Cmd1，标题为求小于600的整数之和的命令按钮。其功能是产生30个01000的随机整数，放入一个数组中，然后输出这30个整数中小于600的所有整数之和。程序运行后，单击命令按钮，即可求出这些整数的和，并在窗体上显示出来，如图 1-62所示。程序不完整，请补充完整，并能正确运行。要求：删除程序中语句前面的注释符，把程序中的问号？改为正确的内容，使其实现
24、上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。最后，将修改后的文件按原文件名保存在原文件夹中。程序源码 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=0 if arrN(i)600 th
25、en Sum=Sum+arrN(i)上机第13 套题 一、基本操作题（2）在名为Form1的窗体上绘制一个名为Cmd1的命令按钮，标题为打开，再绘制一个名为dlgFileOpen的通用对话框。程序运行后，若单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性和编写代码：设置适当属性，使对话框的标题为打开文件；设置适当属性，使对话框的文件类型下拉式组合框中有两行文本文件、所有文件，如图1-65所示，默认的类型是文本文件；编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。注意：程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件制一个文本框名为高度为宽度
26、为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 名为vbsj2.vbp，窗体文件名为vbsj2.frm。图1-65 上机第17套题 二、简单应用题（2）在考生文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。在名为Form1的窗体上有一个命令按钮和一个文本框。程序运行后，单击计算命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，运行效果如图1-87所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组
27、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
28、 For i=LBound(a)To UBound(a)sum=sum+a(i)/i Next Fun=sum End Function Private 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.2
29、5,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)制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 SaveData End Sub Sub SaveData()Open dw171.dat For Output As#1 Print#1,Txt1.T
30、ext 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 注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，
31、并单击显示结果按钮获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。程序源码：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
32、If Opt1(i).Value=True Then 制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 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和L
33、st2的列表框。在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
34、 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 制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 End If End Sub 三、综合应用
35、题 在名为Form1的窗体上绘制一个名称为Txt1的文本框，其MultiLine属性为True，初始内容为空白；两个名称分别为Cmd1和Cmd2的命令按钮，它们的标题分别为添加两条记录和显示所有记录。编写适当的事件过程，程序运行后，如果单击添加两条记录命令按钮，则向考生文件夹下的dr191.dat文件中添加两条记录，该文件是一个用随机存取方式建立的文件，共有3个记录，新添加的记录作为第4、第5个记录；如果单击显示所有记录命令按钮，则把该文件中的全部记录（包括原来的3个记录和新添加的2个记录，共5个记录）在文本框中显示出来，如图1-98所示。随机文件dr191.dat中的每个记录包括3个字段，分
36、别为姓名、电话号码和邮政编码，其名称、类型和长度分别为：图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个记录，每个
37、记录显示一行。存盘时必须存放在考生文件夹中，工程文件名为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=Wa
38、ngjie 制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 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.Tex
39、t&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-
40、126 要求：去掉程序中的注释符，把程序中的问号？改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。程序源码 Private Sub Cmd1_Click()Dim S1 As String Dim S2 As String Dim 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 制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选
41、按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 Lst1.AddItem?S2=?I1=I1+1 Loop While I1=Len(S1)End Sub 参考代码 S1=Txt1.Text Do 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=i s=s+i 上机第31套题 三、综合应用题 在窗体Form1上绘制3个名称分别为Cmd1、Cmd2和Cmd3的命令按钮，它
42、们的标题分别为读数、计算和保存。程序运行后，如果单击读数按钮，则读入dr311.dat和dr312.dat文件中的各20个整数，分别放入两个数制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 组中；如果单击计算按钮，则把两个数组中对应下标的元素相除并截尾取整后放入第3个数组中（即把第1个数组的第n个元素除以第2个数组的第n元素，结果截尾取整后作为第3个数组的第n个元素。这里的n为1，2，30），然后计算第3个数组各元素之和，并把所求得的和在
43、窗体上显示出来，如图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.fr
44、m。程序源码：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 Sub Sub 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(Fil
45、ename As _ String,Num As Integer)Open App.Path&_ Filename For Output As#1 Print#1,Num Close#1 End Sub 参考代码：Private Sub Cmd1_Click()制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 ReadData1 ReadData2 End Sub Private Sub Cmd2_Click()Dim Arr3(20)As
46、 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个文本框中各输入一个整
47、数，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来，如图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=LBound(a):Finish=UBound(a
48、)For i=Finish To 2 Step?For j=1 To Finish-1 If a(j)arrN(i)Then Min=?End If Next i Print Min 制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 End Sub 图1-192 参考代码：arrN(i)=Int(Rnd*1001)Min=arrN(1)Min=arrN(i)上机第40套题 二、简单应用题（2）在考生文件夹中有一个工程文件vbsj4.vbp，
49、相应的窗体文件名为vbsj4.frm。请在名为Form1的窗体上绘制一个名称为Txt1的文本框和一个名称为Cmd1且标题为大小写转换的命令按钮。程序功能是：在程序运行时，单击大小写转换按钮，可以把Txt1中的大写字母转换为小写，把小写字母转换为大写，如图1-202所示。要求：窗体文件中已经给出了大小写转换按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的问号？改为正确的内容。注意：不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。程序源码：Private Sub Cmd1_Click()Dim a$,b$,k%,n%a$=n%=Asc(a)-Asc(?)
50、For k%=1 To Len(Txt1.Text)b$=Mid(Txt1.Text,k%,1)If b$=a And b$=A _ And b$=Z Then b$=String(1,Asc(b$)?)End If End If a$=a$+b$Next k%Txt1.Text=?End Sub 制一个文本框名为高度为宽度为其位置距框架的左边框和上边框均为文程序功能在运行时如果选中一个单选按钮后单击显示按钮则根据单选按取中的是京再添加一个标题为显示的命令按钮如图所示删除程序中语句学习必备 欢迎下载 图1-202 参考代码：n%=Asc(a)-Asc(A)b$=String(1,Asc(b$)