[单项选择题] 有一个名称为Form1的窗体，上面没有控件，没有以下程序(其中方法Pset(X,Y)的功能是在坐标X,Y处画一个点)： Dim cmdmave

[单项选择题] 有一个名称为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

此程序的功能是( )

A．每按下鼠标键一次，在鼠标所指位置画一个点

B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失

C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

D．按下鼠标键并拖动鼠标．则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

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,即松开鼠标时不再画点。故整个程序的功能是按下鼠标键并拖动鼠标，沿鼠标拖动的轨迹画一条线，放开鼠标键就结束画线。