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

1、学习必备欢迎下载这些题型是本套全国运算机等级考试vb 所常见的；便将此整理一下，以供高校考前使用；祝大家能顺当通过二级；感谢；上机第 1 套一、基本操作题（1）在名为 form1 的窗体上绘制一个名为 fra1 的框架，标题为 " 框架示例 " ，高度为 2000，宽度为 3500； 在框架中绘制一个文本框； 名为 txt1 ，高度为 600，宽度为 2000，其位置距框架的左边框和上边框均为 800， 文本框中的初始内容设置为 " 文本框示例 "二、简洁应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp 及其窗体文件 vbsj3.frm ；在名

2、为 form1 的窗体上有一个单项按钮数组，含 3个单项按钮，均没有标题；程序功能：在运行时，假如选中一个单项按钮后，单击" 显示" 按钮， 就依据单项按钮的选中情形，在窗体上显示 " 你所在的城市是北京 " 、" 你所在的城市是上海 " 或" 你所在的城市是天津 " ；要求：请利用属性窗口，为单项按钮依次添加标题： " 北京" 、" 上海" 和" 天津" ，设初始选取中的是 " 北京" ，再添加一个标题为 " 显示"

3、; 的命令按钮，如图 1-3 所示；删除程序中语句前面的注释符 " '" ，把程序中的问号 " ？ " 改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性；最终，将修改后的文件按原文件名储存在原文件夹中；程序源码：private sub cmd1_click for i = 0 to 2if opt1i.value = true thenprint "你所在的城市是 " + opt1i.caption end ifnext end sub上机第 2 套题二、简洁应用题（1） 在考生文件夹中有一

4、个工程文件vbsj3.vbp 及其窗体文件 vbsj3.frm ；请在名为 form1 的窗体上建立一个菜单，主菜单项为 " 项目"（名称为 mnuitem ），它有两个子菜单项， 其名称分别为 mnuitemadd 和mnuitemdel ， 标题分别为 " 添加" 和" 删除" ，然后绘制一个名为lst1 的列表框和一个名为 txt1的文本框；编写适当的大事过程；程序运行后，假如单击" 添加" 命令，就从键盘上输入要添加到列表框中的项目（内容任意，不少于3个）；假如单击 " 删除" 命令，就

5、从键盘上输入要删除的项目，将其从列表框中删除；程序的运行结果如图1-8所示；在考生文件夹中的工程文件vbsj3.vbp（相应的窗体文件名为 vbsj3.frm ），可以实现上述功能；但程序不完整，请补充完整；程序源码：private sub mnuitemadd_clicktxt1.text = inputbox"_请输入要添加的项目" 'lst1.additem .end subprivate sub mnuitemdel_clicktxt1.text = inputbox" _请输入要删除的项目 " 'for i = 0 to .&#

6、39;if lst1.listi = . then 'lst1.removeitem .end if next iend sublst1.additem txt1.textfor i = 0 to lst1.listcount - 1 if lst1.listi = txt1.text then lst1.removeitem i（2） 在考生文件夹中有工程文件vbsj4.vbp 及其窗体文件 vbsj4.frm ；在名为 form1 的窗体上有一个名称为 lst1 的列表框，一个名称为 txt1 的文本框，以及一个名为 cmd1的命令按钮（标题为" 复制" ）；要

7、求程序运行后， 在列表框中自动建立4个列表项， 分别为 " 项目 1" 、" 项目 2" 、" 项目 3" 和" 项目 4" ；假如挑选列表框中的一项， 就单击 " 复制" 按钮时，可以把该项复制到文本框中，如图1-9所示；图 1-8图1-9程序源码：option explicitprivate sub cmd1_clickdim i as integer 'for i = . to _lst1.listcount-1 if lst1.selectedi = true then'

8、. = lst1.listi end ifnext i end subprivate sub form_loadlst1.additem "item1" lst1.additem "item2" lst1.additem "item3" lst1.additem "item4"end subfor i = 0 to lst1.listcount - 1 txt1.text = lst1.listi要求：删除程序中语句前面的注释符" ' " ，把程序中的问号 "？ "

