考虑简单回归模型 y=β₀+β₁x+u 令z为x的二值工具变量。运用教材（15.0)，证明Ⅳ估计量β

#inelude＜stdio．h＞

sub(x，y，z)

int x，y，*z；

{*z=y-X；}

main()

{int a，b，C；

sub(10，5，＆a)；

sub(7，a，＆b)；

sub(a，b，＆c)；

printf("%d，%d，%d\n"，a，b，c)；

}

运行下列程序：

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

下面程序： Private Sub Form_Click() Dim x，y，z As Integer x=5 y=7 z=0 Call P1(x，y，z) Print Str(z) End Sub Sub P1(ByVal a As Integer，ByVal b As Integer,c As Integer) c=a+b End Sub 运行后的输出结果为 ______。

A．0

B．12

C．Sb(z)

D．显示错误信息

有如下过程：

Sub SS(ByVal X，ByRef Y，Z)

X=X + 1

Y=Y + 1

Z=Z + 1

End Sub

执行该过程的事件过程如下：

Private Sub Command1_Click()

A = 1

B = 2

C = 3

Call SS(A，B，C) Print A；B；C

End Sub

则该程序的执行结果是【 】。

下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。

A．0

B．12

C．Str(z)

D．显示错误信息

下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。

A．0

B．12

C．Str(z)

D．显示错误信息

下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。

A．0

B．12

C．Str(z)

D．显示错误信息

下面程序： Private Sub Form_Click() Dim x,y，z As Integer x=5 y=7 z=0 Call P1(x,y，z) Print Str(z) End Sub Sub Pl(ByVal a As Integer，ByVal b As Integer,c As Integer) c=a+b End Sub 运行后的输出结果为______。

A．0

B．12

C．Str(z)

D．显示错误信息

下面程序：

Private Sub Form_Click()

Dim x,y,z As Integer

x=5

y=7

z=0

Call P1(x,y,z)

Print Str(z)

End Sub

Sub P1(By Val a As Integer, By Val b As Integer, c As Integer)

c=a+b

End Sub

运行后的输出结果为______。

A．0

B．12

C．Str(2)

D．显示错误信息

下面程序：

Private Sub Form_Click()

Dim x，y，z As Integer

x＝5

y＝7

z＝0

Call P1(x，y，z)

Print Str(z)

End Sub

Sub P1(ByVal a As Integer, ByVal b As Integer, c As integer)

c＝a＋b

End Sub

运行后的输出结果为

A．0

B．12

C．Str(z)

D．显示错误信息