创建自己的小题库
搜索
【单选题】
有关视网膜色素上皮生理功能的描述，正确的是（）
A.
转运并复制维生素给视网膜感光细胞
B.
吞噬并消化视锥细胞和视杆细胞的盘膜
C.
构成血-眼屏障的全部
D.
运输脉络膜血中的氧和糖原给全层视网膜
E.
维持眼内压
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报参考答案：
举一反三
【单选题】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
相关题目：
【单选题】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
参考解析：
AI解析
重新生成
题目纠错 0
发布
