运行下列程序：
Private Sub Command1_Click()
Dim A(10) As Integer
For i = 1 To 5
A(i) = i
A(i + 5) = i
Next i
For i = 1 To 10
s = s + A(i)
Next i
Debug.Print s
End Sub
单击按钮后，则在立即窗口内显示的结果是()。

A. 5
B. 10
C. 30
D. 出错信息