程序填空：求S= 的和，并在窗体上输出来

Private Sub Command1_Click()

Dim i As Integer

Dim s As       ‘(s变量存放总和，此处定义它为单精度变量类型)

For i=1 To 

s=

Next i

Print s

End Sub