相间短路的阻抗继电器采用0°接线。例如IJ=IB-IA时,UJ=()。
第1题:
A、可躲过振荡
B、可提高阻抗继电器的灵敏性
C、在各种相间短路时,测量阻抗Zm均为Z1L
第2题:
( 24 )有以下程序:
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2); arr(3, 4)
End Sub
程序运行后,单击窗体,输出结果为
A ) 8 13
B ) 0 13
C ) 7 12
D ) 0 0
第3题:
第4题:
在窗体上画一个名称为CoilTlilandl的命令按钮,然后编写如下事件过程: Private Sub command1 Click() Dim m As Integer, i As Integer, x(3)As Integer For i=0 To 3:x(i)=i:Next i For i = 1 To 2: Call sub1(x,i):Next i For i = 0 To 3: Print x(i);: Next i End Sub Private Sub sub1(a()As Integer,k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j < 2 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A.0 3 7 5
B.0 1 2 3
C.3 2 4 5
D.0 5 8 3
第5题:
此题为判断题(对,错)。
第6题:
下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text输入。例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后,各元素的值依次为8,9,10,0,1,2,3,4,5,6,7。
Private Sub Moveright(x()As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i=UBound(x)
j=x(i)
For k=i To ______ Step-1
_______
Next k
x(LBound(x))=j
End Sub
Private Sub Command1_Click()
Dim a(10)As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i=0 To 10
a(i)=i
Next i
j=Val(Text1.Text)
k=0
Do
k=k+1
Call MoveRight(a)
Loop Until k=j
For i=0 To 10
Print a(i);
Next i
End Sub
第7题:
下面是用冒泡法将5个整数按升序排列,请将程序补充完整。
Sub GASR()
Dim m
m=Array(10, 1, 5, 6, 7)
For i=0 To 3
For j= 【13】
If m(i) >=m(j) Then
【14】
m(i) =m(j)
m(j) =t
End If
Next j
【15】
For i=0 To 4
Print m(i)
Next i
End Sub
第8题:
此题为判断题(对,错)。
第9题:
A.相间0°接线(相间阻抗继电器的接线方式)
B.有零序电流补偿的0°接线方式(接地阻抗继电器接线方式)
C.+30°接线
D.-30°接线
第10题:
Private Sub Commandl Click()
Dim i As Integer, j As Integer
Dim a (10,10)As Integer
For i=1 To 3
For j= i To 3
a(i,j)=(i-1)*3+j
Print a (i,j);
Next j
Next i
End Sub
程序运行后,单击命令按钮,窗体上显示的是( )。