2009年9月計算機等考二級VB模擬題及解析(6)

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

　　正確答案: 1.(Change)

　　(10) 下面程序是由鼠標事件在窗體上畫圖，如果按下鼠標將可以畫圖，雙擊窗體可以清除所畫圖形。補充完整下面的程序。

　　首先在窗體層定義如下變量：

　　Dim PaintStart As Boolean

　　編寫如下事件過程：

　　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)