缺乏维生素B12为（）A、大细胞正色素性贫血B、正细胞正色素性贫血C、小细胞低色素性贫血D、小细胞正色素性贫血E、大细胞低色素性贫血

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

Private Sub Command1_Click（）

Dim x As Integer, y As Integer

x=12: y=32

Call PCS（x, y）

Print x; y

End Sub

Public Sub PCS（ByVal n As Integer, ByVal m As Integer）

n=n Mod 10

m=m Mod 10

End Sub（ ）。

A．12 32

B．2 32

C．2 3

D．12 3

下面程序： 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．显示错误信息

设在工程中定义了下列类型： Type Stutype ino As Integer strname As String*20 Strsex As String*1 Smark As Single End Type在窗体上正确使用这个类型的是下列哪个操作 A. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=smith .strsex=男 .smark=89 End With End Sub B. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End With End Sub C. Sub Command1_Click() Dim student As Stutype With Stutype .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End With End Sub D. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End student End Sub

单击命令按钮时，下列程序代码的执行结果为 Public Sub proc1(n As Integer，Byva1 m As Integer) n=n Mod 10 m=m Mod 10 End Sub Private Sub Cmmand1_Click( ) Dim x As Integer，y As lngeger x=12：y=12 Call Proe1(x，y) Print x；y End Sub

A．12 2

B．2 12

C．2 2

D．12 12

A、Sub plus(sum, a , b ): sum = a + b: End Sub

B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub

C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub

D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: 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

以下程序的运行结果是

sub（int x,int y,int *z）

{*z=y-x;}

main（）

{ int a,b,c;

sub（10,5,&a）;

sub（7,a,&b）;

sub（a,b,&c）;

printf（"M,M,M＼n",a,b,c）;}

A．5,2,3

B．-5,-12,-7

C．-5,-12,-17

D．5,-2,-7

单击命令按钮时，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dimx As Integer，y As Integer x=12： y=32 CallPCS(x，y) PrintX；y End Sub PubUc Sub PCS(ByValn As Integer，ByValm As Integer) n=nMod 10 m=mMod 10 End Sub

A．1232

B．232

C．23

D．123

执行下列程序，输入框中显示的默认字符串为【 】；

Pirate Sub Command 1_Click()

InputBox"ok"，"输入参数"，Format("&H12")

End Sub；

以下程序的运行结果是( )。 #include＜iostream.h＞ void sub(int x，int y，int*z) {*Z=y-x；} void main() {int a，b，c； sub(10，5，&a)； sub(7，a，&b)； sub(a，b，&c)； cout＜＜a＜＜“，”＜＜b＜＜“，”＜＜c＜＜endl；}

A．5，2，3

B．-5，-12，-7

C．-5，-12，-17

D．5，-2，-7