1樓：匿名使用者
function jiafa(n as integer) as long
for i = 1 to n step 2s = s + i
next i
jiafa = s
end function
private sub form_click()he = jiafa(100)
print he
end sub
2樓：匿名使用者
private sub command1_click()text1.text = addnumbers(100, 2,1) '1,3,5,
end sub
private function addnumbers(byval lmax as long, byval nstep as integer,by nstart as integer) as long
dim sum as long
dim i as long
for i = nstart to lmax step nstepsum = sum + i
next
addnumbers = sum
end function
3樓：匿名使用者
以下為你要的函式：sumf的值即為100以內的有奇數的各，結果為2500
private function sumf() as integerdim x as integer, sum as integerfor x = 1 to 100 step 2sum = sum + x
next x
sumf = sum
end function
編寫求1到100之間奇數的和。用vb語言。 10
4樓：匿名使用者
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
5樓：匿名使用者
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到1000以內所有奇數之和」（do while 結構）
6樓：夏永烽
private sub command1_click()dim i as integer
dim s as integer
s = 0: i = 0
do while i <= 1000
i = i + 1:
if i mod 2 = 1 then
s = s + i
end if
loop
print "計算1至1000之間的奇數之和為："; send sub
沒有學過vb但是樓主的程式確實存在問題，這樣改回一下應該答差不多了，對於樓上說的溢位問題就要看整形數的表示範圍了。
7樓：聽不清啊
這個題目抄
不需要if語句的
。bais定義為integer會溢位的du。
private sub command1_click()dim i as integer
dim s as long
s = 0: i = 1
do while i < 1000
s = s + i: i = i + 2
loop
print "計算1至zhi1000之間的奇數之dao和為："; send sub
用vb.net的for語句怎麼編寫1到100所有奇數的和啊 ！！！馬上要考試了 急！！！ 20
8樓：快餐包
dim result as long = 0 'result定義為所有基數的和,並初始化為0
dim i as integer
for i = 1 to 100
if i mod 2 =1 then
result = result +1
end if
next
-------------
基本上大概就這樣吧··比較簡單，只要你理清楚思路就可以了··
9樓：匿名使用者
直接這樣，更簡單易懂：
i從1至100，每次步長為2：即1+3+5+7...+99for i=1 to 100 step 2sum=sum + i
endif
next i
注：數值小,無需定義型別！
10樓：
奇數可以直接用
num mod 2 = 1 來判斷了~ mod 是取餘運算,為什麼可以這樣判斷就不說了!
dim sum as integer '用來儲存奇數和
dim i as interger '控制迴圈
dim num as interger '當前整數
for i=1 to 100
if num mod 2 =1 then 'num為奇數,剛將其加到sum中
sum=sum + num
end if
num = num +1 '迴圈一次,num的值累加一次!
next
'下面可以輸出你的奇數和,比如放到lable,text,msgbox等!
用vb編寫簡單的直板手機程式，急求答案，謝謝
程式 該程式的主要目的是要判斷輸入的使用者名稱是否合法，所以我們首先編寫判斷使用者名稱的程式 雙擊 確定 按鈕，新增如下的程式 黑體部分為系統自動生成的 楷體為註釋 private sub command1 click 判斷是否輸入了使用者名稱 if text1.text then 如果text1為...
求用C編寫簡單的類，求用C 編寫一個簡單的類！！！
引用名稱空間 using system using system.collections.generic using system.linq using system.text 當前類的名稱空間定義 namespace businesslogicset 方法 public int getstuden...
用vb編寫求元素的一維陣列A，使用INPUTBOX函式賦值，輸出最小元素的值及其下標
尤在尤存 一樓有問題.dim a 19 as double for i 0 to 19 a i inputbox 請輸入一個數 next dim min1 as double 記錄最小值dim min2 as integer 記錄下標min1 a 0 min2 0 要賦初值for i 1 to 19...