[填空题]下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下而的程序。 首先在窗体层定义如下变量： 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) 　　PaintStart=True 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) 　______ End Sub Private Sub Form-DblClick（　） 　　Cls End Sub

[填空题]下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
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_Db1Click（　）
　　　【15】　
End Sub

[填空题]下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量： 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) PaintStart=True 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) End Sub Private Sub Form_DblClick（　） Cls End Sub

[单项选择]编写以下两个事件过程，在一般情况下(即不按住Shift键和锁定大写)，运行程序，如果按A键，则程序的输出是 ______。
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private SubForm_KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
A. A
B. a
C. A
D. a

[单项选择]在Activate事件过程中，写入下面的程序：
Prirate Sub Form_Activate（　）
Dim S As String，a As String，b As String
a="*"：b="$"
For i=1 To 4
If i/2=Int(i/2) Then
S=String(Len(a)+i,b)
Else
S=String(Len(a)+i,a)
End If
Print S：
Next i
End Sub
运行程序后，显示的结果是( )。
A. $$***$$$$*****
B. *$$**$$***$$$****$$$$
C. **$$$****$$$$$
D. $*$$**$$$***$$$$****

[简答题]下面程序是关于类的继承的用法。阅读下面程序，根据程序中的注释在每一条横线处填写一个语句，使程序的功能完整，且运行程序后的输出结果为：
I am parentclass!
I am childclass!
I am childclass!
注意：请勿改动main（　）主方法和其他已有的语句内容，仅在下划线处填入适当的语句。
class Parent
void printMe（　）
System. out. println( "I am parentclass ! ");


class Child extends Parent
void printMe（　）
System. out. println( "I am childclass! ")

void printAll（　）
______. printMe（　）; //调用父类的方法
______. printMe（　）; //调用本类的方法
printMe ( );


public class TestJieCheng
public static void main(String args[])
______
myC. printAll（　）;

[单项选择]下面的事件中( )不是引起中断的事件。
A. 掉电
B. 打印完毕
C. 程序出错
D. 除以O出错

[填空题]阅读以下函数说明和Java代码，
[说明]
现要编写一个画矩形的程序，目前有两个画图程序：DP1和DP2，DP1用函数draw_a_line(x1，y1，x2，y2)画一条直线，DP2则用drawline(x1，x2，y1，y2)画一条直线。当实例化矩形时，确定使用DPI还是DP2。
为了适应变化，包括“不同类型的形状”和“不同类型的画图程序”，将抽象部分与实现部分分离，使它们可以独立地变化。这里，“抽象部分”对应“形状”，“实现部分”对应“画图”，与一般的接口(抽象方法)与具体实现不同。这种应用称为Bridge(桥接)模式。图7-1显示了各个类间的关系。
[图7-1]
[*]
这样，系统始终只处理3个对象：Shape对象、Drawing对象、DP1或DP2对象。以下是JAvA语言实现，能够正确编译通过。
[Java代码]
//DP1．Java文件
public class DPI
static public void draw_a_line(double x1，double y1，
double x2，double y2)
//省略具体实现


//DP2．java文件
public class DP2
static public void drawline(double x1，double y1，
double x2，double y2)
//省略具体实现


//Drawing．java文件
(1) public class Drawing
abstract public void drawLine(double x1，double y1，double x2，double y2)；

//V1Drawing．java文件
public class V1Drawing extends Drawing
public void drawLine(double x1，double y1，double x2，double y2) <

[单项选择]窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程：
Private Sub Option1_Click(Index As Integer)
…
End Sub
下面关于此过程的参数Index的叙述中正确的是( )。
A. Index为1表示单选按钮被选中，为0表示未选中
B. Index的值可正可负
C. Index的值用来区分哪个单选按钮被选中
D. Index表示数组中单选按钮的数量

[简答题]简述在桌面上建立“画图”程序的快捷方式的方法。