9、改为正确的内容，使其实现上述功能， 但不得修改程序的其他部分，也不得修改控件的其他属性；最终，将修改后的文件按原文件名储存在原文件夹中；三、综合应用题在名为 form1 的窗体上建立一个名为 txt1 的文本框（其 multiline 属性为 true，scrollbars 属性为 2）和两个名称分别为 cmd1和cmd2的命令按钮（它们的标题分别为" 读取" 和" 储存" ），如图 1-10所示；图1-10要求程序运行后，假如单击 " 读取" 按钮就读入 dr021.dat文件中的 100个整数，放一个数组中（数组下界为1）；假如单

10、击 " 储存" 按钮，就挑选出 100个整数中的全部偶数，在文本框 txt1 中显示出来，并把全部偶数之和存入考生文件夹中的文件 dw021.dat；在考生文件夹下有标准模块model.bas，其中 writedata 过程可以把一个整数存入dw021.dat文件，考生可以把该模块文件添加到自己的工程中；留意：程序中对文件的操作统一使用相对路径；文件必需存放在考生文件夹中， 窗体文件名为 vbsj5.frm ， 工程文件名为 vbsj5.vbp ，结果存入 dw021.dat文件，否就没有成果；'option explicitsub writedatabyval a

11、 as integerdim sfile as string sfile = "dw021.dat"open app.path & sfile for output as #1print #1, a;close #1 end subdim a100 as integer private sub cmd1_clickopen app.path & "dr021.dat" for input as #1 txt1.text = ""for i = 1 to 100input #1, aitxt1.text = txt1.t

12、ext & ai & space1 next iclose #1 end subprivate sub cmd2_click txt1.text = ""s = 0for i = 1 to 100if ai mod 2 = 0 thentxt1.text = txt1.text & ai & space1 s = s + aiend if next writedata send sub上机第 3 套题一、基本操作题（2）在form1窗体上绘制一个名为txt1 的文本框，然后建立一个名为mnuop的主菜单，其标题为 " 操作"

13、; ， 该菜单有两个名称分别为 mnuopdis 和mnuopcls 的子菜单项，其标题分别为" 显示" 和" 清除" ；编写适当的 大事过程，使程序运行后，如单击" 操作" 菜单中的 " 显示" 命令，在文本框显示 visual basic ；假如单击 " 清除" 命令，就清除文本框中显示的内容；程序的运行成效如图1-12所示；留意：文件必需存放在考生文件夹中，工程文件名为vbsj2.vbp ，窗体文件名为 vbsj2.frm；上机第 4 套一、基本操作题（2）在窗体上绘制一个列表框，名为ls

14、t1 ，通过属性窗口向列表框中添加4个项目，分别为 " 项目 1" 、" 项目2" 、" 项目 3" 和" 项目 4" ；编写适当的大事过程，使程序运行后，如双击列表框中的某一项，就该项就从列表中消逝；程序的运行情形如图1-18所示；留意：文件必需存放在考生文件夹中，工程文件名为vbsj2.vbp ，窗体文件名为 vbsj2.frm；private sub lst1_dblclick lst1.removeitem lst1.listindexend sub上机第 5 套题二、简洁应用题（1）在考生文件夹中有一个工

15、程文件vbsj3.vbp 及其窗体文件 vbsj3.frm ；在名为 form1 的窗体中有一个名为txt1 的文本框； 请在窗体上绘制两个名称分别为fra1和fra2的框架， 其标题分别为 " 性别" 和" 身份" ；在fra1中绘制两个名称分别为 opt1和opt2的单项按钮，其标题分别为" 男" 和" 女" ；在fra2中绘制两个名称分别为opt3和opt4的单项按钮，其标题分别为 " 同学" 和" 老师" ；再绘制一个名为 cmd1的命令按钮，其标题为" 确

16、定" ；程序界面如图 1-24所示；请编写适当的大事过程，使得在运行时，在fra1、fra2中选一个单项按钮，然后单击" 确定" 按钮，就可以依据表 1-2 把结果显示在文本框中；表1-2 运行结果表性别身份在文本框中显示的内容男同学男同学男老师男老师女同学女同学女老师女老师程序源码：private sub form_unloadcancel as integeropen "dw051.dat" for output as #1print#1,opt1.value,opt2.value,opt3.value,opt4.value,txt1.te

