创建自己的小题库
搜索
【单选题】
功能补气活血通络，主治中风气虚血瘀证的方剂是
A.
肾气丸
B.
理中丸
C.
补阳还五汤
D.
麻杏石甘汤
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报参考答案：
举一反三
【单选题】血瘀证可见的症状是
A.
刺痛拒按，固定不移，舌暗，脉涩
B.
气短疲乏，脘腹坠胀，舌淡，脉弱
C.
胸胁胀闷窜痛，时轻时重，脉弦
D.
面色淡白，口唇爪甲色淡，舌淡，脉细
E.
少气懒言，疲乏无力，自汗，舌淡，脉虚
【单选题】血瘀证可见的症状是
A.
刺痛拒按，固定不移，舌暗，脉涩
B.
气短疲乏，脘腹坠胀，舌淡，脉弱
C.
胸胁胀闷窜痛，时轻时重，脉弦
D.
面色淡白，口唇爪甲色淡，舌淡，脉细
E.
少气懒言，疲乏无力，自汗，舌淡，脉虚
【单选题】有如下事件过程：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.
刺痛拒按，固定不移，舌暗，脉涩
B.
气短疲乏，脘腹坠胀，舌淡，脉弱
C.
胸胁胀闷窜痛，时轻时重，脉弦
D.
面色淡白，口唇爪甲色淡，舌淡，脉细
E.
少气懒言，疲乏无力，自汗，舌淡，脉虚
相关题目：
【单选题】血瘀证可见的症状是
A.
刺痛拒按，固定不移，舌暗，脉涩
B.
气短疲乏，脘腹坠胀，舌淡，脉弱
C.
胸胁胀闷窜痛，时轻时重，脉弦
D.
面色淡白，口唇爪甲色淡，舌淡，脉细
E.
少气懒言，疲乏无力，自汗，舌淡，脉虚
【单选题】血瘀证可见的症状是
A.
刺痛拒按，固定不移，舌暗，脉涩
B.
气短疲乏，脘腹坠胀，舌淡，脉弱
C.
胸胁胀闷窜痛，时轻时重，脉弦
D.
面色淡白，口唇爪甲色淡，舌淡，脉细
E.
少气懒言，疲乏无力，自汗，舌淡，脉虚
【单选题】有如下事件过程：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.
刺痛拒按，固定不移，舌暗，脉涩
B.
气短疲乏，脘腹坠胀，舌淡，脉弱
C.
胸胁胀闷窜痛，时轻时重，脉弦
D.
面色淡白，口唇爪甲色淡，舌淡，脉细
E.
少气懒言，疲乏无力，自汗，舌淡，脉虚
参考解析：
AI解析
重新生成
题目纠错 0
发布
