以下过程是（）事件。 Prviate Sub Form_Load（） …… End Sub

以下所列的菜单结构。

要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是

A．Private Sub bigicon_Click() bigicon.Checked=False End Sub

B．Private Sub bigicon_Click() Me.appear.bigicon.Checked=True End Sub

C．Private Sub bigicon_Click() bigicon.Checked=True End Sub

D．Private Sub bigicon_Click() appear.bigicon.Checked=True End Sub

（13）在窗体上画一个文本框（其Name属性为Text1）,编写下列事件过程，运行结果是。 Private Sub Form_Load() Show Text1.Text="你好！" Text1.SetFocus For i=1 To 15 Sun=Sun+i Next i Text1.Text=Sun End Sub

窗体上有两个按钮，则执行程序后按键盘Cance1键的输出结果是 【7】 。

Private Sub Command1_Click（）

Print "北京";

End Sub

Private Sub Command2_Click（）

Print "南京";

End Sub

Private Sub Form_Load（）

Command2.Cancel=True

Command1.Cancel=True

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

如下图所示的两个窗体：

要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是

A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End Sub

B．Private Sub Command1_Click() Show 1 End Sub Private Sub Conunand2_Click() End End Sub

C．Private Sub Conmmand1_Click() Show 1 End Sub Private Sub Command2_Click() End End Sub

D．Private Sub Command1_Click()Show 1， Form2 End SubPrivate Sub Command2_Click() End End Sub

在窗体上有一个文本框控件，名称为Text l。同时，窗体加载时设置其计时器间隔为1s、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间，请补充完整。

Private Sub Form_Load()

Me.TimerInterval=1000

End Sub

Private Sub 【 】

Me!text1=Now()

End Sub

。

（12）有下列Sub过程: Sub Sub(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Commandl中，编写下列事件过程，执行该事件过程调用Sun过程，结果是（ ）。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a,b Print a；b End Sub A.1.25 1 B.5 4 C.4 5 D.1 1.25

下列事件过程的功能是：通过Form_Load事件给数组赋初值为35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。

Dim Arr（）

Private Sub Form_Load（）

【8】

End Sub

Private Sub Form_Click（）

【9】

If Int（x / 3） =x / 3 Then

Print x

End If

Next x

End Sub

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。

A.Private Sub Form1 Click（ ）

End Sub···

B.Private Sub Form1. Click（ ）

End Sub···

C.Private Sub Command1 click（ ）

End Sub···

D.Private Sub Command Click（ ）

End Sub···

在窗体中有一个标签Labele，标题为“测试进行中”，有一个命令按钮Command1，事件代码如下：

Private Sub Command1_Click()

Labele.Caption=“标签”

End Sub

Private Sub Form_Load( )

Form.Caption=“举例”

Command1.Caption=“移动”

End Sub

打开窗体后单击命令按钮，屏幕显示( )。

A．

B．

C．

D．