制氢工
已知R1=10Ω，R2=10Ω，把两个电阻并联起来，其总电阻为（）Ω。A、10B、20C、15D、5
题目
已知R1=10Ω，R2=10Ω，把两个电阻并联起来，其总电阻为（）Ω。
- A、10
- B、20
- C、15
- D、5
参考答案和解析
相似问题和答案
第1题：
窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。
A.Private Sub Form1 Click（ ）
End Sub···
B.Private Sub Form1. Click（ ）
End Sub···
C.Private Sub Command1 click（ ）
End Sub···
D.Private Sub Command Click（ ）
End Sub···
B。【解析】窗体单击事件为Form—Click事件。
第2题：
在窗体中添加一个标签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项是正确的。
第3题：
运行以下程序后，输出结果为_____________。 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
第4题：
以下程序用来输出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整除的数值时输出换行符号。
第5题：
执行下面程序，第一行输出结果是【 】，第二行输出结果是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 解析：递归是一种十分有用的程序设计技术。递归过程是在过程定义中调用(或间接调用)本过程的过程。递归过程的关键部分就是要子过程函数 Sub1()被调用了多少次。当x=2时调用了第1次，当 x=5时调用了第2次，当x=11时不再调用，退出之前分别按x=23和x=47输出。注意：通用过程的调用和通用过程中的参数调用。
第6题：
有如下程序： 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
解析：考查考生对调用通用过程的掌握情况。
[解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
[错解分析] 调用通用过程可以返回多个参数值。
[考点链接] 过程调用、参数传递。
第7题：
A、PH7.38，PaO<SUB>2</SUB>50mmHg，PaCO<SUB>2</SUB>40mmHg
B、PH7.30，PaO<SUB>2</SUB>50mmHg，PaCO<SUB>2</SUB>80mmHg
C、PH7.40，PaO<SUB>2</SUB>60mmHg，PaCO<SUB>2</SUB>65mmHg
D、PH7.35，PaO<SUB>2</SUB>80mmHg，PaCO<SUB>2</SUB>20mmHg
E、PH7.25，PaO<SUB>2</SUB>70mmHg，PaCO<SUB>2</SUB>20mmHg
血气分析结果符合代偿性代谢性酸中毒（ ）
第8题：
以下程序用来输出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整除的数值时输出换行符号。
第9题：
【程序说明】 计算下列算式的值。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值作为正整数。
第10题：
在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print "Sub: ";p；m；n End Sub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test((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)为表达式按值传送。