大学职业资格刷题搜题APP
创建自己的小题库
搜索
【单选题】
自然铜除止痛外，还具有的功能是
A.
补血活血
B.
散瘀接骨
C.
破血行气
D.
清热解毒
E.
止咳平喘
相关题库：活血祛瘀药题库
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报
参考答案：
举一反三
【单选题】自然铜煅制的目的是（）
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.
娱乐功能
相关题目：
【单选题】自然铜煅制的目的是（）
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.
娱乐功能
参考解析：
题目纠错 0
发布
