sum=0,x=1,y=2;
sum=sum+x*y;
x++
y++
如果x≤99,继续 sum=sum+x*y……
否则输出sum
sum=1*2+2*3+3*4+……+99*100
Rem 语言:Visual Basic 6.0
Sub Main() '开始
S = 0 : i = 1
Do
S = S + i * (i + 1)
If Not (i < 99) Then Exit Do
i = i + 1
Loop
MsgBox S, vbInformation, "输出"
End Sub '结束