如何用for循环语句计算出1+2+3+.1000的和并且计算1*2*3...*1000的积

如何用for循环语句计算出1+2+3+.1000的和并且计算1*2*3...*1000的积
用vb
我把程序写成这样为什么没有结果,应该怎么改了!
这是和
Dim i,s As Integer
s= 0
For i = 1 To 1000
s = s + i
Next i
这是积
Dim i,s As Integer
s= 0
For i = 1 To 1000
s = s * i
Next i
加法改好了可是乘法就没办法求出了 下面这条应该怎么改好了!
Dim i,n As Long
n = 1
For i = 1 To 1000
n = n * i
Next