1. vb奇数、偶数代码
奇数个奇数为奇数，偶数个奇数为偶数。
2. vb中怎样实现计算1—n的奇偶数之和：（n为自然数）
代码及源注释如下：
Private sub command1_click()
for i=1 to n'i从1到n循环
if i mod 2=0 then'利用mod函数来判断i的值是偶数还是奇数
oushuhe=oushuhe+i'如果是偶数，就将其累加到oushuhe变量中
else
jishuhe=jishuhe+i'如果是奇数，就将其累加到技术和变量中
end if
next
msgbox "偶数和为" & oushuhe“，奇数和为"& jishuhe'利用msgbox显示结果
end sub