Rem 语言：Visual Basic 6.0Sub Main()  '开始  S = 0 : i = 1  Do    S = S + i    If Not (i < 100) Then Exit Do    i = i + 1  Loop...