在企业财产保险经营中，保险人按照______，分别制定级差费率。

A．投保人的财务实力
B．投保人交纳的保险费多少
C．被保险财产的种类
D．被保险财产的保价数

下列程序的输出结果是 【16】 。
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2)
End Sub