for i=1 to 100
if i mod 6 =0 or i mod 8=0 then s=s+sqr(i)
next
msgbox s,0,"结果"
'复制到记事本另存为a.vbs（保存类型-所有文件）
和为20倍根号6
var
i:integer;
s:real;
begin
s:=0
for i:=1 to 100 do
if i mod 6=0 or i mod 8=0 then s:=s+sqr(i);
writeln(s);
readln;
end.
内容全部来源于网络收集，如有侵权，请联系网站删除!
QQ：24596024