(9) 改變驅(qū)動(dòng)器列表框的Drive屬性值將引發(fā) 【12】 事件。

　　正確答案: 1.(Change)

　　(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)