用VB编写程序分别求400--500以内奇数、偶数之和

function sumbetween(mybegin as long,myend as long,myleft as long) as long
dim i as long
d as long
d=0
for i= mybegin to myend
if i mod2 =myleft then d=d+i
next i
sumbetween=d
end function
'现在你就是这个函数帮你算得了sumbetween(400,500,0)为偶数。当把零换为1时为奇数
我要说的是400和500都包括在其中不包括在其中的话你自己处理一下我也不知道你要不要两头的！！

能被2整除的就是偶数，否则就是奇数，加起来就可以了阿

恩
对的