Question

设计一个求1*2+2*3+3*4+……+99*100的值的程序框图.

Answer 1

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

Answer 2

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  '结束