下载APP
参考答案：
参考解析：
刷刷题刷刷变学霸
举一反三
【单选题】有如下事件过程：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
【单选题】患者，男性，白血病，治疗前肾功能无明显异常，化疗期间突然出现尿量＜100ml/24，尿肌酐持续升高，关于为预防出现肾功能异常处理不正确的是（）
A.
鼓励患者多饮水
B.
24小时持续静脉补液，
C.
给予别嘌醇抑制尿酸合成
D.
使每小时＞150ml/m2并保持碱性尿
E.
立即停止化疗
【单选题】除哪项外，有下列情况者均不能献血（）。
A.
性病、麻风病和艾滋病患者及艾滋病病毒感染者
B.
同性恋者、多个性伴侣者
C.
有吸毒史者
D.
阑尾切除手术后
E.
各种恶性肿瘤及影响健康的良性肿瘤患者