以下程序的输出结果是( )。
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) as Integer
k=5
For I-1 to 10
a(i)=I
Next I
For j=1 to3
p(i)=a(I*j)
Next j
For I=l to 3
k=k+ p (I)*2
Next I
Print k
End Sub

A．33

B．28

C．35

D．37

造粒负荷为35t/h，目前使用鼎际德复配剂，其加入比例1500ppm，分别用4号称和7号称下料，4号称下料比例为500ppm，7号称比例为1000ppm，请问4号称、7号称的下料量。