17、xt close #1end sub留意：不得修改窗体文件中已经存在的程序和txt1 的属性，在终止程序运行之前，必需进行能够产生上表中一个结果的操作；必需用窗体右上角的关闭按钮终止程序，否就无成果；最终储存修改后的文件；参考代码：private sub cmd1_clickif opt1.value = true thenif opt3.value = true thentxt1.text = "我是" + opt1.caption + opt3.caption elsetxt1.text = "我是" + opt1.caption + opt4.ca

18、ption end ifelseif opt3.value = true thentxt1.text = "我是" + opt2.caption + opt3.caption elsetxt1.text = "我是" + opt2.caption + opt4.caption end ifend if end sub上机第 6 套题三、综合应用题在考生文件夹下有文件 dr061.dat，文件中有几行汉字；请在窗体form1上绘制一个名为 txt1 的文本框， 它能显示多行；再绘制一个名称为cmd1的命令按钮，其标题为 " 储存" ；编

19、写适当的大事过程，使得在加载窗体时，把 dr061.dat文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字：" 运算机 vb 考试" ，如图 1-31所示；最终单击 " 储存" 按钮，可以把文本框中修改过的内容存到文件dw061.dat中；图1-31留意：只能在最前面插入文字，不能修改原有文字；文件必需存放在考生文件夹中，以vbsj5.vbp 为文件名储备工程文件，以 vbsj5.frm 为文件名储备窗体文件；private sub form_loaddim str1 as stringopen app.path & "dr

20、061.dat" for input as #1do while not eof1 input #1, str1txt1.text = txt1.text + str1loopclose #1 end subprivate sub cmd1_clickopen app.path & "dw061.dat" for output as #1 print #1, txt1.textclose #1 end sub上机第 7 套题一、基本操作题（2）在名为 form1的窗体上放置一个名为 txt1 的文本框；程序运行后，用户在文本框中输入的英文字母一律用大写显示

21、（要求焦点在最右端），如图 1-33所示；留意：文件必需存放在考生文件夹中，窗体文件名为vbsj2.frm ，工程文件名为 vbsj2.vbp；图1-33private sub txt1_change txt1.text = ucasetxt1.text txt1.selstart = lentxt1.textend sub上机第 9 套题二、简洁应用题（1）在考生文件夹中有一个工程文件 vbsj3.vbp ，相应的窗体文件为 vbsj3.frm ；在名为 form1 的窗体上有一个命令按钮和一个文本框；程序运行后，单击命令按钮，即可运算出 0200范畴内能被 3整除的全部整数的和，并在文本框

22、中显示出来，如图 1-44所示；在窗体的代码窗口中，已给出了部分程序，其中运算 0200范畴内能被 3整除的全部整数的和的操作在通用过程 fun中实现，请编写该过程的代码；要求：请勿改动程序中的任何内容，只在 function fun 和end function之间填入所编写的如干语句；最终，按原文件名并在原文件夹中储存修改后的文件；程序源码：sub savedataopen app.path & "" & _ "dw091.dat" for output as #1print #1, txt1.textclose #1 end subf

23、unction fundim sum as integer dim i as integer for i = 1 to 200if i mod 3 = 0 then sum = sum + iend if nexttxt1.text = sum fun=sumend functionprivate sub cmd1_click d = funsavedata end sub上机第 10 套题一、基本操作题（2）在名为 form1的窗体上绘制一个名为 drv1 的drivellistbox 控件， 一个名为 dir1 的dirlistbox 控件和一个名为file1的filelistbox 控件

24、；编写适当的大事过程，使程序运行时，可以对系统中的文件进行浏览；当双击file1 中的文件名时，用 msgbox 显示文件名（不显示路径名） ；如图 1-48所示；留意：程序中不得使用任何变量；文件必需存放在考生文件夹中，窗体文件名为vbsj2.frm ，工程文件名为vbsj2.vbp ；参考代码：private sub drv1_change dir1.path = drv1.driveend subprivate sub dir1_change file1.path = dir1.pathend subprivate sub file1_click msgbox file1.filenam

