2007年9月全国计算机等级考试二级VB模拟试题(5)及答案

(9) 改变驱动器列表框的Drive属性值将引发 【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)