图2-10 “健康称”程序运行效果
11．请参考Design.exe程序的运行结果，新建一个工程，完成“电子钟”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下： （1）窗体的标题为“电子钟”，固定边框。
（2）设计两个定时器，Timer1用于显示系统时间，时间间隔为一秒；Timer2用于判断闹钟时间，时间间隔为0.5秒，Timer2设置为不可用。
（3）窗体的上半部是标签Label1，用于显示时间，设置Label1的Font为：宋体、粗体、二号，背景白色，文字居中对齐，固定边框。
（4）窗体的下半部有一个标签Label2，标题为“闹钟时间：”；Label2的右边是文本框Text1。 （5）在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2，如果Label1显示的时间超过那种时间，则标签Label1的背景色按红白两色交替变换。 （6）其他界面设计参考Design.exe程序运行效果，如图2-11所示。
图2-11 “电子钟”程序运行效果
12．请参考Design.exe程序的运行结果，新建一个工程，完成“改变大小”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下： （1）窗体的标题为“改变大小”，固定边框。
（2）窗体上引入一个红色的圆形形状控件（Shape1），圆的直径为3400Twips。
（3）窗体的下面有一个水平滚动条Hscroll1，将它的最大值设置为与圆的直径相同，初始值为最大值，SmallChange和LargeChange均为100Twips。
（4）水平滚动条的下面有两个标签控件，Label1的标题为“圆直径为：”，Label2的标题为“3400”，两个标签均为固定边框。
（5）改变滚动条的值可以控制圆形的直径，同时在标签Label2中动态显示圆形的直径。 （6）要求圆形直径在变化时要保持圆心位置不变。
（7）其他界面设计参考Design.exe程序运行效果，如图2-12所示。
图2-12 “改变大小”程序运行效果
13．请参考Design.exe程序的运行结果，新建一个工程，完成“点餐”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下： （1）窗体的标题为“点餐”，固定边框。
（2）窗体上有一个框架Frame1，标题为“菜单”。框架内有复选框数组提供选择三种套餐，Check1(0)的标题为“儿童套餐13元”，Check1(1)的标题为“标准套餐18元”，Check1(2)的标题为“商务套餐25元”。框架的右边有一个标签Label1，标题为“份数”，标签的下面是文本框控件数组，从上到下依次为Text1(0)、Text1(1)和Text1(2)，文本框中都没有内容，并且都不能使用。 （3）在复选框中进行了选择操作后，相应的文本框才能输入并自动获得焦点；如果取消选择，那么相应的文本框内容立即清空并且不能使用了。 （4）要求文本框在输入时只接受数字键。
（5）单击“确定”按钮(Command1)，统计点餐的金额，并用消息框显示出来。 （6）其他界面设计参考Design.exe程序运行效果，如图2-13所示。
图2-13 “点餐”程序运行效果
14．请参考Design.exe程序的运行结果，新建一个工程，完成“编辑”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下： （1）窗体的标题为“编辑”，固定边框。
（2）窗体是上半部是一个文本框Text1，可以多行显示文字。
（3）文本框的下面从左到右依次排列4个命令按钮（Command1、Command2、Command3和Command4），标题分别为“复制”、“剪切”、“粘贴”和“删除”。
（4）编写各命令按钮的单击事件，分别实现“复制”、“剪切”、“粘贴”和“删除”功能。 （5）其他界面设计参考Design.exe程序运行效果，如图2-14所示。
图2-14 “编辑”程序运行效果
15．请参考Design.exe程序的运行结果，新建一个工程，完成“字体设置”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下： （1）窗体的标题为“字体设置”，固定边框。
（2）窗体的上边有一个文本框Text1，文字内容为“心想事成”。
（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程序的运行结果，新建一个工程，完成“倒计时”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下： （1）窗体的标题为“倒计时”，固定边框。
（2）窗体的左边有一个框架Frame1，标题为“选择时间”；框架内有一组单选钮控件数组，从上到下为Option1(0)、Option1(1)和Option1(2)，标题分别为“1分钟”、“5分钟”和“10分钟，默认选择为1分钟。
（3）窗体的右边有一个标签Label1，用于显示倒计时的剩余的时间，标签Label1设置为：宋体、粗体、三号，文字居中对齐，固定边框。
（4）单击“开始计时”按钮(Command1)后，程序根据选择的时间开始倒计时，同时命令按钮变为不可使用，框架也不可使用。
（5）但当剩余时间到0分0秒时，改为显示“时间到！”。 （6）定时器Timer1的时间间隔为1秒。
（7）其他界面设计参考Design.exe程序运行效果，如图2-16所示。
图2-16 “倒计时”程序运行效果
17．请参考Design.exe程序的运行结果，新建一个工程，完成“替换”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下： （1）窗体的标题为“替换”，固定边框。
（2）窗体的上半部是一个文本框Text1，可以多行显示文字。
（3）文本框Text1的下面有一个标签Label1，标题为“查找：”，标签Label1的右边是一个文本框Text2，可以在Text2中输入查找内容。
（4）标签Label1的下面有一个标签Label2，标题为“替换为：”，标签Label2的右边是一个文本框Text3，可以在Text3中输入替换为的内容。
（5）单击“替换”按钮(Command1)，对文本框Text1中与查找内容匹配的文字进行替换操作。 （6）其他界面设计参考Design.exe程序运行效果，如图2-17所示。
图2-17 “替换”程序运行效果
18．请参考Design.exe程序的运行结果，新建一个工程，完成“偶数迁移”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下： （1）窗体的标题为“偶数迁移”，固定边框。
（2）窗体的左边有一个标签Label1，标题为“两位正整数：”，标签的下面是一个列表框List1。 （3）窗体的右边有一个标签Label2，标题为“偶数：”，标签的下面是一个列表框List2。 （4）单击“产生”按钮（Command1），计算机产生10个两位正整数放入列表框List1中。同时清空列表框List2中的内容。
（5）单击“-->”按钮（Command2），将列表框List1中所有偶数迁移到列表框List2中。 （6）其他界面设计参考Design.exe程序运行效果，如图2-18所示。
图2-18 “偶数迁移”程序运行效果
（二） 程序调试
程序调试题的操作步骤是：
（1）建立一标准EXE工程，将这一模块程序添加到工程中。如果你是通过双击标准模块程序Model1.BAS进入Visual Basic系统的，则首先需要添加一个窗体模块。
（2）将该标准模块程序Model1.BAS中代码的指定的错误修改正确或在指定的空位填上适当的语句，并在窗体模块中编写代码（常常写在窗体的Click()事件中）调用标准模块中的Sub过程或用户自定义函数（如果在标准模块程序Model1.BAS有多个过程或函数，要注意调用的先后顺序，否则得不到正确结果），调试运行程序，使其能输出正确结果。 （3）按试题要求保存工程。
如果你的计算机中没有模块程序Model1.BAS，你必需先自己新建一工程，再添加一个默认标准模块，将题目所附的参考程序输入（可复制粘贴），将其中用---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 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----