一个粮仓装满稻谷后上半部是圆锥形，下半部是圆柱形．粮仓的底面周长是18.84米，圆柱高2米，圆锥高0.6米，如果每立方米稻谷重600千克，这个粮仓装有多少千克稻谷？

下列程序运行后的输出结果是______。
Private Sub f(k,s)
s = 1
for j = 1 To k
s=s*j
Next j
End Sub
Private Sub Command1_ Click ()
Sum = 0
for i = 1 To 3
Call f(i, s)
Sum = Sum + s
Next i
Print Sum
End Sub

A．0

B．3

C．6

D．9