为各项工作提供通讯联络是公安秘书工作。( )

下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form Click()
Dim i As Integer
Dim sum As Long
Dim t As Long
t=1:sum=0
For i=1 To 3
t=t*i
sam=sum+t
Next i
Print sum
End Sub

A．3

B．9

C．5

D．6