vf编写程序,求出1-100之间的奇数的平方和

2025-02-23 15:43:19
推荐回答(2个)
回答1:

参考代码:
clear
s=0
for i=1 to 100
if mod(i,2)=1
s=s+i^2
endif
endfor
?'1-100之间的奇数平方和',s

回答2:

;[VBScript]j = 0
For i = 1 To 99 Step 2
j = j + i ^ 2
Next
MsgBox "Sum = " & j