2. 简单应用（2小题，每题20分，计40分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　（1）在考生目录下有一个工程文件sjt3.vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Combo1的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的？改为正确的内容。

　　注意：

　　不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。

　　由于所提供的窗体程序不完整，单击“添加”命令按钮，即运行Private Sub Command1_Click()事件过程，在该事件过程中，有一处地方需要修改。

　　1) 将语句

　　'Combo1.?

　　改为

　　Combo1.AddItem Text1

　　键盘向文本框输入数字，即运行Private Sub Text1_KeyPress(KeyAscii As Integer)事件过程，在该事件

　　过程中，有二处地方需要修改。

　　1) 将语句

　　'If KeyAscii > 57 Or KeyAscii < ? Then

　　改为

　　If KeyAscii > 57 Or KeyAscii < 48 Then

　　2) 将语句

　　'KeyAscii = ?

　　改为

　　KeyAscii = 0

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt3.vbp、sjt3.frm、sjt3.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt3.vbp文件并运行。

　　（2）在考生目录下有一个工程文件sjt4.vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Text1、Text2的两个文本框，用于接收输入的M和N（要求M<N）。单击名称为Command1、 标题为“计算”的命令按钮，计算M!+(M+1)!+(M+2)!+…+N!之和，并将计算结果显示在标签lblResult中。

　　在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的 ？改为正确的内容。

　　注意：

　　不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。

　　由于所提供的窗体程序不完整，在“计算”按钮的Private Sub Command1_Click()事件过程中，有三处地方需要修改。

　　1) 将语句

　　'For i = ? To n

　　改为

　　For i = m To n

　　2) 将语句

　　't = ?

　　改为

　　t = f(i)

　　3) 将语句

　　's = s + ?

　　改为

　　s = s + t

　　在函数Private Function f(ByRef x As Integer) As Long中，有二处地方需要修改。

　　1) 将语句

　　't = ?

　　改为

　　t = t * i

　　2) 将语句

　　'f = ?

　　改为

　　f = t

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt4.vbp、sjt4.frm、sjt4.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt4.vbp文件并运行。