问答题

在考生文件夹下有一个工程文件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
End If
(3) =True
Else
(4) =False
End If
End Sub
Private Sub Timer1_Timer()
Shape1.Move Shape1.Left+stepx, Shape1.Top+ (5)
End Sub