1樓：魚木混豬喲
**及註釋如下：復
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
jishuhe=jishuhe+i'如果是奇數，就將其累加到技術和變數中
end if
next
msgbox "偶數和為" & oushuhe「，奇數和為"& jishuhe'利用msgbox顯示結果
end sub
2樓：匿名使用者
自己復新建工程 新增你制的控制元件 加入以下**bai即可:
option explicit
private sub form_load()me.caption = "計算"
text1.text = ""
text2.text = ""
text3.text = ""
label1.caption = "請輸入要du就算的zhi數"label2.caption = "偶數和為dao:"
label3.caption = "奇數和為:"
end sub
private sub ***mand1_click()dim i
dim a, b
for i = 1 to val(text1.text)if i mod 2 = 0 then
a = a + i
else
b = b + i
end if
next i
text2.text = a
text3.text = b
end sub
3樓：匿名使用者
這麼簡單 自己改吧。
內for i = 1 to 10 step 2 '奇數和容sum=sum+i
next i
for i = 2 to 10 step 2 '偶數和sum=sum+i
next i
for i = 1 to 10
sum=sum+i
next i
4樓：black_星
private sub ***mand1_click()dim a, b, i
for i = 1 to val(text1.text)if i\2 = 0 then
a = a + i
else
b = b + i
end if
next i
text2.text = a
text3.text = b
end sub
求vb程式設計，兩個按鈕"奇數和"，"偶數和"。輸入整數n，計算1～n之間的奇數和，偶數和，並顯示 30
5樓：匿名使用者
private sub ***mand1_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 ***mand2_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 n之間的隨機整數
看看這個,你一定會懂的 rnd函式 返回 返回一個包含隨機數值的 single。語法rnd number 可選的 number 引數是 single 或任何有效的數值表示式。返回值如果 number 的值是 rnd 生成 小於 0 每次都使用 number 作為隨機數種子得到的相同結果。大於 0 序...
vb求1 n之間能被3整除,但不能被7整除的所有整數之和
private sub command1 click dim i n s n val inputbox n for i 1 to n if i mod 3 0 and i mod 7 0 then s s i next 在vb中，註釋有2種方式 1 以rem關鍵字開頭，並且rem關鍵字與註釋內容之間...
VB編寫程式，計算並輸出下面級數前n項中 n 50 奇數項的和。1 2 3 2 3 4 3 4 5n n 1n
private sub mand1 click dim i as long,sum as longfor i 1 to 50 step 2sum sum i i 1 i 2 next msgbox 級數 bai前du50項奇 zhi數項 dao和為專 屬 sum end sub 編寫程式，計算並輸出...