下载APP
【单选题】
明目蒺藜丸的功能是（）
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