网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
电流源isc（t）=8cost A与电阻Ro=2Ω并联单口网络向外传输的最大平均功率为（）W。
- A、4
- B、8
- C、16
参考答案
更多 “电流源isc（t）=8cost A与电阻Ro=2Ω并联单口网络向外传输的最大平均功率为（）W。A、4B、8C、16” 相关考题
考题
下面程序段的运行结果是【 】。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,运行结果为【 】。
考题
阅读程序： 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
考题
以下程序的运行结果是( ) #define MAX 10 int a[MAX]，i; main() { printf("\n");sub1()；sub3(A) ,sub2()，sub3(A) ； } sub2() { int a[MAX]，i，max； max=5； for(i=0；i＜max；i++)a[i]＝i； } sub1() {for(i=0;i＜MAX；i++)a[i]＝i+i; } sub3(int a[]) { int i; for(i=0;i＜MAX，i++)printf("%d"，a[i])； printf("\n")； }A．0 2 4 6 8 10 12 14 16 18 0 1 2 3 4B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18
考题
有如下事件过程：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 sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．rehcaetB．tahreeeC．themeeD．eerthea
考题
有如下事件过程，单击命令按钮扣，输出结果是 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
考题
编写如下事件过程： 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.
考题
在纯电阻电路中，R两端的电压为U=Umsint（V），那么，通过R的电流为（）A。A、i=UmRsinB、i=UmRsintC、i=（UmRsint）/RD、i=（UmRcost）/R
考题
单选题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”
考题
单选题已知某线声源长度为l0，在线声源垂直平分线上距线声源r0和r的分别为Lp(r0)和Lp(r)，根据《环境影响评价技术导则声环境》，按公式Lp(r)=Lp(r0)-15lg(r/r0)近似计算该线声源的噪声影响时，应满足的条件是()。A
prIsub0/sub且rsub0/subIsub0/sub /pB
prIsub0/sub/3且rsub0/subIsub0/sub/3 /pC
pIsub0/sub/3rspanI/spansub0/sub且Isub0/sub/3rsub0/subr0Isub0/sub /r0/pD
p无条件限制 /p
热门标签
最新试卷
