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