2022年二级上机测试中VB程序设计及程序调试样题 .pdf

《2022年二级上机测试中VB程序设计及程序调试样题 .pdf》由会员分享，可在线阅读，更多相关《2022年二级上机测试中VB程序设计及程序调试样题 .pdf（25页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、二级上机测试中VB 程序设计及程序调试样题浙江省计算机等级考试（二级VB ）上机测试的程序设计题，从2002 年秋季开始，其题型及考试要求都有较大变化。要求考生在老考生目录中，按照题目要求，自己新建一工程文件Design.Vbp ，按题目要求完成界面设计和编写相应事件代码。程序设计题的操作步骤如下：1考生在单击 “回答” 按钮后， 便可启动Visual Basic6.0 系统，同时运行考生目录中的Design.exe文件，以便考生设计时随时同程序设计要求最终效果比较。2程序界面设计，要求考生设置窗体指定的一些属性，在窗体添加控件，并设置控件的某些属性。3编写程序代码，根据题目的要求，在代码窗口

2、中编写相应事件的程序代码，调试运行程序使其程序的运行效果与运行Design.exe 的效果相同。4将工程以文件名“Design.Vbp ” ，窗体以文件名“Design.Frm ”保存在考生文件夹中。注意：界面设计中，以默认方式命名控件，从左至右，从上向下的顺序拖放控件。在调试过程中，考生可通过运行考生目录下的Design.exe文件来查看程序的最终效果。把自己完成的程序运行效果同它比较，若有不同，再次检查你的界面设计和程序代码是否正确，使程序运行效果与Design.exe运行结果相同。下面是计算机等级考试（二级Visual Basic 程序设计）上机测试的程序设计样题。如果学生要上机做这些试

3、题，由于你的计算机中没有Design.EXE 文件，你可自己启动Visual Basic6.0 系统，新建一标准EXE 工程，按题目的要求设计界面、添加所需控件并设置相关属性，编写相应事件代码，使其程序运行结果能实现题目的要求。（一）程序设计题1请参考Design.exe 程序的运行结果，新建一个工程，完成“添加与删除”程序的设计。将工程文件以Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“添加与删除”，固定边框。（2）在窗体中引入一个文本框Text1，再在文本框的下面引入一个列表框List1 ，列表框内容中有四项，分别为“Word、

4、 Excel、PowerPoint 、Outlook ” 。（3）单击“添加”按钮（Command1） ，将文本框中的内容加到列表框中的第一题，如果文本框中没有内容，则给出提示“没有内容，不予添加”。（4）单击“删除”按钮（Command2） ，将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择删除的项目”。（5）其他界面设计参考Design.exe 程序运行效果，如图2-1 所示。图 2-1 “添加与删除”程序运行结果名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页

5、，共 25 页 - - - - - - - - - 2请参考Design.exe 程序的运行结果，新建一个工程，完成“加法器”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“加法器”，固定边框。（2）在窗体上从到下依次引入Text1、Text2、Text3 三个文本框，三个文本框的对齐方式均为右对齐。（3）上面两个文本框用于输入加数，要求不接受非数字键（4）下面一个文本框用于显示和，它不能进行编辑操作。（5）单击“ =”按钮（ Command1） ，将两个加数的和显示在下面一个文本框中。（6）单击“清空”按钮

6、（Command2 ） ，三个文本框内容都被清空，同时第一个文本框获得焦点。（7）其他界面设计参考Design.exe 程序运行效果，如图2-2 所示。图 2-2 “加法器”程序运行效果3请参考Design.exe 程序的运行结果，新建一个工程，完成“字幕滚动”程序设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“字幕滚动”，固定边框。（2）在属性窗口中将标签(Label1) 的标题设为 “祝您考试成功” ，字体设置为 “宋体”、字形为“粗体” 、大小为“二号” 、文字颜色为“红色”。（3）单击“开始”按钮，标签文字

7、在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100 缇，当标签移动到窗体外时，再从窗体的左边进入，同时“开始” 按钮变为 “停止”按钮。（4）单击“停止”按钮，标签“祝您考试成功”文字停止滚动。同时，“停止”按钮变为“开始”按钮。（5）定时器（ Timer1 ）的时间间隔为0.1 秒。（6）其他界面设计参考Design.exe 程序运行效果，如图2-3 所示。图 2-3 “字幕滚动”程序运行效果4请参考Design.exe 程序的运行结果，新建一个工程，完成“改变字号”程序设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下

