[單項(xiàng)選擇題] 有一個(gè)名稱為Form1的窗體，上面沒有控件，沒有以下程序(其中方法Pset(X,Y)的功能是在坐標(biāo)X,Y處畫一個(gè)點(diǎn))：

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．每按下鼠標(biāo)鍵一次，在鼠標(biāo)所指位置畫一個(gè)點(diǎn)

B．按下鼠標(biāo)鍵，則在鼠標(biāo)所指位置畫一個(gè)點(diǎn)；放開鼠標(biāo)鍵，則此點(diǎn)消失

C．不按鼠標(biāo)鍵而拖動(dòng)鼠標(biāo)，則沿鼠標(biāo)拖動(dòng)的軌跡畫一條線

D．按下鼠標(biāo)鍵并拖動(dòng)鼠標(biāo)．則沿鼠標(biāo)拖動(dòng)的軌跡畫一條線，放開鼠標(biāo)鍵則結(jié)束畫線

D

Pset(X,Y)函數(shù)是在X、Y處畫出一個(gè)點(diǎn)，F(xiàn)orm_MouseDown函數(shù)中只有一個(gè)cmdmave=True，即當(dāng)鼠標(biāo)按下就將cmdmave賦值為True,Form_MouseMove函數(shù)是當(dāng)cmdmave為True時(shí)就執(zhí)行Pset(x,y)函數(shù)，即當(dāng)移動(dòng)鼠標(biāo)且cmdmave=True時(shí)就不斷畫點(diǎn)，即形成一條線；而Form_MouserUp函數(shù)是將cmdmave賦值為false,即松開鼠標(biāo)時(shí)不再畫點(diǎn)。故整個(gè)程序的功能是按下鼠標(biāo)鍵并拖動(dòng)鼠標(biāo)，沿鼠標(biāo)拖動(dòng)的軌跡畫一條線，放開鼠標(biāo)鍵就結(jié)束畫線。