VB程式中關於迴圈語句 「FOR」的使用

時間 2022-08-01 20:57:27

1樓:

顯示最後結果有很多方法,我最喜歡用的是:msgbox(s),s就是你的結果。

dim i%,s%就是申明變數,for i=1 to 100 step 2意思就是i從1迴圈到100,每步跨2,迴圈中s的值是前一迴圈s的值加上現在的i值,next i就是進行下一步迴圈。就是這樣

2樓:匿名使用者

很久沒研究vb了,試著 給你解答下 吧,錯了也別怨我

dim i%,s% 『定義兩個變數i跟s

s=0 』初始化變數s

for i=1to100 step2 『指定i從1到100的迴圈運算,步進為2

s=s+i 』s迴圈累加i的值

next i 『單步迴圈結束後繼續下一次迴圈

計算結果就是1+3+5+7.....一直加到99的值

3樓:匿名使用者

他已經解釋了,我就不多說了

要顯示最後答案可以有幾種方法

最簡單的就是print

可以加上一句:print s

或者新建乙個label控制項

在最後加上:

label1.caption =s

又或者新建乙個text控制項

在最後加上:

text1.text=s

4樓:匿名使用者

dim i%,s% 『 定義兩個變數i與s

s=0 』初始化變數s

for i=1to100 step2 『指定i從1到100的迴圈運算,步長為2,也就是迴圈50次

s=s+i 』s迴圈求和,i每次加2,剛好是奇數

next i 『繼續下一次迴圈

text1.text=s 』在窗體中定義個文字框text1,將求和的結果s賦給text1的text屬性。就可以在窗體中顯示出來了。

5樓:趣事情

迴圈結構是程式中一種很重要的結構。在給定條件成立時,可反覆執行某程式段,直到條件不成立為止。給定的條件稱為迴圈條件,反覆執行的程式段稱為迴圈體。

在vb中提供了多種迴圈語句供使用者使用迴圈,下面介紹兩種常用的形式:for語句和do語句。

一、for語句

for迴圈(for……next)語句的基本格式為:

for 迴圈變數=初值 to 終值 step 增量,迴圈體,next 變數

迴圈變數為數值型變數,初值、終值、增量均為數值型表示式。「step 增量」部分可以省略,預設時預設為1。在迴圈體中使用exit

for語句可直接中止迴圈,執行next後面的語句。當增量值為正數時,for迴圈的執行過程如下:

(1) 將迴圈變數賦初值;

(2)比較迴圈變數是否小於等於終值,小於等於時迴圈條件成立,執行一次迴圈體中的語句;如果迴圈條件不成立時,迴圈結束,執行next後面的語句;

(3)遇到next語句,迴圈變數增加增量值,轉到(2)繼續迴圈;

增量值為負數時,for迴圈的執行過程第(2)步不同。比較迴圈變數是否大於等於終值,大於等於時迴圈條件成立,執行一次迴圈體中的語句;如果迴圈條件不成立時,迴圈結束,執行next後面的語句結束。

vb程式中,用for迴圈語句怎麼求2的n次方。求幫忙。謝謝

6樓:匿名使用者

dim a as long

a=1for i = 1 to n

a = a * 2

next

msgbox "2的 " & n & " 次方=" & a

vb中的迴圈語句

7樓:

使用迴圈語句

使用迴圈重複執行**

迴圈用於重複執行一組語句。迴圈可分為三類:一類在條件變為 false 之前重複執行語句,一類在條件變為 true 之前重複執行語句,另一類按照指定的次數重複執行語句。

在 vbscript 中可使用下列迴圈語句:

do...loop: 當(或直到)條件為 true 時迴圈。

while...wend: 當條件為 true 時迴圈。

for...next: 指定迴圈次數,使用計數器重複執行語句。

for each...next: 對於集合中的每項或陣列中的每個元素,重複執行一組語句。

使用 do 迴圈

可以使用 do...loop 語句多次(次數不定)執行語句塊。當條件為 true 時或條件變為 true 之前,重複執行語句塊。

當條件為 true 時重複執行語句

while 關鍵字用於檢查 do...loop 語句中的條件。有兩種方式檢查條件:

在進入迴圈之前檢查條件(如下面的 chkfirstwhile 示例);或者在迴圈至少執行完一次之後檢查條件(如下面的 chklastwhile 示例)。在 chkfirstwhile 過程中,如果 mynum 的初始值被設定為 9 而不是 20,則永遠不會執行迴圈體中的語句。在 chklastwhile 過程中,迴圈體中的語句只會執行一次,因為條件在檢查時已經為 false。

sub chkfirstwhile()

dim counter, mynum

counter = 0

mynum = 20

do while mynum > 10

mynum = mynum - 1

counter = counter + 1

loop

msgbox "迴圈重複了 " & counter & " 次。"

end sub

sub chklastwhile()

dim counter, mynum

counter = 0

mynum = 9

domynum = mynum - 1

counter = counter + 1

loop while mynum > 10

msgbox "迴圈重複了 " & counter & " 次。"

end sub

重複執行語句直到條件變為 true

until 關鍵字用於檢查 do...loop 語句中的條件。有兩種方式檢查條件:

