如何用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

答案

dim i as integer
dim sum,ji
sum=0
ji=1
for i to 1000
sum=sum+i
ji=ji*i
next i
print sum
print ji
你没输出语句啊