女性，26岁。头晕，乏力3年，维生素B₁₂

以下程序的运行结果是

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

单击命令按钮时，下列程序代码的执行结果为 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

设在工程中定义了下列类型： 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

有如下一个Sub过程： Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_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

以下程序的运行结果是( ) #define MAX 10 int a[MAX]，i; main() { printf("\n");sub1()；sub3(A) ,sub2()，sub3(A) ； } sub2() { int a[MAX]，i，max； max=5； for(i=0；i＜max；i++)a[i]＝i； } sub1() {for(i=0;i＜MAX；i++)a[i]＝i+i; } sub3(int a[]) { int i; for(i=0;i＜MAX，i++)printf("%d"，a[i])； printf("\n")； }

A．0 2 4 6 8 10 12 14 16 18 0 1 2 3 4

B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18

C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4

D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18

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

以下程序的运行结果是( )。 #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

（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

设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是

A．2

B．6

C．10

D．12

下列Sub 过程中描述错误的是______。

A．Sub 过程只能在窗体模块中定义

B．Goto 语句不能用于Sub 过程

C．Sub 过程只能在窗体模块中定义

D．Sub 过程中不能嵌套定义Sub 过程