8、：（1）窗体的标题为“改变字号”，固定边框。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 25 页 - - - - - - - - - （2）窗体的下部有一个水平滚动条Hscroll1 ，它的取值范围为12，72。（3）窗体的上部有一个标签Label1, 标题为“心想事成” ，格式设置为在窗体中水平居中对齐。（4）水平滚动条的上有一个标签Label2, 标题为“字号” ，标签的旁边有一个文本框Text1,文字内容为“ 12” ，Text1 最多接受两个字符。（5）改变滚

9、动条可以控制标签文字的大小，并同时在文本框Text1 中显示标签文字的大小改变后的字号。（6）在文本框Text1 中输入一个属于12，72的两位整数后，也可以改变标签文字的大小，并同时调整水平滚动条的滚动框位置；如果输入的数据不在上述范围内，则不起作用（要求用Text1的 Change 事件实现）。（7）要求以上两种改变字号的操作要保持标签Label1 在窗体中水平居中。（8）其他界面设计参考Design.exe 程序运行效果，如图2-4 所示。图 2-4 “改变字号”程序运行效果5请参考Design.exe 程序的运行结果，新建一个工程，完成“字幕闪烁”程序设计。将工程文件以 Design.

10、Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“字幕闪烁”，固定边框。（2）在属性窗口中将标签(Label1) 的标题设为 “祝您考试成功” ，字体设置为 “宋体”、 字形为“粗体” 、大小为“二号” 、文字颜色为“红色”。格式设置为在窗体中水平居中对齐。（3）单击“开始”按钮，标签文字在定时器控制下自动交替以红兰两种颜色显示。同时“开始”按钮变为“停止”按钮。（4）单击“停止”按钮，标签文字停止闪烁。同时，“停止”按钮变为“开始”按钮。（5）定时器（ Timer1 ）的时间间隔为0.3 秒。（6）其他界面设计参考Design.exe 程序运行效果

11、，如图2-5 所示。图 2-5 “字幕闪烁”程序运行效果6请参考Design.exe 程序的运行结果，新建一个工程，完成“图片欣赏”程序设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“图片欣赏”，固定边框。（2）窗体上有驱动器列表框（Drive1 ） 、目录列表框（Dir1 ）和文件列表框（File1）三个控件，要求三个控件能够联动。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 25 页 -

12、 - - - - - - - - （3）窗体的右半部有一个图像框Image1，将它的Stretch 属性设置为True。（4）设置文件列表框只显示*.bmp 和*.jpg 类型的图片文件。（5）单击文件列表框上的图片文件名时，图片显示在图像框中。（6）其他界面设计参考Design.exe 程序运行效果，如图2-6 所示。图 2-6 “图片欣赏”程序运行效果7请参考Design.exe 程序的运行结果，新建一个工程，完成“拨号盘”程序设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“拨号盘”，固定边框。（2）窗体的上边

13、有一个文本框Text1，设置为最多接受10 个字符； Font；宋体、粗体、三号；文字颜色为兰色。（3）用命令按钮数组Command1(0)Command1(9) 构成数字键， 数字键标题正好和命令按钮数组的下标一致。单击数字键按钮，将拨号的内容显示在文本框中。（4）单击“重拨”按钮（Command2 ） ，再现原来的拨号过程；（提示：再现过程由定时器实现）。（5）定时器（ Timer1 ）的时间间隔为0.5 秒。（6）其他界面设计参考Design.exe 程序运行效果，如图2-7 所示。图 2-7 “拨号盘”程序运行效果8请参考Design.exe 程序的运行结果，新建一个工程，完成“作图”

14、程序设计。将工程文件以Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“作图”，固定边框。（2）窗体的右边是一个图片框Picture1，用于显示图形。（3）单击“坐标系”按钮（Command1） ，将图片框的坐标系统设置为原点在中央，X 轴-10 ，10，Y 轴-10 ，10，并在图片框中画出该坐标系统示意图。（4）单击“扇形”按钮（Command2） ，在图片框中画一个圆心在原点，半径为5，圆周为红色，线宽为 2，内部为绿色，起始角为 /6，终止角为5/6 的扇形。（5）单击“结束”按钮（Command3） ，程序结束运行，（6）其他

15、界面设计参考Design.exe 程序运行效果，如图2-8 所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 25 页 - - - - - - - - - 图 2-8 “作图”程序运行效果9请参考Design.exe 程序的运行结果，新建一个工程，完成“反弹球”程序的设计。将工程文件以 Design.vbp 、窗体文件以Design.frn 保存到考生目录下，具体要求如下：（1）窗体的标题为“反弹球”，固定边框。（2）设计两个菜单项，nnustart 的标题为“启动”

