1樓：匿名使用者
private sub command1_click()dim i as integer, s as integeri = 1
s = 0
while i <= 99
s = s + i
i = i + 2
wend
msgbox "s=1+3+5+...99" + str(s)end sub
你應該是用i來控制迴圈，用s來求和，如果你用s=i+1，那你求的只是一個數，s沒有儲存
2樓：匿名使用者
sub madd()
dim i, ss
for i = 1 to 99 step 2ss = ss + i
next
msgbox "1 to 100 奇數和是: " & ssend sub
3樓：匿名使用者
44444444444444444444444444444
4樓：施忠祖平卉
private
subcommand1_click()
dimsum
aslong
dimi
aslong
fori=1
to100
step
2sum
=sum+i
next
iprint
sumend
sub2500
編寫求1到100之間奇數的和。用vb語言。 10
5樓：匿名使用者
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
6樓：匿名使用者
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的奇數的和
7樓：微標印象
private sub command1_click()dim i as integer
dim s as integer
for i = 1 to 100
if i mod 2 <> 0 then
s = s + i
end if
next
msgbox s
end sub
VB求1到100的階乘，VB 任意輸入一個1到100以內的整數,並求出它的階乘
多簡單的問題啊！函式不能巢狀定義你把程式改成private function jiecheng n as integer as long dim result as long dim i as integer result 1 for i 1 to n result result i next i ...
用VB編寫「求100以內3的倍數」的程式
for i 3 to 100 if i mod 3 0 then print i 除以3餘數為0的話，就是3的倍數。next 望。private sub command1 click for i 1 to 100 if i mod 3 0 then i nextexit sub end sub效果 ...
我用100張舊1元到銀行換新的100張1元可以嗎
濟南加密狗公司 這個按說是可以的，就看是營業員的態度，最好是存上後，接著要求提新的出來。呵呵 我想去銀行換100張一元新的人民幣，可以換嗎 可以啊，100元可以換到100張新的一元的人民幣，它是等額的。 一沓是咱們老百姓常用的，銀行叫把，收藏愛好者叫刀，一沓是一百張，不管是一角的還是一元的還是一百的...