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編寫簡單的直板手機程式，急求答案，謝謝
程式 該程式的主要目的是要判斷輸入的使用者名稱是否合法，所以我們首先編寫判斷使用者名稱的程式 雙擊 確定 按鈕，新增如下的程式 黑體部分為系統自動生成的 楷體為註釋 private sub command1 click 判斷是否輸入了使用者名稱 if text1.text then 如果text1為...
如何用vb編寫用於結束程序的程式
shell taskkill f im qq.exe vbhide shell taskkill f im qqq.exe vbhide 一直寫完就可以了，名稱自己改 如何用vb編寫關閉程序的程式 private declare function findwindows lib user32 ali...
使用vs2019用vb語言編寫簡單的網頁具體代
一念春風十里不如你 就是最簡單的html 了！這有什麼難度 用vs2012編寫vb程式。等急求！ 嗯很願意幫助你怎麼發給你呢 vs2012中vb語言的form1.move 20,20 form1.left 20 form1.top 20 我猜是這樣！誰能幫我用html語言做一個簡單的網頁?就行 非常...