[填空题]在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色 ……如此循环。单击“结束”按钮，程序运行结束。请填空。 　　Private Sub cmdChange_Click（　） 　　　If Mark=0 Then 　　　　【 】　 　　　　Mark=1 　　　　ElseIf【 】Then 　　　　Forml．BackColor=vbGreen 　　　　Mark=2 　　　　ElseIf Mark=2 Then 　　　　Form1．BackColor；vbBlue 　　　　【 】　 　　　End If 　　End Sub 　　Private Sub cmdExit_Click（　） 　　　End 　　End Sub

[填空题]在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色……如此循环。单击“结束”按钮，程序运行结束。请填空。
　　Private Sub cmdChange_Click（　）
　　　If Mark=0 Then
　　　　　【13】　
　　　　Mark=1
　　　　ElseIf　【14】　Then
　　　　Forml．BackColor=vbGreen
　　　　Mark=2
　　　　ElseIf Mark=2 Then
　　　　Form1．BackColor；vbBlue
　　　　　【15】　
　　　End If
　　End Sub
　　Private Sub cmdExit_Click（　）
　　　End
　　End Sub

[简答题]本题是一个Applet，页面上有一个按钮“请单击”，单击该按钮后弹出一个对话框，对话框上有三个按钮“橙色”、“蓝色”和“红色”，单击其中任意一个按钮，则可以将对话框的背景色设置为按钮名称所对应的颜色。
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
public class java2 extends JApplet

private JFrame frame;
______（　）

frame=new JFrame（　）;
frame.setTitle("java2");
frame.setSize(300,200);
frame.getContentPane（　）.add(new ButtonPanel（　）);
JButton PopButton=new JButton("请单击");
getContentPane（　）.add(PopButton);
PopButton.addActionListener(new ActionListener（　）

public void actionPerformed(ActionEvent evt)

if(frame.isVisible（　）)frame.setVisible(false);
else______;

);


class ButtonPanel extends JPanel

private class ColorAction implements ActionListener

private Color backgroundColor;
public void actionPerformed(ActionEvent actionevent)

setBackground(backgrOundColor);
repaint（　）;

public ColorAction(

[填空题]窗体上有一个命令按钮，执行程序后，在按钮上单击鼠标左键的输出结果为______，在按钮上单击鼠标右键的输出结果为______。
Private Sub Command1_Click（　）
Print"B"：
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print"A"：
End Sub

[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是
Private Sub Command1_Click( )
Dim a
a = Array(1,2,3,4,5)
For k = 1 To4
s=s+a(k)
Next
Print S
End Sub
A. 10
B. 14
C. 15
D. 120

[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。

Private Sub Command1_Click（　）

Dim a

a=Array(1,2,3,4,5)

For k=1 To 4

S=s+a(k)

Next k

Print s

End Sub
A. 10
B. 14
C. 15
D. 120

[填空题]在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。
　　Private Sub Disp_Click（　）
　　　　Me．Hide
　　　　Form2. 【10】
　　End Sub

[填空题]在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体 隐藏，显示Form2窗体，程序如下，请补充完整。 　　Private Sub Disp_Click（　） 　　　　Me．Hide 　　　　Form2.【 】 　　End Sub

[填空题]新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，
Form1窗体消失，显示Form2窗体，程序如下，请填空。
Private Sub Command1_Click（　）
Form1.Hide
Form2. 【8】
End Sub

[填空题]新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮， Form1窗体消失，显示Form2窗体，程序如下，请填空。 Private Sub Command1_Click（　） Form1.Hide Form2. 【8】 End Sub