网友您好， 请在下方输入框内输入要搜索的题目：

题目内容 （请给出正确答案）

在真空中行进的单色自然光以布儒斯特角iB=57°入射到平玻璃板上。下列哪一种叙述是不正确的？（）

  • A、 入射角的正切等于玻璃的折射率；
  • B、 反射线和折射线的夹角为π/2；
  • C、 折射光为部分偏振光；
  • D、 反射光为平面偏振光；
  • E、 反射光的电矢量的振动面平行于入射面。

参考答案

更多 “在真空中行进的单色自然光以布儒斯特角iB=57°入射到平玻璃板上。下列哪一种叙述是不正确的？（）A、 入射角的正切等于玻璃的折射率；B、 反射线和折射线的夹角为π/2；C、 折射光为部分偏振光；D、 反射光为平面偏振光；E、 反射光的电矢量的振动面平行于入射面。” 相关考题
考题 执行下面的程序段，x的值为【 】。Private Sub Command1_Click()For i=1 To 9a=a+iNextx=Val(i)MsgBox xEnd 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,运行结果为【 】。
查看答案
考题 以下能够正确计算n!的程序是（ ）。A．Private Sub Command1_Click（）n=5: x=1Dox=x * II=I + 1Loop While I nPrint xEnd SubB．Private Sub Command1_Click（）n=5: x=1: I=1Dox=x * II=I + 1Loop While I nPrint xEnd SubC．Private Sub Command1_Click（）n=5: x=1: I=1Dox=x * II=I + 1Loop While I =nPrint xEnd SubD．Private Sub Command1_Click（）n=5: x=1: I=1Dox=x * II=I + 1Loop While I nPrint xEnd Sub
查看答案
考题 有以下程序： Sub subP(b()As Integer) For i=1 To 4 b(i)＝2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(i)＝5 a(2)＝6 a(3)＝7 a(4)＝8 subP a() For i＝1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为______。A． 2 4 6 8B．5 6 7 8C．10 12 14 6D．出错
查看答案
考题 程序执行结果s的值是【 】.Private Sub Command l-Click ()I =0DoS= I +SI = I + lLoop Until I ＞=4End Sub
查看答案
考题 有以下程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next 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 subPa() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为( )A．2 4 6 8B．5 6 7 8C．10 12 14 16D．出错
查看答案
考题 （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运行上面的程序，单击命令按钮，输出结果为。
查看答案
考题 下面程序的功能是统计字符串中"i"的个数,请填空。Sub COU( )Dim n As Integera$=" Beijing University of Technology"n=Len(a$)For i=1 To nb$=【 】If b$="i" Then x=x+1NextPrint"x=" ; xEnd Sub
查看答案
考题 在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVal x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(i)If i＞4 Then i=i*2End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
查看答案
考题 数组A在子过程或函数中定义为形参,正确的语句是( )。 A、Private Sub sele(ByVal A( ) As integer)B、Private Function sale(A() As Integer) As StringC、Private Sub sale(A() As Integer) As IntegerD、Private Sub sale(A(i) As Integer)
查看答案
考题 下面程序的输出结果是【 】。Private Sub Form_Click()i=0Do Until 0i=i+1if i＞10 then Exit DoLoopPrint iEnd Sub
查看答案
考题 以下能够正确计算n!的程序是A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End SubB．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End SubC．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End SubD．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End 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 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 Form_Click()i＝0Do Until 0i＝i＋1if i10 then Exit DoLoopPrint iEnd Sub
查看答案
考题 单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a,B)Print a, b End Sub Sub writein(a, ByValB)b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End SubA．24 6B．24 0C．12 6D．12 0
查看答案
考题 在窗体上画一个名称为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 5B．0 1 2 3C．3 2 4 5D．0 5 8 3
查看答案
考题 以下能够正确计算1+2+3+…+10的程序是A．Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Sum+I Next I Print Sum End SubB．Private Sub Command1_Click() Sum=0，I=1 Do While I＜=10 Sum=Sum+I I=I+1 Print Sum End SubC．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop While I＜10 Print Sum End SubD．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop Until I＜10 Print Sum End Sub
查看答案
考题 编写如下事件过程： 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
查看答案
考题 有程序如下: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next 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 subP a() For i=1 To 4 Print a(i) Next i End Sub运行上面程序，单击命令按钮，输出结果为______ 。A． 2 4 6 8B．5 2 2 2C．10 12 14 16D．出错
查看答案
考题 编写如下事件过程： 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 Commeadl_Click() n=5: x=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubB．Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i＜n Print x End SubC．Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop Whilei＜=n Print x End SubD．Private Sub Commsndl_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i＞n Print x End Sub
查看答案
考题 以下能够正确计算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”
查看答案
热门标签
最新试卷