下列食品中，维生素B12主要来自（）。
第1题：
（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
第2题：
执行下列程序，输入框中显示的默认字符串为【 】；
Pirate Sub Command 1_Click()
InputBox"ok"，"输入参数"，Format("&H12")
End Sub；
第3题：
设在工程中定义了下列类型： 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
第4题：
下列Sub 过程中描述错误的是______。
A．Sub 过程只能在窗体模块中定义
B．Goto 语句不能用于Sub 过程
C．Sub 过程只能在窗体模块中定义
D．Sub 过程中不能嵌套定义Sub 过程
第5题：
设在工程中定义了如下类型： Type stutype ino As Integer stmame As String*20 strsex As String*1 smark As Single End Type 在窗体上正确使用这个类型的是下列哪个操作( )。
A．Sub Command1_click() Dimstudent 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
第6题：
以下程序的运行结果是
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
第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
第8题：
下列关于Sub过程的叙述正确的是A.一个Sub过程必须有一个Exie Sub语句B.一个Sub过程必须有一个Enb Sub语句C.在Sub过程中可以定义一个Function过程D.可以用Goto语句退出Sub过程
第9题：
有如下一个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
第10题：
设在工程中定义了下列类型：
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 Comnland1_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