创建自己的小题库
搜索
【单选题】
肺结核化疗时可出现耳聋和肾功能损害的药物是
A.
乙胺丁醇
B.
链霉素
C.
对氨基水杨酸
D.
异烟肼
E.
利福平
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报参考答案：
举一反三
【单选题】肺结核化疗的疗效判定是( )
A.
临床症状消失为主要指标
B.
临床体征消失为次要指标
C.
痰结核菌持续3个月转阴为主要指标
D.
痰结核菌持续6个月转阴为主要指标
E.
x线检查病灶吸收、硬结为主要指标
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
【单选题】下列哪项中的患者不需要进行抗结核化疗
A.
发热、咳嗽1周，胸片正常，结核菌素试验强阳性
B.
胸片示结核病灶正在好转
C.
肺结核患者3年中复查5次胸片无变化，近1月午后发热、乏力
D.
结核性胸膜炎，系统化疗10个月后，胸膜肥厚粘连
E.
女患者，28岁，咯血20天，胸片正常，痰结核菌涂片(+)
相关题目：
【单选题】肺结核化疗的疗效判定是( )
A.
临床症状消失为主要指标
B.
临床体征消失为次要指标
C.
痰结核菌持续3个月转阴为主要指标
D.
痰结核菌持续6个月转阴为主要指标
E.
x线检查病灶吸收、硬结为主要指标
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
【单选题】下列哪项中的患者不需要进行抗结核化疗
A.
发热、咳嗽1周，胸片正常，结核菌素试验强阳性
B.
胸片示结核病灶正在好转
C.
肺结核患者3年中复查5次胸片无变化，近1月午后发热、乏力
D.
结核性胸膜炎，系统化疗10个月后，胸膜肥厚粘连
E.
女患者，28岁，咯血20天，胸片正常，痰结核菌涂片(+)
参考解析：
AI解析
重新生成
题目纠错 0
发布