16、 ，nnustop 的标题为“停止” 。（3）在窗体中引入一个形状控件Shapel，形状为圆，贺半径为500Twios, 填充色为红色。（4）第一次单击菜单“启动”，圆球先向右上角方向运动，碰壁后改变方向。每年时间间隔水平方向改变量bx 和垂直方向改变量by 都是 100Twips 。（5）单击菜单“停止” ，圆球停止运动。再单击菜单“启动”，圆球继续运动。（6）定时器（ timerl ）的时间间隔为0.1 秒。（7）其他界面设计参考Design.exe 程序运行效果，如图2-9 所示。图 2-9 “反弹球”程序运行效果10请参考 Design.exe 程序的运行结果，新建一个工程，完成“健康

17、称”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“健康称”，固定边框。（2）窗体的左边有两个标签，Label1 的标题为“身高” 、Label2 的标题为“体重” ；它们的旁边分别有两个文本框，Text1 用于输入身高、Text2 用于输入体重；在文本框的右边有两个标签，Label3 的标题为“ cm” ，Label4 的标题为“ kg” 。（3）将两个文本框文字对齐方式均设置为右对齐，最多接受3 个字符。（4）两个文本框均不接受非数字键。（5）单击“健康状况”按钮(Command1) ，根据计算公式将相应

18、的提示信息显示在标签Label5中。计算公式为：标准体重=身高 -105；体重高于标准体重*1.1 为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9 为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。（6）其他界面设计参考Design.exe 程序运行效果，如图2-10 所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 25 页 - - - - - - - - - 图 2-10 “健康称”程序运行效果11请参考Design.exe 程序的运行

19、结果，新建一个工程，完成“电子钟”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“电子钟”，固定边框。（2）设计两个定时器，Timer1 用于显示系统时间，时间间隔为一秒；Timer2 用于判断闹钟时间，时间间隔为0.5 秒， Timer2 设置为不可用。（3）窗体的上半部是标签Label1，用于显示时间，设置Label1 的 Font 为：宋体、粗体、二号，背景白色，文字居中对齐，固定边框。（4）窗体的下半部有一个标签Label2，标题为“闹钟时间：” ；Label2 的右边是文本框Text1。（5）在文本

20、框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2 ，如果Label1显示的时间超过那种时间，则标签Label1 的背景色按红白两色交替变换。（6）其他界面设计参考Design.exe 程序运行效果，如图2-11 所示。图 2-11 “电子钟”程序运行效果12请参考 Design.exe 程序的运行结果，新建一个工程，完成“改变大小”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“改变大小”，固定边框。（2）窗体上引入一个红色的圆形形状控件（Shape1） ，圆的直径为3400Twips 。（3

21、）窗体的下面有一个水平滚动条Hscroll1 ，将它的最大值设置为与圆的直径相同，初始值为最大值， SmallChange 和 LargeChange 均为 100Twips 。（4） 水平滚动条的下面有两个标签控件，Label1 的标题为“圆直径为： ” ， Label2 的标题为“3400 ” ，两个标签均为固定边框。（5）改变滚动条的值可以控制圆形的直径，同时在标签Label2 中动态显示圆形的直径。（6）要求圆形直径在变化时要保持圆心位置不变。（7）其他界面设计参考Design.exe 程序运行效果，如图2-12 所示。名师资料总结 - - -精品资料欢迎下载 - - - - - -

22、- - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 25 页 - - - - - - - - - 图 2-12 “改变大小”程序运行效果13请参考 Design.exe 程序的运行结果，新建一个工程，完成“点餐”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“点餐”，固定边框。（2）窗体上有一个框架Frame1，标题为“菜单” 。框架内有复选框数组提供选择三种套餐，Check1(0) 的标题为“儿童套餐13 元” ，Check1(1) 的标题为“标准套餐1

23、8 元” ，Check1(2) 的标题为“商务套餐25 元” 。框架的右边有一个标签Label1 ，标题为“份数” ，标签的下面是文本框控件数组， 从上到下依次为Text1(0) 、Text1(1) 和 Text1(2) ，文本框中都没有内容，并且都不能使用。（3）在复选框中进行了选择操作后，相应的文本框才能输入并自动获得焦点；如果取消选择，那么相应的文本框内容立即清空并且不能使用了。（4）要求文本框在输入时只接受数字键。（5）单击“确定”按钮(Command1) ，统计点餐的金额，并用消息框显示出来。（6）其他界面设计参考Design.exe 程序运行效果，如图2-13 所示。图 2-13

