患儿男，系G₁P₁足

（30）下列事件过程可以将打开文件对话框的标题改变为“new Caption”.A.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowFont End Sub B.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowHelp End Sub D.Private Sub Commandl_Click(） CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowColor End Sub

运行以下程序后，输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function

：A. sub:2 6 4 main:1 2 3

B. sub:2 6 4 main:2 2 3

C. sub:2 6 4 main:2 6 4

D. sub:2 6 4 main:1 6 4

有一过程如下:

Sub Sub1(m As Integer,total As Long)

Dim i As Integer

total=1

For i=1 To m

total=total*i

Next

End Sub

调用它的事件过程如下:

Private Sub Command1_Click()

Dim tot As Long,a As Integer

a=Val(InputBox("请输入数据"))

Call Sub1(a,tot)

Print tot

End Sub

则输入数据5,运行结果为【 】。

在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print "Sub: ";p；m；n End Sub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test((a，b1+3，(c1)) Print "Main："；a1；b1；c1 End Sub 程序运行后，输出结果为

A．Sub： 2 6 4 Main： 2 6 4

B．Sub： 2 6 4 Main： 2 6 4

C．Sub： 2 6 4 Main： 1 2 3

D．Sub： 2 6 4 Main： 2 2 3

在窗体中添加一个命令按钮，编写如下程序： Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后，输出结果为

A．Sub：2 6 4 Main：2 6 4

B．Sub：2 6 4 Main：2 6 4

C．Sub：2 6 4 Main：1 2 3

D．Sub：2 6 4 Main：2 2 3

阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd 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···

在通用声明中定义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过程：

Sub Sub1(x As Single，y As single)

t=x

x=t/y

y=t Mod y

End Sub

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_click()

Dim a As Single

Dim b As Single

a=5

b=4

Sub1 a，b

Print a；b

End Sub

程序运行后，单击命令按钮，输出结果为

A．

B．

C．

D．

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(p，m，n) p=p + 1 : m = m + 1 : n =n + 1 Print p;m;n End Sub Private Sub Command1_Click() x=6 : y=4 : z=2 Call sub1(x，y+1，(z)) Print x；y；z End Sub 程序运行后，单击命令按钮，则窗体上第二行显示的内容是

A．7 6 3

B．7 4 2

C．6 4 2

D．4 6 3