两相干光的光强分别为I1和2I1，当他们的光强都减半时，干涉条纹的可见度（）A、减小一半B、减为1/4C、增大一倍D、不变

题目

两相干光的光强分别为I1和2I1，当他们的光强都减半时，干涉条纹的可见度（）

  • A、减小一半
  • B、减为1/4
  • C、增大一倍
  • D、不变
相似考题

1.执行下面的程序段，x的值为【 】。Private Sub Command1_Click()For i=1 To 9a=a+iNextx=Val(i)MsgBox xEnd Sub

2.以下能够正确计算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

3.阅读程序： 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运行上面的程序，单击命令按钮，输出结果为。

4.有一过程如下: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,运行结果为【 】。

更多“两相干光的光强分别为I<sub>1</sub>和2I<sub>1”相关问题

  • 第1题：

    如下图所示的两个窗体：

    要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是

    A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End Sub

    B．Private Sub Command1_Click() Show 1 End Sub Private Sub Conunand2_Click() End End Sub

    C．Private Sub Conmmand1_Click() Show 1 End Sub Private Sub Command2_Click() End End Sub

    D．Private Sub Command1_Click()Show 1， Form2 End SubPrivate Sub Command2_Click() End End Sub


    正确答案：A
    解析：此题考查的多窗体的操作，用Show方法可以显示指定窗体。其格式为：【窗体名称．】Show【模式】如果省略窗体名称，表示是当前窗体，此题本意是利用窗体1中的命令按钮来控制显示窗体2，故应该使用Form2.Show语句；而“模式”参数为可选项，可取0、1两种值，模式为1时，表示窗体是“模式”窗体，即程序运行时只能对此窗体设置或操作，对其他窗口的操作不起作用；而模式为0时，即可同时操作多个窗口；综上所述只有选项A的事件过程正确；选项B没有指定Form2窗体，所以不正确；选项C与选项B的错误一样；选项D语句语法不对，对方法的引用，窗体应放在方法前面。

  • 第2题：

    有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &"*”：n=n&"#" Print x，y，m，n End Sub 程序运行后，输出的结果是

    A．1 1 * #

    B．1 1 * #

    C．1 1 * # 1 1 * # 1 2 * #

    D．1 1 * # 1 1 * ## 1 2 * ##


    正确答案：D
    解析：当i=1时，调用函数过程DS，由于y，n为静态变量值保存，执行x=x+1；y=y+1后x=1，y=1执行m=m&"*"：n=n&"#"后，m="*"，n="#"；当I=2时同上，只是y=2，n="##"。输出结果如选项D)所示。

  • 第3题：

    下面程序的执行结果是______。 #define MAX 10 nt a[MAX],i； main() { printf("\n")； sub1()；sub3(A) ； sub2()；sub3(A) ； } sub1() {for(i=0;i＜1MAX;i++) a[i]-i+i； } sub2() {int a[MAX],i,max； max=5； for(i=0;i＜max;i++) a[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 4

    B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18

    C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4

    D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18


    正确答案：D
    解析：函数sub1给全局作用范围内数组a(长度为10)的每个元素赋值，函数sub2中数组a仅在本函数范围内有效，长度也是10，但仅给前5个元素赋值，main函数调用sub3时，传递数组地址均是全局作用范围内数组a的地址，因此两次调用打印的结果相同。

  • 第4题：

    以下能够正确计算n! 的程序是( )。

    A．Private Sub Command1_Click( ) n=5:x=l Do x=x*i i=i+1 Loop While i ＜ n Print x End Sub

    B．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

    C．Private Sub Command1_Cliek( ) n:5:x=1:i=1 Do x=x* i i:i+1 Loop While i ＜ = n Print x End Sub

    D．Private Sub Command1_Cliek( ) n=5:x:1:i=1 Do x=x*i i=j+1 Loop While i ＞ n Print x End Sub


    正确答案：C
    解析：本题考查DoLoop语句的用法。首先是执行循环体，再确定循环执行的条件，这里满足执行循环的条件应该是i=n，选项A和B的循环条件都是in，少了i=n的一次循环，实际上只执行了n-1次；而选项D则从i＞n时才开始执行，不合题意。

  • 第5题：

    有如下事件过程： Private Sub Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m&"*"：n=n &"#" Print x，y，m，n End Sub 程序运行后，输出的结果是

    A．1 1 * # 1 1 * #

    B．1 1 * # 1 2 * #

    C．1 1 * # 1 1 * ##

    D．1 1 * # 1 2 * ##


    正确答案：D
    解析：本题考查函数调用和输出格式的语句。当I=1时，调用函数过程DC，由于y，n为静态变量值保存，执行x=x+1；y=y+1后x=1，y=1；执行m=m&"*"：n=n&"#"后，m="*"，n="#"；当I=2时同上，只是y=2，n="##"。

  • 第6题：

    以下能够正确计算1+2+3+…+10的程序是

    A．Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Sum+I Next I Print Sum End Sub

    B．Private Sub Command1_Click() Sum=0，I=1 Do While I＜=10 Sum=Sum+I I=I+1 Print Sum End Sub

    C．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop While I＜10 Print Sum End Sub

    D．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop Until I＜10 Print Sum End Sub


    正确答案：A
    解析：本题考查For循环与 Do循环控制语句。A选项进行10次循环，分别将1之10累加给Sum，故正确。选项B缺少Loop关键词，否则也是正确的。选项C与D由于受条件“lclo”限制，Do循环只能进行一次。

  • 第7题：

    有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t\y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

    A．0 0

    B．1 1

    C．2

    D．1 2


    正确答案：B
    解析：调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程；因为在默认的情况下，变量都是通过“引用”传送给Sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值；过程 Sub1的形参获得a，b的地址，此时x=5，y=4，在过程 Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x，y的值为1，1。注意： 调用通用过程可以返回多个参数值。注意：过程调用、参数传递

  • 第8题：

    编写如下事件过程： 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．6

    B．12

    C．24

    D．47


    正确答案：D
    解析：在主过程中，数组x1的下标最大值为3，赋初值分别为2、3、4，通过实参和形参的调用，数组x1的值传给了数组n。在子过程中，数组n的下标最大值被重新定义为5，下标3～5的值计算的结果分别为6、12、24。在主过程中，将数组x1的各值相加得：2+3+6+12+24=47。

  • 第9题：

    以下能够正确计算n!的程序是( )。

    A．Pfivate Sub Commgld1_LClick() n=5:x=1 Do x=x*1 i=i+1 Loop Whilei＜n

    B．Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*1 i=i+1 Loop Whilei＜n Print x End Sub

    C．Pfivate Sub Command1_ C1ick() n=5:x=1:i=1 Do X=X*1 i=i+1 Loop While i＜=n

    D．Private Sub Command1_C1ick() n=5:x=1:i=1 Do X=X*1 i=i+1 Loop While i＞n Print x End Sub


    正确答案：C
    解析：本题考查Do While语句的用法。首先我们知道n!=1×2×3×……×(n-1)×n，由于是累乘，因此x和i的初值都必须为1；其次就是循环执行条件的确定，由于使用的是 While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是 i=n。选项A和B的循环条件都是in，少了 i=n的一次循环，实际上只执行了n-1次：而选项D则从i＞n时才开始执行，不合题意；同时，选项B没有指定i的初值，系统会默认i =0，这也不合题意。本题正确答案为选项C。

  • 第10题：

    以下能够正确计算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 Sub

    C．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


    正确答案：C
    解析：本题考查DoWhile语句的用法。首先我们知道n!＝1×2×3×……×(n-1)×n，由于是累乘，因此x和i的初值都必须为l;其次就是循环执行条件的确定，由于使用的是While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是i＝n。选项A和B的循环条件都是in，少了i＝n的一次循环，实际上只执行了n-1次；而选项D则从i>n时才开始执行，不合题意；同时，选项B没有指定i的初值，系统会默认i；0，这也不合题意。本题正确答案为选项C。

  • 第11题：

    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、 0
    • B、 1
    • C、 2
    • D、 Compilation fails.

    正确答案:C

  • 第12题：

    单选题
    永续盘存法公式为（）
    A

    K<sub>t</sub>＋1＝I<sub>t</sub>－（1－δ）K<sub>t</sub>

    B

    K<sub>t</sub>＋1＝It＋（1－δ）K<sub>t</sub>

    C

    K<sub>t</sub>＋1＝I<sub>t</sub>＋（1＋δ）K<sub>t</sub>

    D

    K<sub>t</sub>＋1＝I<sub>t</sub>－（1＋δ）K<sub>t</sub>


    正确答案： C
    解析： 若用Kt表示第t期初的固定资产存量，It表示第t期投资购建的固定资产数量，δ表示固定资产的折旧率，则有永续盘存法公式为：Kt＋1＝It＋（1－δ）Kt。

  • 第13题：

    在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序： Private Sub rune(L AS Labe1) Caption="1234" End Sub Private Sub Form. Load（ ） Labe11．Caption="ABCDE" Labe12．Caption=10 End Sub Private Sub Command1Click（ ） a=Va1(Label2．Caption) Call func(Label1) Label2．Caption a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。

    A.ABCD和10

    B.1234和100

    C.ABCD和100

    D.1234和10


    正确答案：D
    D。【解析】在VisualBasic中不仅可以使用变量作为形式参数，还可以使用窗体或控件作为通用过程的参数。本题源程序在命令按钮的单击事件过程中，通过调用过程func将标签Label1的标题修改为“1234”；而标签Label2的标题保持不变，还是10。

  • 第14题：

    以下能够正确计算n!的程序是

    A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End Sub

    B．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

    C．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

    D．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


    正确答案：C
    解析：n!=1×2×3×…×(n-1)×n，由于是累乘，因此x和i的初值都必须为1；其次就是循环执行条件的确定，由于使用的是While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是i=n。

  • 第15题：

    有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

    A．0 0

    B． 1 1

    C．2 2

    D．1 2


    正确答案：B
    解析：考查考生对调用通用过程的掌握情况。
      [解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
      [错解分析] 调用通用过程可以返回多个参数值。
      [考点链接] 过程调用、参数传递。

  • 第16题：

    以下能够正确计算n!的程序是

    A．Privas Sub Command1_Click() n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub

    B．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

    C．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

    D．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


    正确答案：C
    解析：本题主要考查Do循环控制结构。只有C项符合题意。A中i一开始未被赋值，默认为0；B项中由于“in”的条件使得 Do循环比应有循环次数少循环一次；选项D由于“i＞n”这一条件，使得控制语句只能循环一次。

  • 第17题：

    在窗体上画一个名称为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


    正确答案：D
    解析：数组也可以作为函数或者过程的参数，使用方法是直接使用数组名加括号，也可以直接使用数组名，采用sub1(x)和sub1(x())的调用形式都正确。变量i的作用只控制循环次数。

  • 第18题：

    编写如下事件过程： 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．rehcaet

    B．tahreee

    C．themee

    D．eerthea


    正确答案：A
    解析：可以看出，Sub1(ByValx1AsString，y1AsString)的作用是将参数x1的字符逆序处理，然后赋给y1，而y1是传址引用的，可以直接返回处理结果。

  • 第19题：

    有程序如下: 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 8

    B．5 2 2 2

    C．10 12 14 16

    D．出错


    正确答案：A

  • 第20题：

    以下能够正确计算n!的程序是______。

    A．Private Sub Commeadl_Click() n=5: x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub

    B．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

    C．Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop Whilei＜=n Print x End Sub

    D．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


    正确答案：C
    解析：选项A中变量i没有赋初值操作，其一直保持0值，所以始终为0；选项B中循环条件“i＞n”错误，计算一次后就退出循环，导致计算结果不正确；选项D的计算过程中，第1次计算时“1＞4”的条件不处理，退出Do循环，其结果为1；选项C的计算结果为5!。

  • 第21题：

    以下能够正确计算1+2+3+…+10的程序是

    A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub

    B．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End Sub

    C．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End Sub

    D．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub


    正确答案：A
    解析：A选项进行10次循环，分别将1至10累加给Sum，故正确。选项B缺少Loop关键词，否则也是正确的。选项C与D由于受条件“Iclo'’限制，Do循环只能进行一次。

  • 第22题：

    下列程序运行后的输出结果是______。

    Private Sub f(k，s)

    s=1

    For j=1 To k

    s=s*j

    Next

    End Sub

    Private Sub Command1_Click()

    Sum=0

    For i=1 To 3

    Call f(i，s)

    Sum=Sum+s

    Next

    Print Sum

    End Sub


    正确答案：9
    9 解析：本题考查的重点是在子过程的调用过程中，虚实参数的传送问题，变量s按十传送。子过程f()求n!，sum的计算过程为1!+2!+3!=1+2+6=9

  • 第23题：

    单选题
    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

     0

    B

     1

    C

     2

    D

     Compilation fails.


    正确答案： B
    解析： This code is perfectly legal and the answer is C. 

  • 第24题：

    单选题
    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”


    正确答案： D
    解析： 暂无解析

相关内容