已知两互感线圈L1=2H,L2=5H,M=0.5H,若将其反向串联时,其等效电感()。
第1题:
( 27 )在窗体上画两个标签和一个命令按钮,其名称分别为 Label1 、 Label2 和 Command1 ,然后编写如下程序:
Private Sub func(L As Label)
L.Caption= ” 1234 ”
End sub
Private Sub Form_Load()
Label2.Caption=10
End sub
Private Sub Command1_Click()
A=Val(Label2.Caption)
Call func(Label1)
Label2.Caption=a
End sub
程序运行后,单击命令按钮,则在两个标签中显示的内容分别为
A ) ABCD 和 10
B ) 1234 和 100
C ) ABCD 和 100
D ) 1234 和 10
第2题:
如下图所示的两个窗体:
要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体,第二个命令按钮用来结束程序的运行(两个按钮名称为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
第3题:
有以下程序:
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
第4题:
在窗体上画两个标签和一个命令按钮,其名称分别为Labe11、Labe12和Command1,然后编写如下程序: Private SUb fune(L As Label,By Val a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form. Load() LabeCaptlon="ABCD" LabeCapfion=10 End Sub Private SUb Command1_Click() a=Val(Label2.Caption) Callfunc(Labell,A)LabeCaption=a End Sub 程序运行后,单击命令按钮,在两个标签Labe11和Labe12中显示的内容分别是______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
第5题:
有如下程序: 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
第6题:
运行以下程序后,输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function
:A. sub:2 6 4 main:1 2 3
B. sub:2 6 4 main:2 2 3
C. sub:2 6 4 main:2 6 4
D. sub:2 6 4 main:1 6 4
第7题:
在窗体上画两个标签和一个命令按钮,其名称分别为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
第8题:
在窗体上画两个标签和一个命令按钮,其名称分别为Labell、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是 ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
第9题:
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是: ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
第10题:
在窗体上画两个标签和—个命令按钮,其名称分别为Label1、Labd2和Command1,然后编写如下程序:Private Sub func (L As Label) L.Caption="1234"End SubPrivate Sub Form_ Load() Label1. Caption="ABCDE" Label2.Caplion=10End SubPrivate Sub Command1_ Click() a=Val(Label2. Caption) call func(Label1) Label2.Caption=aEnd Sub 程序运行后,单击命令按钮,则在两个标签中显示的内容分别为 ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10