25、eend sub上机第 12 套题二、简洁应用题（2）在考生文件夹中有一个工程文件 vbsj4.vbp ，相应的窗体文件为 vbsj4.frm ；在名为 form1 的窗体上有一个名称为 cmd1 ，标题为 " 求小于 600 的整数之和 " 的命令按钮；其功能是产生 30个01000的随机整数， 放入一个数组中，然后输出这 30个整数中小于 600的全部整数之和；程序运行后，单击命令按钮，即可求出这些整数的和，并在窗体上显示出来，如图 1-62所示；程序不完整，请补充完整，并能正确运行；要求：删除程序中语句前面的注释符 " ' " ，把程序中的

26、问号 "？ " 改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性；最终，将修改后的文件按原文件名储存在原文件夹中；程序源码option base 1private sub cmd1_click dim arrn30 as integer dim sum as double randomizefor i = 1 to 30'arrni = intrnd * .next i'sum = .for i = 1 to 30 'if . then'sum = .end if next i print sumend s

27、ub参考代码： arrni = intrnd * 1001sum = 0if arrni<600 then sum = sum + arrni上机第 13 套题一、基本操作题（2）在名为 form1的窗体上绘制一个名为 cmd1 的命令按钮，标题为 " 打开" ，再绘制一个名为 dlgfileopen 的通用对话框；程序运行后，如单击命令按钮，就弹出" 打开文件 " 对话框；请按以下要求设置属性和编写代码：设置适当属性，使对话框的标题为" 打开文件 " ；设置适当属性，使对话框的" 文件类型 " 下拉式组合框

28、中有两行 " 文本文件 " 、" 全部文件 " ，如图1-65所示，默认的类型是 " 文本文件 " ；编写命令按钮的大事过程，使得单击按钮可以弹出" 打开文件 " 对话框；留意：程序中不得使用变量，大事过程中只能写一条语句；文件必需存放在考生文件夹中，工程文件名为vbsj2.vbp ，窗体文件名为 vbsj2.frm ；图1-65上机第 17套题二、简洁应用题（2）在考生文件夹中有一个工程文件vbsj4.vbp ，相应的窗体文件为 vbsj4.frm ；在名为 form1 的窗体上有一个命令按钮和一个文本框；程序运

29、行后，单击" 运算" 命令按钮，即可运算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，运行成效如图1-87所示；在窗体的代码窗口中，已给出了部分程序， 其中运算数组 arr中每个元素与其下标相除所得的和的操作在通用过程fun中实现，请编写该过程的代码；要求： 请勿改动程序中的其他部分，只在function fun 和end function之间填入所编写的如干语句并运行程序；最终按原文件名并在原文件夹中储存修改后的文件；说明：数组 arr中共有 40 个元素，所谓" 数组 arr 中每个元素与其下标相除所得的和" ，指的是：arr1/

30、1+arr2/2+arr3/3+ +arr40/40 ；程序源码：option base 1function funa as single as single dim sum as singledim i as integerfor i = lbounda to ubounda sum = sum + ai / inextfun = sum end functionprivate sub cmd1_clickdim arrdim arr240 as singlearr = array11.5, 65.84, 52, 78, 221.23, 22.25, 43.2, 26, 25.6, _56.

31、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.53for i = 1 to uboundarr arr2i = arrinext ir = funarr2 txt1.text = strrsavedata end subsub savedataopen "

32、dw171.dat" for output as #1 print #1, txt1.textclose #1end sub上机第 18 套题三、综合应用题数列： 1，1， 2，3，5， 8，3， 21的规律是从第 3个数开头，每个数是它前面两个数之和；在考生文件夹下有一个工程文件 vbsj5.vbp（相应的窗体文件为 vbsj5.frm ）；窗体 form1 中已经给出了全部控件；编写适当的大事过程完成以下功能：选中一个单项按钮后，单击" 显示结果 " 按钮，就运算出上述数列的第n项的值（ n是选中的单项按钮后面的数值），并显示在文本框中，如图1-93所示（提示

