【单选题】

设有如下通用过程：

Public Sub Fun(a()As Integer,xAs Integer)
For i=1 To 5
　x=x+a(i)
Next
End Sub
在窗体上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private SubCommand1_Click()
Dim arr(5)As Integer,nAsInteger
For i=1 To 5
　arr(i)=i+i
Next
Fun arr,n
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是()。
A．30
B．25
C．20
D．15