1樓：爛掉の蘿蔔
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
else
sumj = sumj + i
end if
next
text1.text = sumz & vbcrlf & sumj & vbcrlf & sumo
end sub
2樓：
dim s as integer
s = 0
for i = 1 to 100 '整數s=s+i
next i
for i = 1 to 100 '偶數i = i+1
s=s+i
next i
for i = 1 to 100 '奇數s=s+i
i = i+1
next i
3樓：sherilyn_樹
奇數和dim i as integer,sumi as integer
for i=1 to 100 step 2sumi=0
sumi=sumi+i
next i
print sum
偶數和dim j as integer，sumj as integer
for j=2 to 100 step 2sumj=sumj+j
next j
print sumj
1-100整數和
dim k as integer, sumk as integerfor k=1 to 100
sumk=sumk+k
next k
print sumk
跪求用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程式設計，兩個按鈕"奇數和"，"偶數和"。輸入整數n，計算1～n之間的奇數和，偶數和，並顯示 30
6樓：匿名使用者
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
用vb求1到100間所有偶數和
7樓：匿名使用者
啟動vb
新建一個exe工程
雙擊窗體form1
在開啟的**視窗輸入以下**：
private sub form_load()dim i, s as integer
s = 0
for i = 2 to 100 step 2s = s + i
next i
form1.caption = str(s)end sub
之後按下f5鍵即可在程式預設窗體的標題欄中看到1到100間所有偶數和
8樓：
sub calc()
dim a as integer
dim b as integer
b=0for a=0 to 100 step 2b=b+a
next a
msgbox "1至100的所有偶數和是" & b , vbinformation , "完成"
end sub
9樓：
for i = 1 to 100
if i mod 2 = 0 then k = k + inext
print k
跪求用VB編寫程式計算1 100之間的奇數和 偶數和。要原始碼
個人金融科技理解 語句自己找給思路。第一種 暴力運算 1.申請2個變數jsum，osum分別放奇數和 偶數和。賦初值0。2.做個迴圈從1到100，變數用i 2.1 判斷i是否為奇數，是的話jsum jsum i，否則osum osum i 3.輸出jsum，osum 第二種 推演算法。由題意有 奇數...
“求1到10的階乘之和”用vb怎麼程式設計序
先寫一個求階乘的函式 private function factorial byval n as integer as long dim i as integer,l as longl 1 for i 1 to n l l i next factorial l end function 新增一個按鈕...
用VB做簡單的計算器，該怎麼做，用VB做一個簡單的計算器，該怎麼做？
du瓶邪 option explicit dim op1,op2 前面輸入的運算元 dim decimalflag as integer 小數點仍然存在嗎？dim numops as integer 運算元個數 dim lastinput 指示上一次按鍵事件的型別 dim opflag 指示未完成的...