问题详情

运行下列程序：

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.出错信息