vb编程:s=1*2+2*3+...99*100

Private Sub Command1_Click()
Dim s As Long
Dim n As Integer
n = InputBox("请输入N的值")
s = 0
For i = 1 To n
s = s + i * (i + 1)
Next i
Print "1*2+2*3+3*4+……+N(N+1)的值是"; s
End Sub

dim i as integer
dim sum as long
for i=1 to 99
sum=sum+i*(i+1)
next
print sum

dim i as integer
dim s as double
s=0
for i=1 to 99
s=s+i*(i+1)
next
? "和为" & s