[问答题] 在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件

[问答题] 在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件

[问答题] 在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。

要求：请在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。

[题目提供的源程序]

Dim stepy As Integer ’纵向移动增量

Dim stepx As Integer ’横向移动增量

Const LEFT_BUTTON=1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Dim x0 As Integer, y0 As Integer, a As Single, radius As Integer

radius=Shape1.Width/2 ’圆的半径

If Button=LEFT_BUTTON Then

x0=Shape1.Left+radius ’圆心的x坐标

y0=Shape1.Top+radius’圆心的y坐标

If x=x0 Then

stepy=Sgn(y-y0)*50

stepx= (1)

Else

a=(y-y0)/(x-x0)’斜率

stepx=Sgn(x-y0)*50

(2) =a * stepx

If Abs(stepy)＞Abs(stepx) Then

stepy=Sgn(y-y0)*50

stepx=stepy/a

End If<

正确答案：

[ *** 作步骤] 第1步：打开工程文件sjt5.vbp。 第2步：分析并编写程序。 第3步：调试、运行并保存程序。 [1]Sgn(x-x0)*50 [2]stepy [3]Timer1.Enabled [4]Timer1.Enabled [5]stepy

参考解析：

可以使用控件的Move方法或改变其Left和Top属性来实现控件的移动。本题中首先根据鼠标单击位置和实心圆当前位置之间的关系决定移动的步长stepx和stepy，可能是直线运行，也可能是斜线运动；移动步长可为正，也可能为负。其中用到了一个关键函数sgn()，sgn(x)函数可以检测x的正负，如果x为正数，则函数值为1；如果x为负数，则函数值为-1；如果x为0，则函数值为0。例如：在圆的右侧单击时，x＞x0，sgn(x-x0)=1，计算出stepx的值为正，圆会向右移动。 具体的移动由Timer1_Timer事件过程完成，Form_MouseDown事件过程负责控制Timer1是否有效以及Stepx和Stepy的计算。