1樓:匿名使用者
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的奇偶數之和:(n為自然數)
2樓:魚木混豬喲
**及註釋如下:復
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
3樓:匿名使用者
自己復新建工程 新增你制的控制元件 加入以下**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
4樓:匿名使用者
這麼簡單 自己改吧。
內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
5樓: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在窗體新增文字框和命令按鈕,利用兩個文字框輸入兩
private sub command1 click text3.text if val text1.text 0 thenmsgbox 第一個數不能為空或包含字元！exit sub end if if val text2.text 0 thenmsgbox 第二個數不能為空或包含字元！exit s...
兩個連續奇數的和除以它們的差，商是6，這兩個奇數是和
兩個連續奇數的差是2，兩個連續奇數的和是 6 2 12，因為5 7 12，所以這兩個連續的奇數是 5 7 故填 5 7 相關知識 加 減 乘 除四種運算統稱四則運算。加法的意義 把兩個 或幾個 數合併成一個數的運算叫做加法。減法的意義 已知兩個加數的和與其中的一個加數求另一個加數的運算叫做減法。減法...
證明任何大於2的偶數可以寫成兩個質數的和
任何大於2的偶數可以寫成兩個質數的和 是著名的哥德 猜想，至今無人證明。1966年陳景潤證明了 1 2 成立，即 任一充分大的偶數都可以表示成二個素數的和，或是一個素數和一個半素數的和 哥德 猜想證明的困難在於，任何能找到的素數，在以下式中都是不成立的。2 3 5 7 pn p pn 2 3 5 7...