已知s=1^2+3^2+5^2+...+99^2,请设计程序框图计算s,并写出算法语句.

问题描述:

已知s=1^2+3^2+5^2+...+99^2,请设计程序框图计算s,并写出算法语句.


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