画一个流程图1平方-2平方+3平方-4平方.-100平方的

Question

画一个流程图 1平方-2平方+3平方-4平方.-100平方的

Answer 1

Rem 语言：Visual Basic 6.0
Sub Main()  '开始
  S = 0 : i = 1
  Do
    S = S + (-1) ^ (i + 1) * i ^ 2
    If Not (i < 100) Then Exit Do
    i = i + 1
  Loop
  MsgBox S, vbInformation, "输出"
End Sub  '结束