下载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