单选题
有一个名称为Form1的窗体，上面没有控件，没有以下程序(其中方法Pset(X,Y)的功能是在坐标X,Y处画一个点)：
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
cmdmave=True
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
If cmdmave Then
Form1.Pset(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
cmdmave=False
End Sub
此程序的功能是( )
题目答案
D
您的答案
答案解析
Pset(X,Y)函数是在X、Y处画出一个点，Form_MouseDown函数中只有一个cmdmave=True，即当鼠标按下就将cmdmave赋值为True,Form_MouseMove函数是当cmdmave为True时就执行Pset(x,y)函数，即当移动鼠标且cmdmave=True时就不断画点，即形成一条线；而Form_MouserUp函数是将cmdmave赋值为false,即松开鼠标时不再画点。故整个程序的功能是按下鼠标键并拖动鼠标，沿鼠标拖动的轨迹画一条线，放开鼠标键就结束画线。