在电路中，已知电阻R1=6，R2=15，R3=10，R2与R3并联后与R1串联，该电路总电阻R0为（）
第1题：
以下程序用来输出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
第2题：
在窗体中添加一个命令按钮，编写如下程序： 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
第3题：
在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：
DimaAsInteger
Subtest()
a=a+1:b=b+1:c=c+1
Print"Sub:";a;"，";b;"，";c
EndSub
PrivateSubCommand1_Click()
a=2:b=3:c=4
Calltest
Calltest
EndSub
程序运行后，单击命令按钮，窗体中将显示( )
A.Sub：3，4，5Sub：4，5，6
B.Sub：2，3，4Sub：2，3，4
C.Sub：3，1，1Sub：4，1，1
D.Sub：1，1，1Sub：1，1，1
第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
第5题：
在窗体中添加一个标签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
第6题：
如下图所示的两个窗体：
要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是
A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End Sub
B．Private Sub Command1_Click() Show 1 End Sub Private Sub Conunand2_Click() End End Sub
C．Private Sub Conmmand1_Click() Show 1 End Sub Private Sub Command2_Click() End End Sub
D．Private Sub Command1_Click()Show 1， Form2 End SubPrivate Sub Command2_Click() End End Sub
第7题：
有如下程序： 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
第8题：
运行以下程序后，输出结果为_____________。 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
第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
第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