2．【解析】按要求打开工程文件，如果没有窗体，可通过“视图”菜单的“对象窗口”命令或者双击工程窗口中的kt43.frm文件名来打开。
(1)打开代码窗口，共有3处需要填写。
(2)分析代码，填入正确语句。
①语句HS1.Value＝?+n是将属性值增加，即：HS1.Value＝HS1.Value+n
②语句If(HS1.Value－HS1.Min)>?(n)Then是与负数的绝对值比较，即：If(HS1.Value－HS1.Min)>Abs(n)Then
③如果输入数值过小，则不应该改变原来的属性值，所以语句HS1.Value＝?应改为：HS1.Value＝HS1.Min
(3)完整的程序如下：
(4)需要分别验证输入正常数据、数据太大和太小3种情况。
(5)正确保存工程和窗体文件。
三、综合应用题
【解析】本题考查单选按钮、文本框和命令按钮的综合应用。按要求打开工程文件，如果没有窗体，可通过“视图”菜单中的“对象窗口”命令或者双击工程窗口的kt5.frm文件名来打开。
(1)打开代码窗口，共有4处需要填写。
(2)研读 Form_Load()事件处理程序，窗体加载时，Cmd2按钮不可用。通过此可知应使用语句：Cmd2.EnabIed＝False
(3)研读FunctionOut(n As Integer)程序，For循环用来计算阶乘，所以应填写：t=t*i
(4)研读Cmd1_Click()事件处理程序，If语句有两处需要改写：
If Op1(i)＝True Then
't＝Val(Left$(Opi(i).Caption，?))
'Text1.Text＝?(t)
End If
该段程序功能是将选中的单选按钮标题上的数字取出来，即将其赋给变量t，然后调用函数Out计算t的阶乘，并显示在文本框中。即：
t＝Val(Left$(Op1(i).Caption，2))
Text1.Text＝Out(t)
(5)完整的程序如下：
责任编辑：小草
