医院药学(医学高级)
某种药物过量中毒，可用维生素K1对抗的是（）A、肝素B、枸橼酸钠C、华法林D、氨甲苯酸E、链激酶
题目
某种药物过量中毒，可用维生素K1对抗的是（）
- A、肝素
- B、枸橼酸钠
- C、华法林
- D、氨甲苯酸
- E、链激酶
相似问题和答案
第1题：
以下程序的输出结果是【 】。
main()
{ int x=0；
sub(&x，8，1)；
printf(“%d\n”，x)；
}
sub(int *a，int n，int k)
{ if(k＜＝n)sub(a，n/2，2*k)；
*a+=k；
}
7 解析：在主函数中定义了一个变量x并赋初值0，然后执行函数调用语句，该语句的执行过程为sub(&x,8,1)调用sub(&a,4,2)，sub(&a,4,2)调用sub(&a,2,4)，sub(&a,2, 4)中由于24，所以if后面括号里的判断为假，递归结束，执行其后的*a+=k;语句此时 x=x+k=0+4=4，回退到上一层调用函数sub(&x,4,2)中，执行后面的语句，x=x+k= 4+2=6，再回推到最上一层调用函数sub(&x,8,1)执行后面的语句，x=x+k=6+1=7，所以最后输出7。
第2题：
下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }
A．6
B．7
C．8
D．9
解析：在函数sub()的函数体中定义了一个静态存储变量a，a的值在函数调用完毕返回主函数后仍存在。第一次调用sub(i)，a=a+m=4+2=6，返回值为6。第二次调用sub(j)，a=a+m=6+1=7，返回值为7，最后输出k的值为7。
第3题：
下面程序运行后，窗体中显示【 】。
Private Sub Command1_Click) ( )
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
End Sub
$$$$$$$$$ 解析：本题的难点是了解生成字符函数String$()和计算字符函数Len()，a $="*"的作用只是被用来计算字符串的长度，没有被打印出来。打印分隔符为“；”时，字符串之间没有空格。空打印Print操作是换行。
第4题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b ＝ b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是 _______。
A．7 11
B．5 11
C．76
D．2 1
解析：本题首先定义一个窗体级变量k，该窗体的所有过程都可以使用该变量。在窗体加载时的Load事件中给变量k赋值5。第一次单击命令按钮，定义静态变量b，执行以后两条语句后b的值为5，窗体级变量k的值为6，所以输出为65；再次单击命令按钮，此时静态变量b是上次退出时的值5，而不是0，执行以后两条语句后，b的值变为11，变量k的值为7，所以输出711。
第5题：
执行下面的程序，消息框里显示的结果是 【 】 。
Private Sub Form_Click()
Dim Str As String， K As Integer
Str="ab"
For k=Len(Str) TO 1 Step-1
Str=Str & Chr(Asc(Mid(Str，k，1))+k)
Next k
MsgBox Str
End Sub
abdb 解析：本题考查VBA程序设计。题目较难，综合性强，要求考生对常用函数以及控制结构有一定的了解。考生应该了解Len()函数是字符串长度检测函数，返回字符串所含字符数。 Chr()函数是字符代码转换字符函数，将数值表达式转换成字符串。Asc()函数是字符串转换字符代码函数，返回字符串首字符的ASCII值。 Mid(字符串表达式＞,N1＞,N2＞)函数是从字符串左边第N1个字符起截取N2个字符。开始Len(Str0=2，Mid(Str，k，1)=Mid(ab,2,1)=b，则Chr(Asc(B) +2)=d，所以循环第1次结束后 Str="abd"，同样的第2次循环结束后， Str="abdb"，MsSBox用来将Str输出。正确答案为abdb。
第6题：
下列程序的运行机结果是【 】。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k＜=n
Print m
End Sub
11
第7题：
阅读下列程序。
Option Base 1
Private Sub Form CliCk()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j＜＞ k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=1 to 3
For k=1 to 3
Print a (j,k)；
Next k
Next j
End Sub
运行程序时，输出的结果是【 】。
1 3 3 3 1 3 3 3 1 解析：本题主要考查考生数组虚实结合掌握的情况。事件过程定义又生成了 3*3的数组，该数组的主对角线元素为1，其余元素为3。接着调用了通用过程。调用通用过程时，首先进行虚实结合，然后执行通用过程。执行过程后，返回调用它的事件过程。本题中调用通用过程时，进行虚实地址结合，在通用过程中访问的a数组就是事件过程中的X的数组。在过程中，按行优先顺序输出了a数组所有的元素的值。由于在输出时只执行了循环体的"printan，k)；”，输出数据后有分号。因此输出一行，输出的结果是：1 3 3 3 1 3 3 3 1。
第8题：
阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是【 】。
41 解析：本题的循环体共要执行20次，m的最终值为1+2*20=41。
第9题：
下面程序的输出结果是。 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
第10题：
执行下面的程序，消息框里显示的结果是( )。
Private Sub Form_Click()
Dim Str As String,S As String,k As Integer
S=Str
For k=Len(Str) To 1 Step -1
S=S & (Mid(Str,k,1)
Next k
End Sub
abccba