要求输入电阻ri大，输出电流稳定，应选用（）。A、串联电压B、并联电压C、串联电流D、并联电流负反馈

A、并联电流

B、并联电压

C、串联电流

D、串联电压

下面程序的输出结果是【 】。

Private Sub Form_Click()

i=0

Do Until 0

i=i+1

if i＞10 then Exit Do

Loop

Print i

End Sub

设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是

A．2

B．6

C．10

D．12

下列程序的输出结果是【 】。

Private Sub Command l Click()

Dim a(1 TO 20)

Dim i

For i＝1 TO 20

a(i)＝i

Next i

For Each i In a()

a(i)＝20

Next i

Print a(2) End Sub

下面程序的输出结果是【 】。

Private Sub Form_Click()

i＝0

Do Until 0

i＝i＋1

if i>10 then Exit Do

Loop

Print i

End Sub

有程序如下: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next 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 subP a() For i=1 To 4 Print a(i) Next i End Sub运行上面程序，单击命令按钮，输出结果为______ 。

A． 2 4 6 8

B．5 2 2 2

C．10 12 14 16

D．出错

下列程序的输出结果是( )。

Private Sub Command1_Click()

Dim arr(1 To 10)

For i=1 To 10

Next i

For Each i In arr()

Next i

End Sub

下面程序的输出结果是【 】。

Private Sub Commandl_Click( )

Dim a(1 To 20)

Dim i

Fori = 1 To 20

a(i) = i

Next i

For Each i In a( )

a(i) = 20

Next i

Print a(2)

End Sub

下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }

A．6

B．7

C．8

D．9

在窗体中添加一个标签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

下列程序的输出结果是【 】。

Private Sub Command1_Click()

Dim a(1 To 20)

Dim i

For i=1 To 20

a(i)=i

Next i

For Each i In a()

a(i)=20

Next i

Print a(2)

End Sub

以下程序用来输出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

下列程序的输出结果是______。

Private Sub Command1_Click()

Dim arr(1 To 10)

For i=l TO 10

arr(i)=i

Next i

For Each i In arr()

art(i)=arr(i)*2+1

Next i

MsgBox arr(7)

End Sub