Question

画出计算1^2+3^2+5^2+… +199^2的程序框图

Answer 1

Rem 语言：Visual Basic 6.0

Sub Main() '开始

S = 0 :i = 1

Do

S = S + i ^ 2

If Not (i < 199) Then Exit Do

i = i + 2

Loop

MsgBox S,vbInformation,"输出"

End Sub '结束