在一个3杂合基因的自由组合试验中，由F₁

在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：

DimaAsInteger

Subtest()

a=a+1:b=b+1:c=c+1

Print"Sub:";a;"，";b;"，";c

EndSub

PrivateSubCommand1_Click()

a=2:b=3:c=4

Calltest

Calltest

EndSub

程序运行后，单击命令按钮，窗体中将显示( )

A.Sub：3，4，5Sub：4，5，6

B.Sub：2，3，4Sub：2，3，4

C.Sub：3，1，1Sub：4，1，1

D.Sub：1，1，1Sub：1，1，1

下列关于Sub过程的叙述正确的是A.一个Sub过程必须有一个Exie Sub语句B.一个Sub过程必须有一个Enb Sub语句C.在Sub过程中可以定义一个Function过程D.可以用Goto语句退出Sub过程

以下叙述中正确的是（ ）。

A．一个 Sub 过程至少要一个 Exit Sub 语句

B．一个 Sub 过程必须有一个 End Sub 语句

C．可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程

D．调用一个 Function 过程可以获得多个返回值

如下图所示的两个窗体：

要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为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

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub f(ByVal x As Integer)

x=x+4

End Sub

Private Sub Command1_Click()

i=3

Call f(i)

If i＞4 Then i=i*2

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。

下面子过程语句说明合法的是( )。

A．Function f1(By Valn%)

B．Sub f1(n%)As Integer

C．Function f1%(f1%)

D．Sub f1(ByValn%())

在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function

在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub f(ByVa1 x As Integer)

x=x+4

End Sub

Private Sub Command1_Click()

i=3

Call f(1)

If i＞4 Then i=i*2

MsgBox i

End Sub

打开窗体运行后，单击命令按钮，则消息框的输出结果为______。

A、Sub f1(ByVal n%())

B、 Sub f1(%)As integer

C、 Function f1%(f1%)

D、 Function f1(ByVal n%)

窗体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···