维修电工考试
有一台输入功率P1＝11.5KW，电压U＝230V的并励电动机，电枢电阻Ra＝0.1Ω，磁场电阻Rf＝200Ω，若起动时的电枢电流不超过额定电流的1.5倍，试问起动电阻Rst为多少？若不用起动电阻，起动时起动电流是多少？
题目
有一台输入功率P1＝11.5KW，电压U＝230V的并励电动机，电枢电阻Ra＝0.1Ω，磁场电阻Rf＝200Ω，若起动时的电枢电流不超过额定电流的1.5倍，试问起动电阻Rst为多少？若不用起动电阻，起动时起动电流是多少？
相似问题和答案
第1题：
阅读程序： 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运行上面的程序，单击命令按钮，输出结果为。
【解析】本题综合考查Sub过程的建立与调用以及数组的赋值。P过程为参数b()赋值，赋值方法为b()中的元素值等于其下标的2倍。在事件过程中，数组a(1 to 4)先被逐一赋值，然后以传地址的方式被p过程调用。在调用中，a(i)被重新按照p过程的赋值方式（即元素值等于对应下标值的2倍）赋值。由于是以传地址的方式传送a(1 to 4)，故在调用完p过程后，a(1 to 4)，故在调用完p过程后，a(1 to 4)中的元素值将保留，故空白处填：2 4 6 8。
第2题：
设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer … Call D(a) 如下过程定义巾，正确的是（ ）。
A.Private Sub p(a As Integer)
B.Private Sub p(a（ ）As Integer)
C.Private Sub p(a(10)As Integer)
D.Private Sub p(a(n)As Integer)
B。【解析】本题考查的是过程的调用，根据题干在定义中不许定义一个a数组，其中a数组不能定长，所以答案为B。
第3题：
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
120 解析：考查考生对过程中参数传递方式的掌握情况。本题的难点是实参与形参的传递问题。total按ByRef参数传递。子过程的功能是计算n!,题中输入5,因此5!=120。参数按传值方式传递时,不改变实参中的值;按传地址的方式传递时,实参和形参指向的内容被改变。
第4题：
在窗体中添加一个命令按钮，编写如下程序： Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后，输出结果为
A．Sub：2 6 4 Main：2 6 4
B．Sub：2 6 4 Main：2 6 4
C．Sub：2 6 4 Main：1 2 3
D．Sub：2 6 4 Main：2 2 3
解析：考查考生对参数传递的掌握情况。
[解题要点] 这是在实现子过程被调用时参数虚实结合的问题。a1为变量按址传送，b1+3和c1为表达式按值传送。
[错解分析] 参数的传值方式和传址方式的区别。
[考点链接] 函数调用和参数传递。
第5题：
执行下列程序，输入框中显示的默认字符串为【 】；
Pirate Sub Command 1_Click()
InputBox"ok"，"输入参数"，Format("&H12")
End Sub；
18 解析：当Format函数处理可能为数字的字符串时，会自动进行运算转换，即将&H12当作16进制数，实际显示数字10进制数“18”。
第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题：
下列程序的执行结果是______。
PrivateFunctionP(NASInteger)
Fori=1 To N
SUM=SUM+i
Nexti
P=SUM
End Function
Privte Sub Commandl_Click()
S=P(1)+P(2)+P(3)+P(4)
Print S
End Sub
20
第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
第9题：
有以下程序：
int sub(int n) { return(n/10+n%10); }
main()
{ int x, y;
scanf("% d", &x);
y=sub(sub(sub(x)));
printf("% d\n", y);
}
若运行时输入：1234＜回车＞，程序的输出结果是【 】。
10 解析：y=sub(sub(sub(x)))=sub(sub(127))=sub(19)=10。
第10题：
有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为
A．120
B．60
C．80
D．100
解析：本题的难点是实参与形参数传递的问题。如果将fact((i))改成fact(i)会产生“ByRef参数类型不符”的提示。字符型变量i经(i)计算的结果为5，其作为常数参数按值传递调用子过程fact(5)。子过程的功能是计算n!。