求1^2+2^2+•••+99^2+100^2的程序框图

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