设定积分则（)A.I₂-I₁₂=0 B.I₂-2I₁=0 C.I₂+2I₁=e D.I₂+2I₁=

写输出下面程序的运行结果 _ _。 Dim a() As Integer Private Sub Command1_Click() ReDim a(1 To 5) For i = 1 To 5 a(i) = i Next i ReDim a(1 To 10) For i = 6 To 10 a(i) = 2 * i Next i For i = 1 To 10 Print a(i); Next i End Sub

下列程序:Option Base 1Private Sub Form_Click()Dim a(5，5)For i ＝ 1 To 5For j ＝ 1 To 5k ＝ k ＋ 1a (i，j)＝ kNext jNext iFor i ＝ 1 To 5s ＝ s ＋ a (i，i)Next iPrint sEnd Sub运行时的输出结果是( )。

窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下： Private Sub Command1_Click Dim a(10)As Integer，b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体，单击命令按钮，文本框Text1中显示的内容是（）。

题3.18图所示电路中，I_S=10A，w=5000rad/s，R₁=R₂=10Ω，C=10μF，μ=0.5，求电阻R₂中的电流I。

设有如下通用过程：Public Sub Fun（a（)，ByVal x As Integer)For i=1 To 5 x=x+a（i)NextEnd Sub在

采用碘量法标定Na₂S₂O₃溶液浓度时，必须控制好溶液的酸度。Na₂S₂O₃与I₂发生反应的条件必须是()

便携式报警仪通常在H₂S浓度超过设定值时进行（），并能持续读出H₂S的浓度值。

在直接碘量法中，以I₂标准滴定溶液滴定Na₂S₂O₃的滴定反应不能在强碱性介质中进行，是为了（）。（1）避免碘的挥发；（2）避免I^-被空气氧化；（3）避免I₂发生歧化反应；（4）避免S₂O^2-₃被氧化成SO^2-₄。

在500.0ml的0.010mol·L^-2Hg（NO₃)₂溶液中,加入65.0gKI（s)后（溶液总体积不变),.生成了[HgI₄]^2-.计算溶液中的Hg²⁺,HgI₄^2-,I^-的浓度.

在题6.35图所示电路中,已知Us=30V,R₁=2Ω,L=5mH,R₂=3Ω,C=0.1μF,t=0时将开关S₁打开,S₂闭合,求u_C,i_L,i_C.

求图题11-6所示电路中的i₁和i₂，已知u_s（t)=100cos（10³+t+30°)V。

设有如下通用过程：Public Sub Fun（a（), ByVal x As Integer)For i=1 To 5x=x+a（i)NextEnd Sub在

在真空中，有两根互相平行的无限长直导线L₁和L₂，相距0.10m，通有方向相反的电流，I₁=20A，I₂=10A，如题8-5图所示。A，B两点与导线在同一平面内.这两点与导线L₂的距离均为5.0cm。试求A、B两点处的磁感应强度，以及磁感应强度为零的点的位置.

图示电路中，电流i₁=（3+5sinwt)A，i₂=（3sinwt-2sin3wt)A，则1欧姆电阻两端电压uR的有效值为（)。

在窗体上画一个名称为Command1的命令按钮。编写如下程序： Option Base1 Private Sub Command1_Click（) Dim a（10) As Integer For i=1 To 10 a（i)=i Next Call swap（（11) ) For i=1 To 10 Print a（i)； Next End Sub Sub swap（b（)As Integer

已知两正弦交流电流为i<sub>1<／sub>=5sin（314t＋30°)A，i<sub>2<／sub>=8sin（314t－45°)A，它们之间的相位差φ=－15°。（)

如题8-25图所示，螺绕环A中充满了铁磁质，管的截面积S为2.0cm²，沿环每厘米绕有100匝线圈，通有电流I₁=4.0x10^-2A，在环上再绕一线圈C，共10匝，其电阻为0.10Ω，今将开关S突然开启，测得线圈C中的感应电荷为2.0x10^-3C。求：当螺绕环中通有电流I₁时，铁磁质中的B和铁磁质的相对磁导率μ_r。

下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素。完成下列程序。 Private Sub Backward（a（))Dim i As Integer, Tmp As IntegerFor i=1 To 5 Tmp=a（i) ______ ______Next i End Sub

阅读程序： Sub p（b（) As Integer) For i=1 To 4 b（i)=2*i Next i End 5ub Private Sub Command1_C1ick（) Dima（1 To 4)As InteSera（1)=5a（2)=6a（3)=7a（4)=8 caU p（a) For i=1 To 4 Pdnt a（i) Next i End Sub 运行上面的程序，单击

在窗体上画—个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click（) a$="National Computer Rank Examination" n=Len（a$) s=0 For i=1 To n b$=Mid（a$,i,1) Ifb$="n" Then s=s+1 End If Next i Print S End Sub 程序

在窗体中添加一个列表框（ListBox1)和一个命令按钮，并编写如下代码： Private Sub Commandl_Click（) Dim a, i, msg msg="Choose OK to add 100 items to your listbox." MsgBox msg For i＝l To 100 a="a：" &i List1. Addltem a Next i End Sub 程

阅读程序： Option Base 1 Private Sub Form_Click（) Dima（3)As Integer Print"输入的数据是:"； Fori=1 To 3 a（i)=InputBox（“输入数据”) Printa（i)； Next Print If a（1)＜a（2) Then t=a（1) a（1)=a（2) a（2)= [10] End If Ifa（2)＞a（3)T

4、以下程序的运行结果为（）。 Option Base 1 Private Sub command1_click（) Dim a（10), p（3) As Integer k = 5 For i = 1 To 10 a（i) = i Next i For i = 1 To 3 p（i) = a（i * i) Next i For i = 1 To 3 k = k + p（i) * 2 Next i Print k End Sub

以下程序用Array（)函数建立了含有10个元素的数组，然后找出并输出了其中的最大值和最小值。 Option Base 1 Private Sub Form_Click（) Dim a Dim max As Integer, min As Integer, i As Integer a = Array（13, 17, -11, 4, 8, 10, 20, -9, 15, 21) max = a（1) min =______（1)______ For i = 2 To 10 If a（i) ＞ max Then ______（2)______ End If If a（i) ＜ min Then ______（3)______ End If Next i Print max, min End Sub