24、“点餐”程序运行效果14请参考 Design.exe 程序的运行结果，新建一个工程，完成“编辑”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“编辑”，固定边框。（2）窗体是上半部是一个文本框Text1，可以多行显示文字。（3）文本框的下面从左到右依次排列4 个命令按钮（Command1、Command2、Command3和Command4） ，标题分别为“复制”、 “剪切”、 “粘贴”和“删除” 。（4）编写各命令按钮的单击事件，分别实现“复制”、 “剪切”、 “粘贴”和“删除”功能。（5）其他界面设计参考

25、Design.exe 程序运行效果，如图2-14 所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 25 页 - - - - - - - - - 图 2-14 “编辑”程序运行效果15请参考 Design.exe 程序的运行结果，新建一个工程，完成“字体设置”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“字体设置”，固定边框。（2）窗体的上边有一个文本框Text1，文字内容为“心想

26、事成”。（3） 文本框下面的左边有一个标签Label1 ， 标题为“字体：” ， 标签下面是一个简单组合框Combo1 ，有三项内容，分别是“宋体、黑体、楷体-GB2313 ” ，单击时文本框的字体进行设置。（4） 文本框下面的右边有一个标签Label2， 标题为 “大小：” ， 标签下面是一个简单组合框combo2，有八项内容，分别是“10、12、16、20、24、36、48、 72” ，单击时对文本框的文字大小进行设置。（5）其他界面设计参考Design.exe 程序运行效果，如图2-15 所示。图 2-15 “字体设置”程序运行效果16请参考 Design.exe 程序的运行结果，新建一

27、个工程，完成“倒计时”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“倒计时”，固定边框。（2）窗体的左边有一个框架Frame1，标题为“选择时间”；框架内有一组单选钮控件数组，从上到下为Option1(0) 、Option1(1) 和 Option1(2) ，标题分别为“1 分钟”、 “5 分钟”和“ 10 分钟，默认选择为1 分钟。（3）窗体的右边有一个标签Label1，用于显示倒计时的剩余的时间，标签 Label1 设置为： 宋体、粗体、三号，文字居中对齐，固定边框。（4）单击“开始计时”按钮(Comm

28、and1) 后，程序根据选择的时间开始倒计时，同时命令按钮变为不可使用，框架也不可使用。（5）但当剩余时间到0 分 0 秒时，改为显示“时间到！” 。（6）定时器Timer1 的时间间隔为1 秒。（7）其他界面设计参考Design.exe 程序运行效果，如图2-16 所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 25 页 - - - - - - - - - 图 2-16 “倒计时”程序运行效果17请参考 Design.exe 程序的运行结果，新建一个工程，完成“替

29、换”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“替换”，固定边框。（2）窗体的上半部是一个文本框Text1，可以多行显示文字。（3）文本框Text1 的下面有一个标签Label1 ，标题为“查找： ” ，标签 Label1 的右边是一个文本框 Text2，可以在Text2 中输入查找内容。（4）标签Label1 的下面有一个标签Label2 ，标题为“替换为： ” ，标签Label2 的右边是一个文本框 Text3，可以在Text3 中输入替换为的内容。（5）单击“替换”按钮(Command1) ，对文本

30、框Text1 中与查找内容匹配的文字进行替换操作。（6）其他界面设计参考Design.exe 程序运行效果，如图2-17 所示。图 2-17 “替换”程序运行效果18请参考 Design.exe 程序的运行结果，新建一个工程，完成“偶数迁移”程序的设计。将工程文件以 Design.Vbp 、窗体文件以Design.frm 保存到考试目录下，具体要求如下：（1）窗体的标题为“偶数迁移”，固定边框。（2）窗体的左边有一个标签Label1，标题为“两位正整数：” ，标签的下面是一个列表框List1 。（3）窗体的右边有一个标签Label2，标题为“偶数： ” ，标签的下面是一个列表框List2 。（

31、4）单击“产生”按钮（Command1） ，计算机产生10 个两位正整数放入列表框List1 中。同时清空列表框List2 中的内容。（5）单击“ -”按钮（ Command2） ，将列表框List1 中所有偶数迁移到列表框List2 中。（6）其他界面设计参考Design.exe 程序运行效果，如图2-18 所示。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 25 页 - - - - - - - - - 图 2-18 “偶数迁移”程序运行效果（二） 程序调试程序调试题

