[填空題] 下面的程序是由鼠標事件在窗體上畫圖，如果按下鼠標將可以畫圖，雙擊窗體可以清除所畫圖形。補充完整下面的程序。首先在窗體層定義如下變量： Dim Pa
2021-07-20
[填空題] 下面的程序是由鼠標事件在窗體上畫圖，如果按下鼠標將可以畫圖，雙擊窗體可以清除所畫圖形。補充完整下面的程序。首先在窗體層定義如下變量：
Dim PaIntStart As Boolean
編寫如下事件過程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouscDown(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
[13]
End Sub
Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
If PaintStart Then
PSet(X，Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
[14]
End Sub
Private Sub Form_DblClick()
[15]
End Sub
正確答案：Cls
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。