求用vb實現1到100的和加上1到50的平方和加上1到

2021-12-20 13:49:11 字數 3139 閱讀 9347

1樓:匿名使用者

private sub command1_click()dim s as double

s = 0

for i = 1 to 100

s = s + i

next

for i = 1 to 50

s = s + i ^ 2

next

for i = 1 to 10

s = s + 1 / i

next

msgbox s

end sub

2樓:匿名使用者

現在視窗畫一個command1

**:private sub command1_click()dim s as single

s = 0

for i = 1 to 100

s = s + i

next

for i = 1 to 50

s = s + i ^ 2

next

for i = 1 to 10

s = s + 1 / i

next

msgbox s

end sub

3樓:凌大紹智偉

sub平方和()

dimsum

dimi

aslong

sum=0

fori=1

to100

sum=

sum+i*

inext

iendsub

急!!!!vb程式設計求1加到100的和,5種方法!!!!!

4樓:匿名使用者

option explicit

private sub command1_click()dim i as integer, s as integerfor i = 1 to 100

s = s + i

next

print s

end sub

private sub command2_click()dim i as integer, s as integerdo while i <= 100

s = s + i

i = i + 1

loop

print s

end sub

private sub command3_click()dim i as integer, s as integerdoi = i + 1

s = s + i

loop while i <= 99

print s

end sub

private sub command4_click()dim i as integer, s as integerwhile i <= 100

s = s + i

i = i + 1

wend

print s

end sub

private sub command5_click()dim i as integer, s as integergotonext:

s = s + i

i = i + 1

if i <= 100 then goto gotonextprint s

end sub

vb程式 求1到100之間的自然數的平方和

5樓:匿名使用者

sub 平方和()

dim sum

dim i as long

sum =0

for i = 1 to 100

sum = sum + i * i

next i

end sub

vb程式設計求1到100整數和

6樓:匿名使用者

private sub command1_click()dim a

dim sum

for a = 1 to 100

sum = sum + a

next a

print sum

end sub

最後在窗體上顯示出來的就是你要求的和

7樓:

樓上2位是寫vb呢還是vc?

vb貌似不需要那麼多{}的吧?

看我的!

private sub commandbutton1_click()dim a

dim sum

for a = 1 to 100

sum = sum + a

next a

end sub

8樓:

dim i as integer, s as integerfor i = 1 to 100

s = s + i

next i

s就是要求的

9樓:匿名使用者

static void main(string args)console.writeline("sum=",sum);

console.read();}

10樓:匿名使用者

我不太記的vb的語法了

i=1wile(i>100)

vb從1加到100怎麼列

11樓:己曼寒

直接放在form_load過程中 還得設定窗體autoreadew=true 才能顯示出來

12樓:匿名使用者

i = 0

s = 0

for i = 1 to 100

s = s + i

next

print "s="; s

好好學習,天天向上

用vb編寫1~100每個數的平方和

13樓:硪丨曖戀

sub 平方和()

dim sum

dim i as long

sum =0

for i = 1 to 100

sum = sum + i * i

next i

end sub

1到100的因數,1到100的所有因數

因數是指整數a除以整數b b 0 的商正好是整數而沒有餘數,我們就說b是a的因數。在小學數學裡,兩個正整數相乘,那麼這兩個數都叫做積的因數,或稱為約數。小學數學定義 1 假如a b c a b c都是整數 那麼我們稱a和b就是c的因數。需要注意的是,唯有被除數,除數,商皆為整數,餘數為零時,此關係才...

vb求階乘程式問題,vb中求1到n階乘的和

程式呢,請補充一下吧 option explicit private sub command1 click dim a as integer a int val text1.text text2.text jiec a end sub private function jiec n as integ...

1到10的數字用漢字怎麼寫,數字「1到10」的大寫漢字怎麼寫?

1到10的數字漢字寫法 一 二 三 四 五 六 七 八 九 十。1到10的數字大專寫寫法 壹 貳屬 叄 肆 伍 陸 柒 捌 玖 拾。10之後的十進位制數字寫法 漢字小寫 百 千 萬 億 兆 京 垓 秭 穰 溝 澗 正 載 極。漢字大寫 佰 仟 萬 億 兆 京 垓 秭 穰 溝 澗 正 載 極。1 復1...