32、的操作步骤是：（1）建立一标准EXE工程，将这一模块程序添加到工程中。如果你是通过双击标准模块程序Model1.BAS 进入 Visual Basic 系统的，则首先需要添加一个窗体模块。（2）将该标准模块程序Model1.BAS中代码的指定的错误修改正确或在指定的空位填上适当的语句，并在窗体模块中编写代码（常常写在窗体的Click() 事件中）调用标准模块中的Sub 过程或用户自定义函数（如果在标准模块程序Model1.BAS有多个过程或函数，要注意调用的先后顺序，否则得不到正确结果），调试运行程序，使其能输出正确结果。（3）按试题要求保存工程。如果你的计算机中没有模块程序Model1.BA

33、S ，你必需先自己新建一工程，再添加一个默认标准模块，将题目所附的参考程序输入（可复制粘贴），将其中用 -n- （n 为 1，2， 3，4，5）部分删除后改为合适的内容或将用* 错误 n * 标示的下一语句中的错误改正，然后调试运行程序使其达到该题目的要求。1已有一模块文件Modify.Bas 。该模块中的Summary 过程是用于计算1!+2!+.+20! ，并打印出计算结果，但不完整，请在横线上填入必要的内容，使其完整。Modify.Bas 模块中的nFactor 函数过程用于计算n!。程序如下：Public Function nFactor(ByVal n As Integer) As

34、Double Dim i As Integer Dim temp As Double -1- For i = 1 To n temp = temp * i Next i nFactor = -2- End Function Public Sub summary() Dim sum As Double Dim i As Integer Dim n As Integer n = 20 For i = 1 To n sum = sum + -3- 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - -

35、 第 10 页，共 25 页 - - - - - - - - - Next i Form1.Print sum= & -4- End Sub 2已有一模块文件Modify.Bas 。该模块中的Calculate 过程是产生100 个0，99范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6， 7，8，9， 0 的数的个数并打印出来。程序如下：Public Sub calculate() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer 产生 100 个0，99范围内

