[单项选择题] 设有如下程序： Private Sub Form_Click() Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As I

[单项选择题] 设有如下程序：

Private Sub Form_Click()

Dim ary(1 To 5)As Integer

Dim i As Integer

Dim sum As Integer

For i=1 To 5

ary(i)=i+1

sum=sum+ary(i)

Next i

Print sum

End Sub

程序运行后，单击窗体，则在窗体上显示的是( )。

A．15

B．16

C．20

D．25

C

本题是一个简单的循环累加问题，在每次循环中累加i+1，即最后输出结果为2+3+4+5+6=20。