VB编程求1—50的偶数平方和与奇数平方差

dim a as integer
dim b as integer
dim n as integer
dim s1 as integer
dim s2 as integer
for n=a to b
if os(n)=true then
s1=s1+n^2
else
s2=s2+n^2
end if
exit n
print s1-s2
'os(n)
判断是否偶数的你自己写吧·
a 就是第一数,b就是尾数,
你可以任意修改