女性，26岁。头晕，乏力3年，维生素B12，叶酸治疗3个月，平时月经量较多。查血红蛋白75g/L，红细胞3.1×1012/L，白细胞4.5×109/L，血小板20×109/L，网织红细胞1.5%，尿胆原（-），大便隐血（-）。 本例最有价值的实验室检查为（）A、血清铁降低B、血清总铁结合力增高C、血清铁蛋白降低D、转铁蛋白饱和度降低E、网织红细胞降低

有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s＞=10 Prim N；s End Sub 运行后的输出结果是

A．0 1

B．30 30

C．4 30

D．2 12

写出程序运行的结果

Public class Base

Public virtual string Hello() {return “Base”;}

Public class Sub:Base

Public override string Hello() {return “Sub”;}

1. Base b = new Base(); b.Hello;

2. Sub s = new Sub(); s.Hello;

3. Base b = new Sub (); b.Hello;

4. Sub s = new Base(); s.Hello;

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private Sub

A．10

B．30

C．40

D．50

单击一次命令按钮之后，在对话框中输入12，21，30，3，窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 s = InputBox (“请输入”) Call per(i, s) Next i Print s End Sub Sub per(a, ByValB)b = 1 For i = 1 To 3 a = a * i Next i End Sub

A．12 21 30 3

B．24 42 60 6

C．3 30 21 12

D．只能输入一个数

下列程序运行后的输出结果是______。

Private Sub f(k，s)

s=1

For j=1 To k

s=s*j

Next

End Sub

Private Sub Command1_Click()

Sum=0

For i=1 To 3

Call f(i，s)

Sum=Sum+s

Next

Print Sum

End Sub

（ 12 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下程序：

Private Sub s （ By Val p As lnteger ）

p=p*2

End Sub

Private Sub Command1_Click()

Dim i As Integer

i=3

Call s(i)

If i>4 Then i=i^2

MsgBox i

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 12 】 。

编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．rehcaet

B．tahreee

C．themee

D．eerthea

下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．6

B．12

C．24

D．47

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command_Click( ) S=0 Do s=(s + 1) * (s +2) Number=Number+1 Loop Until S＞=30 Print Number，S End Sub 程序运行后，输出的结果是

A．2 3

B．3 182

C．5 12

D．10 20

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

s=1

Do

s=（s + 1） * （s + 2）

Number=Number + 1

Loop Until s >=30

Print Number, s

End Sub

程序运行后，输出的结果是（ ）。

A．2 3

B．2 56

C．5 12

D．10 20