在f=50HZ的交流电路中,容抗XC=314Ω,电容C=()
在f=50HZ的交流电路中,容抗XC=314Ω,电容C=()
相关考题:
( 31 )在窗体上画 1 个命令按钮,名称为 Command1 ,然后编写下列程序:Dim Flag As BooleanPrivate Sub Command1_Click( )Dim intNum As IntegerintNum=InputBox(" 请输入 :")If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer)As IntegerIf X10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序 , 首先单击窗体 , 然后单击命令按钮 , 在输入对话框中输入 5 , 则程序的输出结果为 ( ) 。A ) 0B ) 5C ) 15D )无任何输出
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入:”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X<10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为______。A.0B.5C.15D.无任何输出
(33)下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)
在窗体上画一个命令按钮,命名为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1,在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则F1返回1,否则返回0。能够正确实现上述功能的代码是 。A.Private Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB.Private Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC.Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD.Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
在窗体中添加一个名称为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、Public Sub Sum(x ; y)B、Public Sub Sum(ByVal x, ByVal y)C、Public Sub Sum(x As Integer,y As Integer)D、Public Sub Sum(x%, y%)
下面各被调用函数首部书写正确的是( )A.void sub(float x;float y);B.void sub(float x,y)C.void sub(float x,float y)D.void sub(float x,float y);
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x+20 End Sub Private Sub s2() Dim x As Integer x=X+20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果为______。A.10B.30C.40D.50
有如下程序: 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 0B. 1 1C.2 2D.1 2
在窗体上画一个命令按钮,命名为CommandI。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程 F1,在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。 能够正确实现上述功能的代码是A.Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB.Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End FunctionC.Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End FunctionD.Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
有如下一个Sub过程: Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程: Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。A.12B.24C.36D.48
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序:Public X As Integer Private Sub Commandl Click( )x=10 Call slCall s2MsgBox x End Sub Private Sub sl( )x=x+20 End Sub Private Sub s2( )Dim x As Integer x=x+20End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。A.10B.30C.40D.50
有如下一个Sub过程: Sub mlt (ParamArray numbers()) n=1 For Each x In numbers n=n * x Next x Print n End Sub在一个事件过程中如下调用该Sub过程: Private Sub Coinmand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 则运行该程序,结果为______。A.12B.24C.36D.48
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入:") If Flag Then Printf(intNum) End If End Sub Function f(x As Integer)As Integer If X<10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Flag=True End Sub 运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为( )。A.0B.5C.15D.无任何输出
下列子过程语句的说明正确的是( )。A.Sub f1(ByVal x()As Integer)B.Sub f1(x%())As IntegerC.Function f1%(f1%)D.Function f1%(x As Integer)
以下定义的过程()是按“传值”方式传递参数的。A、Public Sub Sum(x,y)B、Public Sub Sum(ByVal x, ByVal y)C、Public Sub Sum(x As Integer,y As Integer)D、Public Sub Sum(x%, y%)
以下是子过程或函数过程定义中的开始语句,错误的为()。A、Private Function f( x As String ) As SingleB、Private Function f( x As String )C、Private Sub f( x As String ) As SingleD、Private Sub f( x As String )
下列定义abc过程的语句,正确的是()A、Dim Sub abc(x,y)B、Public abc(x,y)C、Private Sub abc(x,y)As IntegerD、Sub abc(x,y)
单选题给定下列FORTRAN子程序如下: SUBROUTINE SUB(K,A) A=SQRT(K*K+1.0) END 下列调用语句中正确的是()A CALL SUB(N,N)B CALL SUB(X,X)C CALL SUB(N,X*X)D CALL SUB(11,X)
单选题以下是子过程或函数过程定义中的开始语句,错误的为()。APrivate Function f( x As String ) As SingleBPrivate Function f( x As String )CPrivate Sub f( x As String ) As SingleDPrivate Sub f( x As String )
单选题正态分布时,算术平均数、中位数、众数的关系为()Amsub0/sub<msube/sub<(xBmsub0/sub=msube/sub=(xCmsub0/sub>msube/sub>(xDmsube/sub<msub0/sub<(x
单选题给定子例行程序如下 SUBROUTINE SUB(K,A) B=K+2 A=A+B END 下列调用语句中正确的是()ACALL SUB(N,N)BCALL SUB(X,X)CCALL SUB(N+2,X)DCALL SUB(N,X+3)
单选题一电容接到f=50Hz的交流电路中,容抗Xc=240Ω,若改接到f=25Hz的电源时,则容抗Xc为()Ω。A80B120C160D480