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

【答案解析】[解析] 按下鼠标时，首先触发MouseDown事件，在MouseDown事件中将模块级变量cmdmave设为真值。假如保持鼠标键按下并移动鼠标，触发MouseMove事件。在MouseMove事件中，由于条件语句的条件为真，所以每当鼠标移到一个位置(x，y)，就在坐标(x，y)处绘制一个点，连续多个点就构成了一条鼠标移动的轨迹线。当松开鼠标时，触发MouseUp事件，在此事件过程中将emdmave设置为假值。由于MouseMove事件过程中是在cmdmave为真值时才画点，所以松开鼠标时，停止画线。本题的答案为D。