画出计算1^2+3^2+5^2+… +199^2的程序框图
问题描述:
画出计算1^2+3^2+5^2+… +199^2的程序框图
答
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 '结束