赵某将房屋租给李某，李某又将房屋转租给王某，在转租合同存续期间，赵某和李某按约定解除租赁合同。

以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中，完成该程序。

OptionBase 1

Private Sub Command1_Click(Index As Integer)

Dima(1 To 20,1 To 10)

Dim b()

ReDimb(1 To 200)

For i=1 To 20

For j=1 To 10

A(i,j)=i*j

Next j

Next i

Tran a,20,10b

End Sub

Sub Tran(a()an,n,b())

Dim i As Integer

For i=1 To m

For j=1 To n

______=a(i,j)

Next j

Next i

End Sub

10． 在题图电路中，已知①，②，③各点电位分别为V₁=20V，V₂=12V，V₃=18V。求各支路电流。

若有如下程序： int sub(int m) { if(m==1||m==0) return 2; else return(sub(m-1)*sub(m-2));} main() { int n; scanf("%d",&n); printf("%d",sub(n)); } 如果从键盘输入4＜回车＞，则程序运行后的输出结果是()。

A．8

B．16

C．24

D．32

6． 题图电路中，已知U_s1=6V，U_s2=4V，R₁=R₂=1Ω，R₃=4Ω，R₄=R₅=3Ω，R₆=5Ω，选o点为参考点。求a，b，c，d各点电位。

以下能够正确计算1+2+3+…+10的程序是

A．Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Sum+I Next I Print Sum End Sub

B．Private Sub Command1_Click() Sum=0，I=1 Do While I＜=10 Sum=Sum+I I=I+1 Print Sum End Sub

C．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop While I＜10 Print Sum End Sub

D．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop Until I＜10 Print Sum End Sub

3． 题图所示电路中，已知U_s1=15V，U_s2=4V，U_s3=3V，R₁=1Ω，R₂=4Ω，R₃=5Ω，求回路电流I和U_ab，U_cd的值。