泵站操作工考试
当两电阻R1=20Ω，R2=30Ω并联时，其总电阻为（）。A、50ΩB、30ΩC、20ΩD、12Ω
题目
当两电阻R1=20Ω，R2=30Ω并联时，其总电阻为（）。
- A、50Ω
- B、30Ω
- C、20Ω
- D、12Ω
相似问题和答案
第1题：
当执行以下过程时，在名为lblResult的标签框内将显示______。Private Sub Command1_ Click() Dim I, R R = 0 for I = 1 To 5 step 1 R= R+ I Next I lblResult. Caption = Str＄(R)End Sub
A．字符串15
B．整数15
C．字符串5
D．整数5
解析：本题的难点是如何将数值转换成字符串，计算过程为“R=1+2+3+4+5=15，Str＄(15)的值为15。
第2题：
在窗体上画一个命令按钮，然后编写如下程序： Sub S1(By Val x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=r End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a=10 b=30 S1 a，b Print"a=";"b=";b End Sub 程序运行后，单击命令按钮,．输出结果是______。
A．a=30 b=10
B．a=30 b=30
C．a=10 b=30
D．a=10 b=10
解析：过程S1似乎是要将两个变量的值进行交换，但由于参数是用传值的方式来传递变量值的；所以执行完该过程后，a和b的值并未被交换，保持原来的值不变。
第3题：
以下程序用来输出20个在开区间(10,87)上的随机整数数R,每行输出4个整数。请完成空白处.
Private Sub Commandl. Click( )
For I=1 To 10
R = Int (Rnd * 76 + 11)
Print R;
If【 】Then Print
Next I
End Sub
I Mo8 4=0 解析：要产生开区间(10，87)上的随机整数，应该使用Int(Rnd*76+11)，注意因为开区间(10，87)从11开始，所以不能使用数字10换行，可以使用Mod语句来实现，根据题意I=4、 I=8等能被4整除的数值时输出换行符号。
第4题：
写出程序运行的结果
Public class Base
Public virtual string Hello() {return “Base”;}
Public class Sub:Base
Public override string Hello() {return “Sub”;}
1. Base b = new Base(); b.Hello;
2. Sub s = new Sub(); s.Hello;
3. Base b = new Sub (); b.Hello;
4. Sub s = new Base(); s.Hello;
第5题：
以下程序用来输出20个在开区间(10，87)上的随机整数R，每行输出4个整数。请完成空白处。
Private Sub Command1 Click()
For I=1 To 10
R=Int(Rnd*76+11)
Print R；
If【 】Then Print
Next I
End Sub
I Mod 4=0 解析：本题考查Int函数的用法。要产生开区间(10，87)上的随机整数，根据 Int函数的用法，应该使用Int(Rnd*76+11)，注意因为开区间(10，87)从11开始，所以不能使用数字10。换行可以使用Mod语句来实现，根据题意I=4，I=8等能被4整除的数值时输出换行符号。
第6题：
在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )
A．Private Sub Command1_Click() Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Name=Str$ (R) End Sub
B．Private Sub Command1_ClickO Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Caption= Str$ (R) End Sub
C．Private Sub Command1_Click() Dim I,R As Integer Do While I＜5 R=R+I I=I+1 Loop LblResult. Caption=Str$ (R) End Sub
D．Private Sub Command1_Click() Dim I,R As Integer Do R=R+I I=I+1 Loop While I＜5 LblResult. Caption=Str$ (R) End Sub
解析：标签的Name属性用于设置标签控件的名称，Caption属性用于设置控件的标题。题中要把结果显示在标签内，应用 Caption属性，排除选项A。选项C、D项中都只计算了1+2+3+4的值，故不满足题意。只有B项是正确的。
第7题：
【程序说明】 计算下列算式的值。a，Ai为正整数，从键盘输入。其小∑Ai＝1+2…+ Ai，Ai!＝1 *2*3*Ai(i＝1，2… a)。
【程序】
SET TAIK OFF
CLEAR
INPUT“M＝”TO M
STORE 0 TO S1，S2
FOR I=1 TO M
(8)
DO SUB1
DO SUB2
ENDFOR
? ” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))
SET TALK ON
PROCEDURE SUB1
(9)
FOR R＝1 TO A
K＝K+R
ENDFOR
(10)
RETURN
PROCEDURE SUB2
(11)
FOR P＝1 TO A
T=T*P
ENDFOR
(12)
RETURN
(8)
A．INPUT“A＝”TO A
B．INPUT“I=”TO I
C．INPUT“R=”TO STR(R)
D．INPUT“K＝”TOK
解析：表达式接收语句的格式；INPUT[字符表达式＞]TO内存变量＞从子过程SUB1和 SUB2中可知需接收一个A值作为正整数。
第8题：
在窗体中添加一个名称为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
解析：本题使用Call关键字调用子过程s1，s2。x=10在调用子过程s1后，x=30，但由于在s1中直接使用变量，所以该值的作用范围是局部的，即只限于s1子过程中，没有传回。在调用s2时，由于s2使用Dim...As关键字定义x，所以其值是模块范围的。故在消息框中输出的值，是从子过程s2传回的值。
第9题：
编写如下事件过程： 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
解析：可以看出，Sub1(ByValx1AsString，y1AsString)的作用是将参数x1的字符逆序处理，然后赋给y1，而y1是传址引用的，可以直接返回处理结果。
第10题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private Sub
A．10
B．30
C．40
D．50
解析： 本题考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个x赋值为10，然后依次调用s1和s2；在s1中对x自加了20；在s2中用Dim定义了一个局部变量 x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量x而不是全局变量x。故此最终的输出结果为30。