用VB程式編寫過程來計算1 2 3 4100的值

2021-05-04 21:49:23 字數 3495 閱讀 5881

1樓:因特兒

private sub command1_click()dim sum as integer '定義變數sum,i為整形dim i as integer

sum=0'給sum賦值

for i = 1 to 100 』for迴圈sum = sum + i '迴圈過程每次給sum加一next i

print sum 』輸出sum和

end sub

2樓:匿名使用者

dim a as integer '首項

dim b as integer '末項

dim c as integer '項數

dim d as integer '結果

public sub add()

a = inputbox("首項", "")b = inputbox("末項", "")c = inputbox("項數", "")d = (a + b) * c / 2

msgbox d

end sub

private sub form_load()call add

end sub

針對這個問題首項=1,末項=100,項數=100end sub

3樓:

private sub button1_click()dim i as integer, j as integerj = 0

for i = 1 to 100

j += i

next i

msgbox(j)

end sub

vb程式設計計算1+2+3+4……+100的值

4樓:紅山人

private sub form_click()dim s as integer

for i = 1 to 100

s = s + i

next i

print "1+2+....+100="; send sub

c語言程式編寫 計算表示式 1 + 2 + 3 + ...... + 100的值。

5樓:四舍**入

c語言程式編寫 計算表示式 1 + 2 + 3 + ...... + 100的值可以參考下面的**:

#include

void main()

擴充套件

資料:

1、for迴圈最簡形式為:for( ; ; )2、for迴圈一般形式為:

for(單次表示式;條件表示式;末尾迴圈體)其中,表示式皆可以省略,但分號不可省略,因為「;」可以代表一個空語句,省略了之後語句減少,即為語句格式發生變化,則編譯器不能識別而無法進行編譯。for迴圈小括號裡第一個「;」號前為一個為不參與迴圈的單次表示式。

6樓:深海魔龍

這個自己想想吧,等差數列,一個迴圈。 偽** for(int i = 1;i<=100 ;i++);

7樓:慧雪

#include

main()

8樓:匿名使用者

#include

#include

int main()

printf("sum = %d\n", sum);}

9樓:匿名使用者

int i,sum=0;

for(i=1;i<=100;i++)

主要就這些了

vb程式設計 利用迴圈實現計算1+2+3+4+…+100的值。 怎麼做 50

10樓:匿名使用者

public class form1

dim i as integer

dim result as integer = 0private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.

click

for i = 1 to 100

result = result + i

next

textbox1.text = result.tostringend sub

end class

事件通過button1觸發,結果由textbox顯示出來。

11樓:匿名使用者

public class test

system.out.println(sum);}}

看一下吧 剛給你寫的

12樓:匿名使用者

dim t as long

dim m as integer

for m= 1 to 100

t=m+t

next m

13樓:匿名使用者

dim i as long, counter as longfor i = 1 to 99

counter = counter + inext

msgbox counter

測試無誤

14樓:匿名使用者

private sub form_click()dim sum, i as integerdo while i <= 100

s = s + i

i = i + 1

loop

print s

end sub

15樓:

private sub form_click()dim i as integer, counter as integer

for i = 1 to 100

counter = counter + inext

msgbox counter

end sub

vb中運用計數迴圈結構計算出1+2+3+4+......+100的結果**?

16樓:匿名使用者

private sub form_click()dim s as integer, i as integers = 0

i = 1

dos = s + i

i = i + 1

loop until i = 101

print "s="; s

end sub

執行結果:

s= 5050

17樓:匿名使用者

vb你都會,地球人真是無法阻擋你了,

vb程式設計求1+2+3+4+……+100的值怎麼編

18樓:匿名使用者

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

n=n+i

next

print n

用VB編寫程式,計算求123456200的值

dim n as long,m as longdim i as long n val text1.text m 0for i 1 to n m m 1 i i next i text2.text m end sub 用vb程式設計計算1 2 3 4 5 6 n的值,n由文字框輸入 樓上的程式,個人認...

編寫VB程式編寫Sub過程把任意十進位制數N分別轉換成

private function dectopoint value as long,flag as long as string dim c as long dim r as long c value if flag 16 then dectopoint hex c exit function en...

vb編寫用於求隨機數的程式,vb編寫一個用於求隨機數的程式

private sub form mousedown button as integer,shift as integer,x as single,y as single dim i as integer,f as doublerandomize if button vbkeylbutton the...