在進入迴圈之前檢查條件(如下面的 chkfirstuntil 示例);或者在迴圈至少執行完一次之後檢查條件(如下面的 chklastuntil 示例)。只要條件為 false,就會進行迴圈。

sub chkfirstuntil()

dim counter, mynum

counter = 0

mynum = 20

do until mynum = 10

mynum = mynum - 1

counter = counter + 1

loop

msgbox "迴圈重複了 " & counter & " 次。"

end sub

sub chklastuntil()

dim counter, mynum

counter = 0

mynum = 1

domynum = mynum + 1

counter = counter + 1

loop until mynum = 10

msgbox "迴圈重複了 " & counter & " 次。"

end sub

退出迴圈

exit do 語句用於退出 do...loop 迴圈。因為通常只是在某些特殊情況下要退出迴圈(例如要避免死迴圈),所以可在 if...

then...else 語句的 true 語句塊中使用 exit do 語句。如果條件為 false,迴圈將照常執行。

在下面的示例中,mynum 的初始值將導致死迴圈。if...then...else 語句檢查此條件,防止出現死迴圈。

sub exitexample()

dim counter, mynum

counter = 0

mynum = 9

do until mynum = 10

mynum = mynum - 1

counter = counter + 1

if mynum < 10 then exit do

loop

msgbox "迴圈重複了 " & counter & " 次。"

end sub

使用 while...wend

while...wend 語句是為那些熟悉其用法的使用者提供的。但是由於 while...wend 缺少靈活性,所以建議最好使用 do...loop 語句。

使用 for...next

for...next 語句用於將語句塊執行指定的次數。在迴圈中使用計數器變數,該變數的值隨每一次迴圈增加或減少。

例如,下面的示例將過程 myproc 重複執行 50 次。for 語句指定計數器變數 x 及其起始值與終止值。next 語句使計數器變數每次加 1。

sub domyproc50times()

dim x

for x = 1 to 50

myproc

next

end sub

關鍵字 step 用於指定計數器變數每次增加或減少的值。在下面的示例中,計數器變數 j 每次加 2。迴圈結束後,total 的值為 2、4、6、8 和 10 的總和。

sub twostotal()

dim j, total

for j = 2 to 10 step 2

total = total + j

next

msgbox "總和為 " & total & "。"

end sub

要使計數器變數遞減,可將 step 設為負值。此時計數器變數的終止值必須小於起始值。在下面的示例中,計數器變數 mynum 每次減 2。

迴圈結束後,total 的值為 16、14、12、10、8、6、4 和 2 的總和。

sub newtotal()

dim mynum, total

for mynum = 16 to 2 step -2

total = total + mynum

next

msgbox "總和為 " & total & "。"

end sub

exit for 語句用於在計數器達到其終止值之前退出 for...next 語句。因為通常只是在某些特殊情況下(例如在發生錯誤時)要退出迴圈,所以可以在 if...

then...else 語句的 true 語句塊中使用 exit for 語句。如果條件為 false,迴圈將照常執行。

使用 for each...next

for each...next 迴圈與 for...next 迴圈類似。

for each...next 不是將語句執行指定的次數,而是對於陣列中的每個元素或物件集合中的每一項重複一組語句。這在不知道集合中元素的數目時非常有用。

VB迴圈語句,vb中的迴圈語句

for 迴圈變數 初賦值 to 終值 step 步長 next 迴圈變數 在預設情況下,step被設為 1 可以省略,step也可以設為負值,例如 dim a 0 for i 1 to 10 a a i next i 這是乙個最簡單的累加器的例子,把1到10累加在一起,然後賦值給 a 這樣的效果和上...

VB中的迴圈語句有哪些,VB中的迴圈語句有哪些

使用迴圈語句 使用迴圈重複執行 迴圈用於重複執行一組語句。迴圈可分為三類 一類在條件變為 false 之前重複執行語句,一類在條件變為 true 之前重複執行語句,另一類按照指定的次數重複執行語句。在 vbscript 中可使用下列迴圈語句 do.loop 當 或直到 條件為 true 時迴圈。wh...

還是關於VB迴圈語句的問題

上次有個朋友提過類似問題,結合msdn上的說法,我的理解是這樣,迴圈開始時會建立乙個迴圈條件,迴圈條件在迴圈過程中不會被改變,如果step是正數,迴圈條件應為迴圈變數 計數器 小於等於計數器的終值,注意這裡,msdn中從未將終值描述成為變數,而對於計數器才描述其為變數,舉例說明 e 10 for i...

vb的if語句中的問題,關於VB中IF語句中的理解問題

這個就是正確的 if text1.text thenmsgbox 請輸入內容 end if if len text1.text 0 and text1.text 正確內容 then msgbox 請輸入乙個正確內容 end if if text1.text 正確內容 thenmsgbox 通過 en...

vb中的for語句,VB中的For語句

一 vb中的for語句格式 for 迴圈變數 初值 to 終值 step步長 迴圈體 exit for next 迴圈變數 二 vb中的for語句功能 當迴圈變數的值在初值到終值範圍內時,執行一次迴圈體中的語句塊,並使初值增加乙個步長。當迴圈變數的值不在初值到終值範圍內時,就退出迴圈,執行next後...