(10) 下面程序是由鼠標(biāo)事件在窗體上畫(huà)圖，如果按下鼠標(biāo)將可以畫(huà)圖，雙擊窗體可以清除所畫(huà)圖形。補(bǔ)充完整下面的程序。
首先在窗體層定義如下變量：
Dim PaintStart As Boolean
編寫(xiě)如下事件過(guò)程：
Private Sub Form_Load()
 DrawWidth=2
 ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(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
正確答案:  1.(PaintStart = True) 2.(PaintStart = False) 3.(Cls)

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問(wèn)：考試吧計(jì)算機(jī)等級(jí)考試欄目