大学职业资格刷题搜题APP
创建自己的小题库
搜索
【单选题】
电力网按功能分类有输电网和（）
A.
地方电网
B.
区域电网
C.
配电网
D.
电缆网
相关题库：供配电基础试卷题库
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报
参考答案：
举一反三
【单选题】《配电网规划设计技术导则》中配电网是指（）
A.
从输电网接受电能，并通过配电设施就地或逐级分配给各类用户的电力网络
B.
从输电网或地区发电厂接受电能，并通过配电设施就地或逐级分配给各类用户的电力网络
C.
从电源侧（输电网和发电设施）接受电能，并通过配电设施就地或逐级分配给各类用户的电力网络
D.
从发电设施接受电能，并通过配电设施就地或逐级分配给各类用户的电力网络
【单选题】有如下事件过程：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.
从发电设施接受电能，并通过配电设施就地或逐级分配给各类用户的电力网络
【单选题】有如下事件过程：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
参考解析：
题目纠错 0
发布
