参考代码:clears=0for i=1 to 100if mod(i,2)=1s=s+i^2endifendfor?'1-100之间的奇数平方和',s
;[VBScript]j = 0For i = 1 To 99 Step 2j = j + i ^ 2NextMsgBox "Sum = " & j