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