当绝缘受潮、老化时，有功电流IR将增大，tgδ也增大。通过测量tgδ很灵敏地反映出绝缘的集中缺陷。
当绝缘受潮、老化时，有功电流IR将增大，tgδ也增大。通过测量tgδ很灵敏地反映出绝缘的集中缺陷。
相关考题：
下面程序段的运行结果是【 】。Option Base 1Private Sub swap(a()As InteSer)For I=1 to 10\2t=a(i)a(i)=a(10-1+1)a(10-1+1)=tNext1End SubPrivate Sub Form_Click()Dim x(10)As IntegerFor I=1 to 10x(i)=I*2Next1Swap x()For1=1 to 10Print x (i)Next IEnd Sub
有一过程如下:Sub Sub1(m As Integer,total As Long)Dim i As Integertotal=1For i=1 To mtotal=total*iNextEnd Sub调用它的事件过程如下:Private Sub Command1_Click()Dim tot As Long,a As Integera=Val(InputBox("请输入数据"))Call Sub1(a,tot)Print totEnd Sub则输入数据5,运行结果为【 】。
下列程序用于判断一个整数是否为质数，试将程序补充完整。Private Sub Command1_Click()Dim n As Integern = InputBox("请输入")t = Int(Sqr(n))i = 2flag = 0While i ＜= t And flag = 0If ______Thenflag = 1Else: i = i + 1End IfWendIf ______ThenPrint "这是一个质数"ElsePrint "这不是一个质数"End IfEnd Sub
（8）下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。Private Sub numCount() Dim num As Integer s$="software And hardware" Num=Len(s$) For i=1 unm b$=。 If b$="a"Then x=x+1 Next i Print"x="；xEnd Sub
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
以下程序用来输出20个在开区间(10,87)上的随机整数数R,每行输出4个整数。请完成空白处.Private Sub Commandl. Click( )For I=1 To 10R = Int (Rnd * 76 + 11)Print R;If【 】Then PrintNext IEnd Sub
下面程序段的运行结果是【 】。Option Base 1Private Sub Swap (a() As IntegFor I=1 to 10\2t=a(I)a(I)=a(10-I+1)a(10-I+1)=tNext IEnd SubPrivate Sub Form_Click()Dim x(10) As IntegerFor I=1 to 10x(I)=I*2Next ISwap x()For I=1 to 10Print x(I)Next IEnd Sub
当执行以下过程时，在名为lblResult的标签框内将显示______。Private Sub Command1_ Click() Dim I, R R = 0 for I = 1 To 5 step 1 R= R+ I Next I lblResult. Caption = Str＄(R)End SubA．字符串15B．整数15C．字符串5D．整数5
有如下事件过程：Private Sub Form. Active ( )Dim Score (1 to 3) As IntegerDim i As IntegerDim t As VariantFori=3 To 1 step-1Score (i) = 2 * iNextFor Each t In ScorePrint tNextEnd Sub程序运行后窗体上显示的值为【 】。
设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是A．2B．6C．10D．12
下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#，i% t=1 For i=2 To UBound(A)t=t * a(i) Next i Tof=t End FunctionA．t=18B．t=24C．t=30D．t=32
在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )A．Private Sub Command1_Click() Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Name=Str$ (R) End SubB．Private Sub Command1_ClickO Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Caption= Str$ (R) End SubC．Private Sub Command1_Click() Dim I,R As Integer Do While I＜5 R=R+I I=I+1 Loop LblResult. Caption=Str$ (R) End SubD．Private Sub Command1_Click() Dim I,R As Integer Do R=R+I I=I+1 Loop While I＜5 LblResult. Caption=Str$ (R) End Sub
【程序说明】 计算下列算式的值。a，Ai为正整数，从键盘输入。其小∑Ai＝1+2…+ Ai，Ai!＝1 *2*3*Ai(i＝1，2… a)。【程序】SET TAIK OFFCLEARINPUT“M＝”TO MSTORE 0 TO S1，S2FOR I=1 TO M(8)DO SUB1DO SUB2ENDFOR? ” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))SET TALK ONPROCEDURE SUB1(9)FOR R＝1 TO AK＝K+RENDFOR(10)RETURNPROCEDURE SUB2(11)FOR P＝1 TO AT=T*PENDFOR(12)RETURN(8)A．INPUT“A＝”TO AB．INPUT“I=”TO IC．INPUT“R=”TO STR(R)D．INPUT“K＝”TOK
下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i) =i Next t=Tof(b() ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#,i% t=1 For i=2 To UBound(a) t=t*a(i) Next Tof=t End FunctionA．t=18B．t=24C．t=30D．t=32
设有如下程序：Private Sub Form—Click()Clsa$=“ABCDFG”For i=1 T0 6Print Tab(12-i)；【 】NextiEnd Sub程序运行后，单击窗体，结果如图所示，请填空。
以下程序用来输出20个在开区间(10，87)上的随机整数R，每行输出4个整数。请完成空白处。Private Sub Command1 Click()For I=1 To 10R=Int(Rnd*76+11)Print R；If【 】Then PrintNext IEnd Sub
假定有如下的Sub过程：Sub Sub1(x As Single，y As single)t=xx=t/yy=t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_click()Dim a As SingleDim b As Singlea=5b=4Sub1 a，bPrint a；bEnd Sub程序运行后，单击命令按钮，输出结果为A．B．C．D．
有如下事件过程，单击命令按钮扣，输出结果是 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print "t="; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (A)t=t * a(i) Next i Tax=t End FunctionA．t=18B．t=24C．t=30D．t=32
当执行以下过程时，在名为1blResult的标签框内将显示______。 Private Sub cmdlt_ click() Dim I，R R=0 For I=1 To 5 Step 1 R=R+I Next i 1blResult．Caption=Str＄(R) End SubA． 字符串15B．整数15C．字符串5D．整数5
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．6B．12C．24D．47
以下能够正确计算n!的程序是( )。A．Private Sub Commandl_C1ick()B．hiVate Sub Commandl_C1ick() n＝5:x＝1 n＝5:x=1:i＝1 DO DO X＝x*1 X＝X*1 i＝i＋1 i＝i＋1 Loop while i＜n Loop While＜n Print x Ptinte x End Sub End SubC．Private Sub Commandl_Click ()D．Pdvate Sub Commandl C1ick() n＝5:X＝1:i＝1 n＝5＝:x＝1:i＝1 DO DO X＝X*1 X＝X*1 i＝i＋1 i＝i＋1 Loop While i＞n Print x Print x End Sub End Sub
class Super { public int i = 0； public Super（String text） { i = 1； } } public class Sub extends Super { public Sub（String text） { i = 2； } public static void main（String args[]） { Sub sub = new Sub（“Hello”）； System.out.println（sub.i）； } } What is the result？（） A、 0B、 1C、 2D、 Compilation fails.
单选题class Super { public int i = 0； public Super（String text） { i = 1； } } public class Sub extends Super { public Sub（String text） { i = 2； } public static void main（String args[]） { Sub sub = new Sub（“Hello”）； System.out.println（sub.i）； } } What is the result？（）A 0B 1C 2D Compilation fails.
单选题class super （ public int I = 0； public super （string text） （ I = 1 ） ） public class sub extends super （ public sub （string text） （ i= 2 ） public static void main （straing args） （ sub sub = new sub （“Hello”）； system.out. PrintIn（sub.i）； ） ） What is the result？（）A Compilation will fail.B Compilation will succeed and the program will print “0”C Compilation will succeed and the program will print “1”D Compilation will succeed and the program will print “2”