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...