33、：因运算结果较大，应使用 long型变量）；图1-93留意： 不能修改已经给出的程序和已有的控件的属性；在终止程序运行之前，必需选中一个单项按钮， 并单击 " 显示结果 " 按钮获得一个结果；必需使用窗体右上角的" 关闭" 按钮终止程序，否就无成果；最终把修改后的文件按原文件名存盘；程序源码：private sub _form_unloadcancel as _integeropt10.value = false opt11.value = trueopt12.value = falsecmd1_click unload_subend sub参考代码：p

34、rivate sub cmd1_click dim a as longdim i as integerdim n as integerfor i = 0 to opt1.count-1if opt1i.value = true thenn = valopt1i.caption exit forend if next redim an a1 = 1a2 = 1for i = 3 to nai = ai - 1 + ai - 2 nexttxt1.text = anend sub上机第 19套题一、基本操作题（2）在名为 form1 的窗体上放置两个名称分别为lst1和lst2 的列表框；在lst

35、1中添加 " 项目 1" 、" 项目 2" 、 " 项目 10" ，并设置 multiselect 属性为 2（要求在控件属性中设置） ；再放置一个名为 cmd1 的命令按钮，其标 题为" 复制" ；程序运行后，如单击 " 复制" 按钮，将 lst1 中选中的内容（至少两项）复制到lst2 中，如图 1-95 所示；如挑选的项数少于两项，用消息框提示" 请至少挑选两项 " ；留意：文件必需存放在考生文件夹中，窗体文件名为vbsj2.frm ，工程文件名为 vbsj2.vbp；

36、图1-95private sub cmd1_click dim n as integerdim i as integerfor i = 0 to lst1.listcount - 1if lst1.selectedi = true then n = n + 1end ifnextif n < 2 thenmsgbox "请至少挑选两项 " elsefor i = 0 to lst1.listcount - 1if lst1.selectedi = true then lst2.additem lst1.listiend if nextend ifend sub三、综合

37、应用题在名为 form1 的窗体上绘制一个名称为txt1的文本框，其 multiline 属性为 true，初始内容为空白；两个名称分别为 cmd1 和cmd2 的命令按钮，它们的标题分别为" 添加两条记录 " 和" 显示全部记录 "；编写适当的大事过程， 程序运行后， 假如单击 " 添加两条记录 " 命令按钮， 就向考生文件夹下的dr191.dat文件中添加两条记录，该文件是一个用随机存取方式建立的文件，共有3个记录，新添加的记录作为第4、第5个记录；假如单击 " 显示全部记录 " 命令按钮，就把该文件中的全部记

38、录（包括原先的3个记录和新添加的2个记录，共 5个记录）在文本框中显示出来，如图1-98所示；随机文件 dr191.dat中的每个记录包括 3个字段，分别为姓名、电话号码和邮政编码，其名称、类型和长度分别为：图1-98其类型定义为：private type palinfo name as string *8 tel as string * 10post as long end type变量定义为： dim pal as palinfo要求：单击 " 添加两条记录 " 按钮，就打开随机文件 dr191.dat，向文件中添加第4、第 5个记录；这两条记录依次为（其中的字母必需是

39、小写字母）：zhangnan66666666100042wangjie88888888100037单击 " 显示全部记录 " 按钮，就在文本框中显示 dr191.dat文件中的 5个记录，每个记录显示一行；存盘时必需存放在考生文件夹中，工程文件名为vbsj5.vbp ，窗体文件名为 vbsj5.frm ；private type palinfoname as string * 8 tel as string * 10 post as longend typedim pal as palinfo private sub cmd1_clickopen app.path &

40、; "dr191.dat" for random as #1 len = lenpalpal.name = "zhangnan" pal.tel = "66666666"pal.post = 100042put #1, 4, pal pal.name = "wangjie"pal.tel = "88888888"pal.post = 100037put #1, 5, palclose #1 end subprivate sub cmd2_click txt1.text = ""

