试用VB程序语言写出主要程序段：求S=1!+2!+3!+……+99!的值

Private Sub Command1_Click()
Dim S As Double, jc As Double
jc = 1
For i = 1 To 99
jc = jc * i
S = S + jc
Next
Print "S="; S
End Su