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

[简答题]下面是一个Applet程序，程序的功能是用鼠标画图。本题是通过单击鼠标后画出一个Java字。请改正程序中的错误(有下划线的语句)，使程序能输出正确的结果。
注意；不改动程序的结构，不得增行或减行。
源程序文件代码清单如下；
import java.awt.*;
import java.awt.event.*;
import java.applet.*;
/*
＜applet code=SimpleHitMouse.java width=800 height=400＞
＜/applet＞
*/
public class SimpleHitMouse implements Applet

private java.util.Vector points=new java.util.Vector（　）;
public void init（　）

addMouseListener(new MouseAdapter（　）

public void mousePressed(MouseEvent e)

points.add(new Point(e.getX（　）,e.getY（　）)
paint（　）;

);

public void update(Graphics g)

repaint(g);

public void paint(Graphics g)

for(int i=0;i＜points.size（　）;i++)

Point dot=(Point)points.elementAt(i);
g.drawString("x",dot.x,dot.y);


public static void main(String args[ ])

[单项选择]编写以下两个事件过程，在一般情况下(即不按住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（　）;

[单项选择]10岁的孩子，家长回忆他接种过2次麻疹疫苗，如果按免疫程序，接种时间是（）
A. 出生和2岁
B. 6个月和4岁
C. 6个月和6岁
D. 8个月和7岁
E. 12个月和7岁

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

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

[填空题]阅读以下函数说明和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) <