设配对设计资料的变量值为X₁和X₂（观测值均不同），则配对资料的秩和检验是（）

单击命令按钮时,下列程序的执行结果是

Private Sub Command1_Click()

BT 4

End Sub

Private Sub BT(x As Integer)

x=x*2 + 1

If x < 6 Then

Call BT(x)

End If

x=x  2

Print x;

End Sub

A．15

B．16

C．17

D．18

有如下一个Sub过程： Sub mlt (ParamArray numbers()) n=1 For Each x In numbers n=n * x Next x Print n End Sub在一个事件过程中如下调用该Sub过程： Private Sub Coinmand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a，b，c，d End Sub 则运行该程序，结果为______。

A．12

B．24

C．36

D．48

以下程序运行后的输出结果是 ______。 Sub add(x，y) x=x+y Print "x="；x；"，y="；y End Sub Private Sub Command1_Click() x=1 y=1 Call add((x)，(y)) Print"x="; x；"，y="；y End Sub

A．x=1，y=1 x=2，y=2

B．x=2，y=1 x=1，y=1

C．x=1，y＝1 x=1，y=1

D．x=2，y=1 x=2，y=1

运行下列程序：

Dim x, y

Private Sub Form_Click()

x = 1: y = 1: z = 1

fun1 (1)

Print x; y; z

End Sub

Private Sub fun1(a)

x = a + x: y = a + x: z = a + y

End Sub

单击窗体后，则输出结果是()。

A.1 1 1

B.2 3 1

C.2 3 4

D.2 2 1

A．0

B．2

C．10

D．12

单击命令按钮，下列程序的执行结果是

Private Sub Blck（x As Integer）

x=x * 2 + 1

If x < 6 Then

Call Blck（x）

End If

x=x * 2 + 1

Print x;

End Sub

Private Sub Command1_Click（）

Blck 2

End Sub（）。

A．23 47

B．10 36

C．22 44

D．24 50

单击命令按钮时，下列程序的执行结果是 Private Sub Commandl_Click() BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End Sub

A．15

B．16

C．17

D．18

单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() BT4 End Sub Private Sub BT(x As Integer) x=x * 2 + 1 If x＜6 Then Call BT(x) End If x=X * 2 Print x； End Sub

A．15

B．16

C．17

D．18

设有如下的子过程： Public Sub p1(ByRef x%, ByVal y%) x = 3 * x y = y + 1 End Sub Sub Command1_Click() Dim a%,b% a = 1: b = 2 Call p1(a, b) MsgBox("a=" & a & " b=" & b ) End Sub 则在Command1_Click中 MsgBox 显示的结果是____________。

A、a=1 b=2

B、a=3 b=2

C、a=3 b=3

D、a=1 b=3

E、a=4 b=4