1樓：匿名使用者
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
2樓：匿名使用者
是隨機生成的吧？這樣寫：
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
3樓：
題目不說清楚怎麼弄啊？
首先資料規模是什麼，初始資料是什麼
然後程式的效能要求是什麼
全都不說
而且按照程式設計規則，能用數學解決的問題就不要用程式去解決
跪求用vb編寫程式計算1~100之間的奇數和、偶數和。要原始碼。
4樓：個人金融科技理解
語句自己找給思路。
第一種：暴力運算
1.申請2個變數jsum，osum分別放奇數和、偶數和。賦初值0。
2.做個迴圈從1到100，變數用i
2.1 判斷i是否為奇數，是的話jsum=jsum+i，否則osum=osum+i
3.輸出jsum，osum
第二種：推演算法。
由題意有
奇數和=1+3+5+。。。+99=50×（1+99）/2偶數和=2+4+6+。。。+100=50×（2+100）/2直接輸出50×（1+99）/2，50×（2+100）/2兩值如果是求1~n之間的奇數和、偶數和。
n>2則判斷n是否為奇數，如果是則
奇數和=（(n+1)/2）*(1+n)/2偶數和=（(n+1)/2 -1）*(2+n-1)/2不是則奇數和=（n/2）*(1+n-1)/2偶數和=（n/2）*(2+n)/2
5樓：匿名使用者
我只記的大概寫，這也不是很好的演算法。簡單一點就是了。
for i=1 to 100
for j=1 to i
if i%j=0 then 輸出 i
next j
next i
這種演算法很浪費，有一個好一點的，給忘了。如下再寫for i =1 to 100
for j=1 to 平方根i
if i%j=0 then 輸出i
next j
next i
下面這種是比較好的，只是理解的話自己琢磨一下。
上面那比較容易理解一些就是了。
忘了說下，上面是求質數的，我給看理解錯了。
vb程式設計：求1~n中所有偶數之和和奇數之和。
6樓：匿名使用者
private sub form_click()me.cls
dim i, n as integer, sumjs, sumos as single
n = val(inputbox("輸入數字"))for i = 1 to n
if i mod 2 = 0 then
sumos = sumos + i
else
sumjs = sumjs + i
end if
next i
print "偶數和是" & sumos, "奇數和是" & sumjs
end sub
求vb程式設計，兩個按鈕"奇數和"，"偶數和"。輸入整數n，計算1～n之間的奇數和，偶數和，並顯示 30
7樓：匿名使用者
private sub command1_click()dim n as integer
dim s as double
s = 0
n = val(text1.text)
for i = 1 to n
if i mod 2 = 1 then s = s + inext i
text3.text = s
end sub
private sub command2_click()dim n as integer
dim s as double
s = 0
n = val(text1.text)
for i = 1 to n
if i mod 2 = 0 then s = s + inext i
text2.text = s
end sub
編寫求1到100之間奇數的和。用vb語言。 10
8樓：匿名使用者
private sub command1_click()dim i, sum1, sum2 as integersum1 = 0
sum2 = 0
for i = 1 to 100
if i mod 2 = 1 then
sum1 = sum1 + i
else
sum2 = sum2 + i
end if
next i
print "奇數
bai和du為zhi" & sum1
print "偶數
dao和為" & sum2
end sub
9樓：匿名使用者
private sub form_click()dim i as long
dim sum as long
sum = 0
for i = 1 to 100 step 2sum = sum + i
next i
print sum
end sub
跪求用VB編寫程式計算1 100之間的奇數和 偶數和。要原始碼
個人金融科技理解 語句自己找給思路。第一種 暴力運算 1.申請2個變數jsum，osum分別放奇數和 偶數和。賦初值0。2.做個迴圈從1到100，變數用i 2.1 判斷i是否為奇數，是的話jsum jsum i，否則osum osum i 3.輸出jsum，osum 第二種 推演算法。由題意有 奇數...
跪求用VB程式設計計算1 100的奇數 偶數 整數和
爛掉 蘿蔔 dim sumj as integer,sumo as integer,sumz as integer,i as integer private sub form load for i 1 to 100 sumz sumz i if i mod 2 0 then sumo sumo i ...
VB如何編寫這種程式 輸入常數n，若是奇數怎麼怎麼樣，若是偶數怎麼怎麼樣，直到得到常數m為止
網海1書生 don val 請輸入一個數，0退出 if n 0 then exit do elseif n mod 2 0 thenmsgbox 這是偶數 else msgbox 這是奇數 end if loop do while n m if n mod 2 0 then 偶數else 奇數end...