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 '结束
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024