体内维生素B12主要吸收部位在（）。A、肾脏组织B、肠黏膜上皮C、胃底腺D、胃幽门处E、肝脏

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

有如下一个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

以下程序的运行结果是（ ）。 #include(iostream．h> voidsub(intx，inty，int*z) {*z=y-x；} voidmain（ ） {inta，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

单击命名按钮时，下列程序代码的执行结果为 Public Sub procl ( n As Integer， Byval m As Integer) n=n Mod 10 m=m Mod 10 End Sub Private Sub Cmmand1 Click() Dim x As Integer， y As Integer x=12：y=12 Call Procl (x， y) Print x；y End Sub

A．12 2

B．2 12

C．2 2

D．12 12

人体内O＜sub＞2＜/sub＞、CO＜sub＞2＜/sub＞进出细胞膜是通过

A.单纯扩散

B.易化扩散

C.主动转运

D.人胞作用

E.出胞作用

设有如下程序： 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 过程

下列程序的执行结果为 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub

A．20 12 20 15

B．12 20 12 25

C．24 15 12 20

D．24 12 12 15

窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是

A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()

End Sub End Sub

C）Private Sub Commandl_Click() D）Private Sub Command_ Click()

End Sub End Sub