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中計算所有字元的ascii碼之和並顯示
網海1書生 都怪提問者沒有把問題說清楚，按我的理解，提問者的意思是拿出一段文字，然後計算這段文字中所有字元的ascii碼之和，如果只是計算所有字元的ascii碼之和，那麼只要用個簡單迴圈就可搞定，我想提問者不會連這點都不懂吧？所以樓上兩位都可能理解錯了。ss 這裡是一段要計算ascii碼總和的文字a...
20以內 含20 的奇數有,偶數有
奇數有1，3，5，7，9，11，13，15，17，19 偶數有0，2，4，6，8，10，12，14，16，18，20 20以內的偶數有 奇數有 質數有 合數有 20以內的偶數有 2 4 6 8 10 12 14 16 18 20 奇數有 1 3 5 7 9 11 13 15 17 19 質數有 2 ...
求c語言一百以內所有偶數的階乘之和
流13氓2兔 我這有乙個算100的階乘的程式，你可以看一下100的階乘是多少 數值太大了，你的longdouble根本裝不下，可能是你超過了它的取值範圍，本來數的符號位也被進製了，所以系統判定為負數 include int main int bits1 1 int i,j,n printf 請輸入乙...