发布网友
发布时间：2024-10-24 03:04
共1个回答
热心网友
时间：2024-10-31 03:37
Rem 语言：Visual Basic 6.0
Sub Main() '开始
S = 0 : i = 1
Do
S = S + (-1) ^ (i + 1) * i ^ 2
If Not (i < 100) Then Exit Do
i = i + 1
Loop
MsgBox S, vbInformation, "输出"
End Sub '结束