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

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

　　（1）在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1， 还有一个名称为Label1的标签，和其他一些控件（如图 1所示）。在运行时，若用鼠标左键单击圆的边线，则指针指

　　向鼠标单击的位置（如图 2所示）；若用鼠标右键单击圆的边线，则指针恢复到起始位置（如图 1所示）；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。

　　文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？ 改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上（ 判断结果略有误差 ），是则返回True，否则返回False。 符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。

　　注意：

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

　　解题思路：

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

　　由于所提供的窗体程序不完整，在鼠标单击的Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)事件过程中，有四处地方需要修改。

　　1) 将语句

　　’Line1.Y2 = ?

　　改为

　　Line1.Y2 = Y

　　2) 将语句

　　’Line1.X2 = Line1.?

　　改为

　　Line1.X2 = Line1.X1

　　3) 将语句

　　’Line1.Y2 = y0 - ?

　　改为

　　Line1.Y2 = y0 - 750

　　4) 将语句

　　’? = "鼠标位置不对"

　　改为

　　Label1 = "鼠标位置不对"

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

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

　　（2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n（ 要求：8<=n<=12）；单击“计算”按钮，则计算1!+2!+3!+ … +n!，并将计算结果显示在文本框中；单击

　　“存盘”按钮， 则把文本框中的结果保存到考生目录下的 out4.dat文件中。

　　文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容，并编写“计算”按钮的Click事件过程。

　　注意：

　　不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。

　　解题思路：

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

　　由于所提供的窗体程序不完整，需添加事件过程。

　　单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　Dim s As Long, k As Integer

　　s = 0

　　For k = 1 To n

　　s = s + f(k)

　　Next

　　Text1 = s

　　End Sub

　　在“输入数据”按钮的Private Sub Command1_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　’If n > ? Or n < 8 Then

　　改为

　　If n > 12 Or n < 8 Then

　　在函数的Function f(n As Integer) As Long事件过程中，有二处地方需要修改。

　　1) 将语句

　　’s = ?

　　改为

　　s = 1

　　2) 将语句

　　’f = ?

　　改为

　　f = s

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

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