安徽住院医师内科
女性，26岁。头晕，乏力3年，维生素B12，叶酸治疗3个月，平时月经量较多。查血红蛋白75g/L，红细胞3.1×1012/L，白细胞4.5×109/L，血小板20×109/L，网织红细胞1.5%，尿胆原（-），大便隐血（-）。此患者治疗宜选择（）A、继续注射维生素B12B、口服铁剂C、输血400mlD、肾上腺皮质激素E、脾切除
题目
女性，26岁。头晕，乏力3年，维生素B12，叶酸治疗3个月，平时月经量较多。查血红蛋白75g/L，红细胞3.1×1012/L，白细胞4.5×109/L，血小板20×109/L，网织红细胞1.5%，尿胆原（-），大便隐血（-）。此患者治疗宜选择（）
- A、继续注射维生素B12
- B、口服铁剂
- C、输血400ml
- D、肾上腺皮质激素
- E、脾切除
相似问题和答案
第1题：
以下程序的运行结果是
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
第2题：
单击命令按钮时，下列程序代码的执行结果为 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
解析：由于n为默认的传地址参数，m为传值参数，故在调用Proc1过程后，x值为经过处理后的值，y为原值，不发生改变。
第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
【解析】本题考查为记录类型变量student赋值。使用with语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。其语法如下：
With 记录类型变量
.记录类型变量成员名=要赋的值
...
End With
给记录类型变量中的字符串型成员赋值时要加双引号。
第4题：
有如下一个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
第5题：
以下程序的运行结果是( ) #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
第6题：
窗体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···
B。【解析】窗体单击事件为Form—Click事件。
第7题：
以下程序的运行结果是( )。 #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
解析： 在C++语言中，调用函数不可能改变实参指针变量的值，但可以改变实参指针变量所指变量的值。
第8题：
（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
【解析】本题考查过程的调用，如果用Call语句调用子过程时，实际参数要放在括号中，如果不使用Call子句，则不必使用括号。本题参数调用时是按地址传递，因此Sun过程中变量的值改变也即改变了单击事件中的a、b变量值。
Sun a,b的执行过程是：t=x=5,x=t/y=1.25,y=t Mod y=1。
第9题：
设有如下程序： 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
解析：本程序的功能是：查寻给定数字45在数组b中的位置n。用Array函数给数组b的各元素赋初值，其中数组变量名a应是Variant型的。用数组作为过程的形参时，应在数组名的后面加上一对圆括号(如数组a())；用数组作为调用过程的实参时，数组名的后面去掉一对圆括号(如数组b)。用类型说明符％来标识index和I为整型变量。Lbound(a)和Ubound(a)函数分别返回数组的下界和上界，下界值为0。在于程序search中，当key=a(I)条件(即45=a(6))成立时，变量index记录下数组下标值6，然后中断循环，退出于程序search，index反传送给变量n，最后打印出6。
第10题：
下列Sub 过程中描述错误的是______。
A．Sub 过程只能在窗体模块中定义
B．Goto 语句不能用于Sub 过程
C．Sub 过程只能在窗体模块中定义
D．Sub 过程中不能嵌套定义Sub 过程