三绕组变压器等效电路中的电抗x1，x′2，x′3与双绕组变压器的漏电抗

题目

三绕组变压器等效电路中的电抗x₁，x′₂，x′₃与双绕组变压器的漏电抗

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

（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

正确答案：Mid(s$,i,1)
【解析】分析题目和程序段可知，空白处的作用是取出字符串s中的第i个字符，这里可以使用Mid函数来取出第i个字符，然后对比该字符是否是字符a，如果是，则变量x加1，如果不是则跳过if后面的语句继续循环，最后输出x。

第2题：

以下过程的定义中,( )是错误的。

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

第3题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。

A．5

B．120

C．153

D．160

正确答案：C
解析：由于参数y、w是ByRef的参数，称为“引用”，所以在过程Subl中改变的值是带回到调用的地方的，因此Sum结果是5次Subl计算结果的和，即sum=(1+2+6+24+120)=153。本题答案为153。

第4题：

执行下面程序，第一行输出结果是【】，第二行输出结果是47。

Option Explicit

Private Sub Form_Click( )

Dim A As Integer

A=2

Call Sub1 (A) End Sub

Private Sub1 (x As Integer)

x=x*2+1

If x＜10 Then

Call Sub1 (x)

End If

x=x*2+1

Print x

End Sub

正确答案：23
23 解析：递归是一种十分有用的程序设计技术。递归过程是在过程定义中调用(或间接调用)本过程的过程。递归过程的关键部分就是要子过程函数 Sub1()被调用了多少次。当x=2时调用了第1次，当 x=5时调用了第2次，当x=11时不再调用，退出之前分别按x=23和x=47输出。注意：通用过程的调用和通用过程中的参数调用。

第5题：

在窗体中添加一个名称为Cmd的命令按钮，然后编写如下程序： Public x As integer Private Sub Cmd_Click() x=10 Call add1 Call add2 MsgBox x End Sub Private Sub add1 ( ) x=x+20 End Sub Private Sub add2 ( ) Dim x As integer x=x+40 End Snb 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。

A．10

B．60

C．30

D．70

正确答案：C
解析：公有变量x，在add1中对其值加20为30，但在add2中又定义了私有变量x，这时私有变量有效。所以x的值仍然为30。

第6题：

（13）单击命令按钮时，下列程度的执行结果是 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=2:b=4:c=6 Call S2(a,b) Print"a=";a;"b=";b;"c=";c; End Sub Private Sub S1(x As Integer,y As Integer) Dim c As Integer x=2*x:y=y+2:e=x+y End Sub Sub S2(x As Integer,By Val y As Integer) Dim e As Integer x=2*x:y=y+2:e=x+y End Sub A.a=4 b=6 c=6 B.a=8 b=6 c=6 a=4 b=6 c=6 a=8 b=6 c=6 C.a=4 b=6 c=6 D.a=8 b=6 c=6 a=8 b=6 c=6 a=4 b=6 c=6

正确答案：C
【解析】在定义子过程的参数时，如果在参数前加上ByVal，表示是“传值”参数，主调函数中参数的值不被改变；否则表示是“传地址”参数，参数值会被调用的子过程改变。
题中S1过程的参数是“传地址”，因此调用后a、b、c的值都改变了，分别为4、6、6；S2过程的参数中a是“传地址”参数，b是“传值”参数，因此调用后a值改变，b值不变，因为。是过程变量，所以也没有变化，因此输出的值为8、6、6。

第7题：

在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：

Public x as integer

Private Sub Command1_Click( )

x=5

Call s1

Call s2

MsgBox x

End Sub

Private Sub s1( )

x=x+10

End Sub

Private Sub s2( )

Dim x as integer

x=x+10

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果是______

正确答案：15
15 解析：本题使用Call调用子过程s1，s2。x=5在调用子过程s1后，x= 15，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于使用Dim…As关键字定义x，所以其值是模块范围的。所以在消息框中输出的值，是从子过程s2传回的值。

第8题：

（ 25 ）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

A ）

Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Print X,Y

End Sub

B ）

Private Sub P1_MouseDown （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

Picture.Print X,Y

End Sub

C ）

Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

E n d S u b

D ）

Private Sub Form_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

Y As Single ）

P1.Print X,Y

End Sub

正确答案：C

第9题：

在窗体中添加一个名称为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．10

B．30

C．40

D．50

正确答案：B
解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。

第10题：

假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为 ______ 。

A．5 4

B．1 1

C．1.25 4

D．1.25 1

正确答案：D
解析：Visual Basic的函数参数默认的方式是传地址的，所以函数S对参数做的改变会反映到原来的变量里。

三绕组变压器等效电路中的电抗x<sub>1</sub>，x′<s

题目

相似问题和答案

更多相关问题

相关内容