36、的随机整数每行 10 个打印出来For i = 1 To 100 * 错误 1 * a(i) = Rnd * 100 If a(i) 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If i Mod 10 = 0 Then Form1.Print Next i 统计个位上的数字分别为1，2，3，4， 5，6，7，8，9，0 的数的个数并将统计结果保存在数组x(1),x(2),.,x(10) 中，将统计结果打印出来For i = 1 To 100 * 错误 2 * p = Int(a(i) /

37、 10) 求个位上的数字If p = 0 Then p = 10 * 错误 3 * x(p) = x(p) - 1 Next i Form1.Print 统计结果 For i = 1 To 10 p = i If i = 10 Then p = 0 * 错误 4 * Form1.Print 个位数为 + Str(p) + 共 + Str(x(p) + 个 Next i End Sub 3.已有一模块文件Modify.Bas 。该模块中的Findat 过程是用于在一个字符串变量中查找at，并用消息框给出查找结果的报告：没有找到或找到的个数，但不完整， 请在横线上填入必要的内容，使其完整。名师资料

38、总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 25 页 - - - - - - - - - 程序如下：Public Sub Findat() 在字符串str1 中查找 at Dim str1 As String Dim length As Integer 字符串长度Dim sum As Integer 查到的个数Dim i As Integer str1 = InputBox( 请输入一个字符串) length = -1- i = 1 sum = 0 Do While i R

39、 Form1.Print 太大了 ,继续猜 ! 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 25 页 - - - - - - - - - Case Else Form1.Print 太小了 ,继续猜 ! End Select times = times + 1 * 错误 3 * Loop While times 5 If times 5 Then Form1.Print 猜数失败 ,游戏结束 ! * 错误 4 * Form1.Print 正确答案为 & Str(X)

40、 End If End Sub 5.已有一模块文件Modify.Bas 。 该模块中的ArmstrongNumber过程是用于求出1-999 之间所有的Armstrong 数，并打印出来， 但不完整， 请在横线上填入必要的内容，使其完整。 所谓 Armstrong数是指一个数等于它每位上数字的立方和。例如：371=33+73+13 ， 那么 371 就是一个Armstrong数。程序如下：Public Sub ArmstrongNumber() Dim armstrong As Integer Dim i As Integer Dim hundred As Integer 百位上的数字Dim

41、ten As Integer 十位上的数字Dim one As Integer 个位上的数字For i = 1 To 999 hundred = -1- ten = -2- one = -3- If -4- Then Form1.Print i; is armstrong number End If Next i End Sub 6.已有一模块文件Modify.Bas 。该模块中的CountTo60 过程是用于从一堆一分、二分、五分的硬币中取出20 枚，使其总值为60 分，要求输出取法的数量及每一种取法的一分、二分、 五分的个数。程序如下：Public Sub CountTo60() 从一堆一

42、分、二分、五分的硬币中取出20 枚，使其总值为60 分输出取法的数量及每一种取法的一分、二分、五分的个数Dim one As Integer 一分硬币个数Dim two As Integer 二分硬币个数Dim five As Integer 五分硬币个数名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 25 页 - - - - - - - - - Const n = 20 总数 20 枚Dim k As Integer 取法数量k = 0 For one = 1 To

43、n * 错误 1 * For two = one + 1 To n five = n - one - two * 错误 2 * If one + two + five = 60 Then k = k + 1 Form1.Print one=; one; two=; two; five=; five End If * 错误 3 * Next one * 错误 4 * Next two Form1.Print k=; k End Sub 7.已有一模块文件Modify.Bas 。该模块中的TJ 过程是将一批数据中小于零的数及它们的积打印出来，但不完整，请在横线上填入必要的内容，使其完整。Modif

44、y.Bas 模块中的SCSJ 过程是产生数据，数据的取值范围为-10 10 之间的随机数。程序如下：Private Const n = 10 Private a(1 To n) As Integer TJ 过程是将一批数据中小于零的数及它们的积打印出来数据由 SCSJ 过程产生，数据的取值范围为-10 10 之间的随机整数Public Sub TJ() Dim i As Integer Dim t As Single - 1 - For i = 1 To 10 If - 2 - Then t = t * a(i) End If Next i Form1.Print T=; t End Sub

45、Public Sub SCSJ() Randomize Form1.Print 原始数据 Dim i As Integer 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 25 页 - - - - - - - - - Dim j As Integer For i = 1 To n 随机产生0 或 1，为 0 时取负，为1 时取正j = Int(Rnd * 2) If - 3 - Then J = -1 a(i) = j * Int(Rnd * (n + 1) Form1

46、.Print a(i); Next i Form1.Print End Sub 8.已有一模块文件Modify.Bas 。 该模块中的Money 过程是用于统计一个有7 个工作人员的餐厅发工资所需的100 元、 50 元、 10 元、 5 元和 1 元的票面数，但不完整，请在横线上填入必要的内容，使其完整。Modify.Bas 模块中的SalaryData 过程是给出7 个员工的工资。 （工资单位是元）程序如下：Dim salary(7) As Integer Public Sub Money() Dim hundred As Integer, totalhundred As Integer

47、100元票面数量、总数量Dim fifty As Integer, totalfifty As Integer 50元票面数量、总数量Dim ten As Integer, totalten As Integer 10元票面数量、总数量Dim five As Integer, totalfive As Integer 5元票面数量、总数量Dim one As Integer, totalone As Integer 1元票面数量、总数量Dim totalsalary As Integer 工资总计Dim i As Integer, temp As Integer totalhundred =

48、0 totalfifty = 0 totalten = 0 totalfive = 0 totalone = 0 totalsalary = 0 For i = 1 To 7 temp = -1- hundred = Int(temp / 100) temp = -2- fifty = Int(temp / 50) temp = temp - fifty * 50 ten = Int(temp / 10) temp = temp - ten * 10 five = Int(temp / 5) temp = temp - five * 5 one = -3- totalhundred = tot

49、alhundred + hundred totalfifty = totalfifty + fifty 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 25 页 - - - - - - - - - totalten = totalten + ten totalfive = totalfive + five totalone = totalone + one totalsalary = -4- Next i Form1.Print 共需 100 元 & Str(total

50、hundred) & 张 Form1.Print 共需 50 元 & Str(totalfifty) & 张 Form1.Print 共需 10 元 & Str(totalten) & 张 Form1.Print 共需 5 元 & Str(totalfive) & 张 Form1.Print 共需 1 元 & Str(totalone) & 张 Form1.Print 合计 & Str(totalsalary) & 元 End Sub Public Sub SalaryData() salary(1) = 1398 salary(2) = 1765 salary(3) = 689 salary