下载APP
参考答案：
参考解析：
刷刷题刷刷变学霸
举一反三
【单选题】50岁以上病人视力渐进性减退，眼底后极部多数玻璃疣或视网膜色素上皮及脉络膜萎缩病灶即可诊断为
A.
干性老年性黄斑变性
B.
青光眼不典型发作
C.
慢性闭角型青光眼
D.
皮质性白内障
【单选题】视网膜色素上皮萎缩的OCT表现（）
A.
视网膜神经上皮层隆起，下方为无反射暗区
B.
黄斑区视网膜下RPE/脉络膜毛细血管光带断裂，梭形增宽增强
C.
视网膜神经上皮与薄的RPE光带一起隆起，下方脉络膜组织反射光衰减
D.
RPE光带半球形隆起，下方可见中度散射，脉络膜光带可见
E.
黄斑区局部RPE高反射光带断裂，其下脉络膜毛细血管光带存在
【单选题】有如下事件过程：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