1樓：我tm不管
private sub form_click()a = 1
for i = 1 to 10
if i mod 2 = 0 then
a = a * i
end if
next
print a
end sub
2樓：
不用算，0也是偶數，所以結果是0。
vb程式設計：1到m之間偶數之積 10
3樓：網海1書生
m=val(inputbox("請輸入m"))s=0for i=2 to m step 2s=s*i
next
msgbox "1到" & m & "之間偶數之積為" & s注意m值不能太大哦，是積不是和
4樓：匿名使用者
private sub command1_click()m = val(inputbox("請輸
bai入du整數
zhim"))
j = 1
for i = 1 to m
if i mod 2 = 0 then
j = j * i
end if
next i
msgbox "偶數
dao的回積為
答" & j
end sub
5樓：
dim sum as long,i as integersum=0
m=100
for i=2 to m step 2
sum=sum+i
next i
用vb程式編寫，求奇數和或者偶數和。
6樓：匿名使用者
private sub command1_click()dim x as long, y as long, sumx as long, sumy as long
x = val(inputbox("輸入奇數範圍"))y = val(inputbox("輸入偶數範圍"))for i = 1 to x step 2sumx = sumx + i
next
for i = 2 to y step 2sumy = sumy + i
next
print "奇數和為：" & sumx
print "偶數和為：" & sumy
end sub
7樓：匿名使用者
是隨機生成的吧？這樣寫：
dim i as integer,s1 as integer,s2 as integer
randomize
for i=1 to 100‘生成100個100以內的數if int(rnd*100) mod 2=0 thens2=s2+1
else
s1=s1+1
end if
print "奇數和";s1
print "偶數和";s2
8樓：
題目不說清楚怎麼弄啊？
首先資料規模是什麼，初始資料是什麼
然後程式的效能要求是什麼
全都不說
而且按照程式設計規則，能用數學解決的問題就不要用程式去解決
vb中怎樣實現計算1n的奇偶數之和n為自然數
及註釋如下 復 private sub mand1 click for i 1 to n i從1到n迴圈 if i mod 2 0 then 利用制mod函式來判bai斷i的值是偶du數還是奇zhi數 oushuhe oushuhe i 如果是偶數，就將其累加dao到oushuhe變數中else j...
20以內不是偶數的合數有既是奇數又是質數的,有
20以內 du偶數 0 zhi2 4 6 dao8 10 12 內14 16 容18 20 奇數 1 3 5 7 9 11 13 15 17 19 質數 2 3 5 7 11 13 17 19 合數 4 6 8 9 10 12 14 15 16 18 20 偶質數 2 奇質數 3 5 7 11 13...
20以內不是偶數的合數有不是奇數的質數有
20以內的不是偶數的合數有 9 15，不是奇數的質數是2。所有20以內的質數為 2 3 5 7 11 13 17 19 所有20以內的合數為 4 6 8 9 10 12 14 15 16 18 質數 prime number 又稱素數，指在大於1的自然數中，除了1和該數自身外，無法被其他自然數整除的...