创建自己的小题库
搜索
【单选题】
数码照相机的夜视功能可以感（）光。
A.
可见
B.
红外
C.
紫外
D.
以上都对
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报参考答案：
举一反三
【多选题】夜视技术是在夜间或低照度条件下,扩展观察者视力范围的技术。当前,各国根据( )技术和( )技术,并研制出多种类型的夜视器材。
A.
微光夜视
B.
红外夜视
C.
激光夜视
D.
雷达夜视
【单选题】关于135单镜头反光照相机，说法正确的是（）
A.
其可以方便地更换视角从1°至180°的各种不同的镜头
B.
其可以方便地更换视角从1°至90°的各种不同的镜头
C.
其可以方便地更换视角从1°至270°的各种不同的镜头
D.
其可以方便地更换视角从1°至30°的各种不同的镜头
【单选题】有如下事件过程：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
相关题目：
【多选题】夜视技术是在夜间或低照度条件下,扩展观察者视力范围的技术。当前,各国根据( )技术和( )技术,并研制出多种类型的夜视器材。
A.
微光夜视
B.
红外夜视
C.
激光夜视
D.
雷达夜视
【单选题】关于135单镜头反光照相机，说法正确的是（）
A.
其可以方便地更换视角从1°至180°的各种不同的镜头
B.
其可以方便地更换视角从1°至90°的各种不同的镜头
C.
其可以方便地更换视角从1°至270°的各种不同的镜头
D.
其可以方便地更换视角从1°至30°的各种不同的镜头
【单选题】有如下事件过程：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
发布