41、;open app.path & "dr191.dat" for random as #1 len = lenpalwhile not eof1 get #1, , paltxt1.text = txt1.text & pal.name & pal.tel & pal.post & vbcrlf wendclose #1 end sub上机第 25 套题二、简洁应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp ，相应的窗体文件为 vbsj3.frm ；在名为 form1 的窗体上有一个名称为 cmd1的命令按钮， 其标题为

42、" 添加" ；一个名为 txt1 文本框，初始内容为空白； 一个名称为 lst1 的列表框；程序运行后，假如在文本框中输入一个英文句子（由多个单词组成，各单词之间用一个空格分开），然后单击 " 添加" 按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 1-126所示；该程序不完整，请补充完整；图1-126要求：去掉程序中的注释符" '"，把程序中的问号 " ？ " 改为正确的内容，使其能正确运行，但不得修改程序的其他部分；最终，按原文件名并在原文件夹中储存修改后的文件；程序源

43、码private sub cmd1_click dim s1 as string dim s2 as string dim i1 as integer's1 = . i1 = 1do'do while mids1, i1, 1 _<> . and i1 <= lens1 s2 = s2 & mids1, i1, 1i1 = i1 + 1loop'lst1.additem . 's2 = .i1 = i1 + 1loop while i1 <= lens1end sub参考代码s1 = txt1.textdo while mids1

44、, i1, 1 <> " " and i1 <= lens1lst1.additem s2 s2 = ""上机第 26 套题二、简洁应用题（2） 在名为 form1的窗体上绘制一个名为 txt1 的文本框；再建立一个名为mnuformat 的弹出式菜单，它含有3个名称分别为 mnuforat1、mnuformat2 、mnuformat3 的子菜单项，它们的标题分别为" 加粗" 、" 斜体" 和" 下划线 " ；请编写适当的大事过程，在运行时当用鼠标右键单击文本框时，弹出此菜单

45、，选中一个菜单项后，就进行菜单标题所描述的操作，如图1-137所示；留意：文件必需存放在考生文件夹中，工程文件名为vbsj4.vbp ，窗体文件名为 vbsj4.frm；参考代码：privatesub txt1_mousedownbuttonas integer,shiftas integer,x as single, y as singleif button = 2 thenme.popupmenu mnuformat end ifend subprivate sub mnuformat1_click txt1.fontbold = trueend subprivate sub mnufor

46、mat2_click txt1.fontitalic = trueend subprivate sub mnuformat3_click txt1.fontunderline = trueend sub三、综合应用题在考生文件夹中有一个工程文件vbsj5.vbp 和窗体文件 vbsj5.frm ；在窗体 form1中已经给出了全部控件；编写适当的大事过程实现以下功能：单击" 读数" 按钮，就把考生目录下的dr271.dat文件中的一个整数放入txt1 ；单击 " 运算" 按钮，就运算出小于该数的最大素数，并显示在钮，就把找到的素数存到考生目录下的dw27

47、1.dat文件中；txt2 中，如图 1-138 所示；单击 " 储存" 按图1-138留意：在终止程序运行之前必需单击" 储存" 按钮，把结果存入 dw271.dat文件，否就无成果；最终把修改后的文件按原文件名储存；程序源码：private sub cmd1_click open app.path & "" & _ "dr271.dat" for input as #1 input #1, a%txt1.text = a% close #1end subprivate sub cmd3_clic

48、kopen "dw271.dat" for output as #1 print #1, txt2.textclose #1end sub参考代码：private sub cmd2_clickdim k as integer k = valtxt1.textwhile not isprimek k = k - 1wend txt2.text = kend subprivate function isprimem as integer as boolean for i = 2 to m - 1if m mod i = 0 then isprime = false exit f

49、unctionend if nextisprime = true end function上机第 29套题二、简洁应用题（1） 在考生文件夹中有工程文件vbsj3.vbp 及其窗体文件 vbsj3.frm ；在名为 form1的窗体上有 3个名称分别为txt1 、txt2 和txt3 的文本框； 1个名称为 cmd1 的命令按钮，其标题为 " 运算" ；要求程序运行后，在 txt1 和txt2 中分别输入两个整数，单击" 运算" 按钮后，可把两个整数之间的全部整数（含两个整数）累加起来并在txt3 中显示出来，如图 1-146所示；要求：在有问号 &qu

