单选题 在窗体上添加一命令按钮，其名为Command1，然后编写代码如下。
private Sub Command1_Click()
Dim arr(5)As Integer，arr1(5)As Integer
n=3
For i=1 To 5
an(i)=i
arrl(n)=2*n+i
Next
Print arr1(n)；arr(n)
End Sub
程序的运行结果为

【正确答案】 B
【答案解析】[解析] 在给数组赋值时，如果每次都是赋给数组中同一一个成员，那么后面赋值将覆盖掉以前的值。