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