50、ot; ？" 的地方填入正确内容，然后删除" ？" 及全部注释符 " '" ，但不得修改其他部分；保存时不得转变文件名和文件夹；程序源码：private sub cmd1_clickdim i as integer dim s as integer dim a as integer dim b as integera = valtxt1.text b = valtxt2.textif a > b theni = a : a = b'b = .end if s = 0for i = a to b's = s + .n

51、ext i txt3.text = send sub图1-146图1-147参考代码：b = is = s + i上机第 31套题三、综合应用题在窗体 form1 上绘制 3个名称分别为 cmd1 、cmd2和cmd3的命令按钮，它们的标题分别为" 读数" 、" 运算" 和" 储存" ；程序运行后， 假如单击 " 读数" 按钮， 就读入 dr311.dat和dr312.dat文件中的各 20个整数， 分别放入两个数组中； 假如单击 " 运算" 按钮， 就把两个数组中对应下标的元素相除并截尾取整后

52、放入第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

53、数组中；而 writedata过程可以把指定的整数值写到考生文件夹指定的文件中（整数值通过运算求得，文件名为dw311.dat）；留意：考生不得修改窗体文件中已经存在的程序；存盘时，工程文件名仍为vbsj5.vbp ，窗体文件名仍为vbsj5.frm ；程序源码：option base 1dim arr120 as integer dim arr220 as integer sub readdata1open app.path & "" & _ "dr311.dat" for input as #1 for i = 1 to 20inpu

54、t #1, arr1i next iclose #1 end subsub readdata2open app.path & "" & _ "dr312.dat" for input as #1for i = 1 to 20input #1, arr2i next iclose #1 end subsub writedatafilename as _string, num as integer open app.path & "" & _filename for output as #1 print #

55、1, numclose #1 end sub参考代码：private sub cmd1_clickreaddata1 readdata2end subprivate sub cmd2_click dim arr320 as integer sum = 0for i = 1 to 20arr3i = intarr1i / arr2i sum = sum + arr3inextprint sum end subprivate sub cmd3_click writedata "dw311.dat", sumend sub上机第 37套题二、简洁应用（2） 在考生文件夹中有一个工

56、程文件 vbsj4.vbp（相应的窗体文件名为 vbsj4.frm ）；在名为 form1 的窗体上有 4个文本框，初始内容为空；一个命令按钮，标题为 " 降序排列 " ；功能是通过调用过程 sort将数组按降序排序；请装入该文件；程序运行后，在 4个文本框中各输入一个整数，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来，如图 1-187所示；本程序不完整，请补充完整，并能正确运行；要求：去掉程序中的注释符 " '"，把程序中的问号 " ？ " 改为正确的内容，使其实现上述功能，但不得修改程序的其他部分；最终，按

57、原文件名并在原文件中储存修改后的文件；程序源码：option base 1private sub sorta as integerdim start as integer, finish as integer dim i as integer, j as integer, t as integer start = lbounda : finish = ubounda'for i = finish to 2 step .for j = 1 to finish - 1 if aj < aj + 1 thent = aj + 1 : aj + 1 = aj aj = tend if n

58、ext jnext iend subprivate sub cmd1_click dim temp as integer,arr1 dim arr24 as integer'arr1=.valtxt1.text,valtxt2.text,valtxt3.text,valtxt4.texttemp=valtxt1.text+valtxt2.text+valtxt3.text+ valtxt4.textfor i = 1 to 4arr2i = cintarr1i next isort arr2txt1.text = arr21 : txt2.text = arr22 txt3.text = arr23 : txt4.text = arr24end sub图1-187参考代码：for i = finish to 2 step -1arr1=arrayvaltxt1.text,valtxt2.text,valtxt3.text, valtxt4.text上机第 38套题二、简洁应用题（2）在考生文件夹中有一个工程文件vbsj4.vbp ，相应的窗体文件为 vbsj4.frm ；在名为 form1 的窗体上有一个名称为 cmd1的命令按钮， 其标题为 " 最小