（16分）某同学要测量一均匀新材料制成的圆柱体的电阻率步骤如下：

（1）用螺旋测微器测量其直径如右下图，可知其直径为     mm；

（2）用多用电表的电阻“×10”挡，按正确的操作步骤测此圆柱体的电阻，表盘的示数如图，则该电阻的阻值约为          Ω。

（3）该同学想用伏安法更精确地测量其电阻R，现有的器材及其代号和规格如下：

待测圆柱体电阻R

电流表A₁（量程0～3mA，内阻约50Ω）

电流表A₂（量程0～10mA，内阻约30Ω）

电压表V₁（量程0～3V，内阻约10kΩ）

电压表V₂（量程0～15V，内阻约25kΩ）

直流电源E（电动势3V，内阻不计）

滑动变阻器R₁（阻值范围0～15Ω，允许通过的最大电流2.0A）

滑动变阻器R₂（阻值范围0～2kΩ，允许通过的最大电流0.5A），

开关S、导线若干。为使实验误差较小，要求便于调节且测得多组数据进行分析，所选电流表　 　；电压表　 　；滑动变阻器　 　（填所选器材的符号），并在右上框中画出测量的电路图。

（4）如果实验中电流表示数为I，电压表示数为U，并测出该棒的长度为L、直径为d，则该材料的电阻率ρ=                  （用测出的物理量的符号表示）.

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(5)As String
For i=1 To 5
a(i):Chr(Asc("A")+(i-1))
Next i
For Each b In a
Print b;
Next
End Sub
程序运行后，单击命令按钮，输出结果是( )。

A) ABCDE
B) 1 2 3 4 5
C) abcde
D) 出错信息