下载APP
举一反三
【单选题】A．夏枯草 B．密蒙花 C．谷精草D．青葙子 E．决明子A．清热解毒，排脓消痈 B．清热解毒，祛痰利咽 C．清热解毒，凉血止痢D．清热解毒，祛风燥湿 E．清热解毒，活血止痛A．平肝明目 B．解毒透疹 C．清肺润燥D．疏肝 E．息风止痉A．夏枯草 B．密蒙花 C．谷精草D．青葙子 E．决明子A．清热解毒，排脓消痈 B．清热解毒，祛痰利咽 C．清热解毒，凉血止痢D．清热解毒，祛风燥湿 E．清热解毒，活...
A.
A．
B.
B．
C.
C．
D.
D．
E.
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