VisualBasic循環(huán)程序結(jié)構(gòu)

For…Next循環(huán)語句格式:For<計數(shù)器>=<初值>to<終值>[step<步長>]<語句塊>Next<計數(shù)器>注:<計數(shù)器>必須是數(shù)值型變量步長可正可負(fù)，也可以帶小數(shù)，缺省值為1當(dāng)計數(shù)器達(dá)到或超過終值時，終止循環(huán)?？捎肊xitFor語句強(qiáng)行中止循環(huán)例For…Next循環(huán)的流程圖計數(shù)超過終值？計數(shù)器加上步長（Next語句）語句塊(循環(huán)體)NoYesNext的下條語句如果在循環(huán)體中遇到ExitFor

語句，則強(qiáng)行中止循環(huán)計數(shù)器＝<初值>保存終值和步長（For語句）For<計數(shù)器>=<初值>to<終值>[step<步長>]<語句塊>Next<計數(shù)器>例1：求100以內(nèi)所有奇數(shù)之和S=0 ‘S用于保存累計值，初值為0ForK=1to100step2‘K－計數(shù)器，步長2S=S+K ‘K=1，3，5，…，99NextK‘K+2（步長），再執(zhí)行循環(huán)語句 ‘直到K>=100（終值）Print“100以內(nèi)所有奇數(shù)之和為“;S‘輸出結(jié)果計算：S=1+3+5+7+……+99例2：輸出圖案（P110,例6-7）Fori=1To5‘對1～5行

PrintTab(5+i);‘跳到第5＋i列

PrintString(6-i,“★”);‘打印6-I個★

‘輸出6個空格，i個▲PrintSpc(6);String(i,“▲”);‘再輸出6個空格，6-i個☆

PrintSpc(6);String(6-i,"☆")Nexti注意Tab、Spc和String函數(shù)的用法例3：二重循環(huán)實(shí)例：九九乘法表Form=1To9Forecolor=vbRedprintm;Forecolor=vbBlueForn=1TomPrintTab(n*4);m*n;NextnPrint'換行NextmForEach...Next循環(huán)

ForEach...Next循環(huán)是以對象集合中的每一個元素作為重復(fù)依據(jù)的,如果不知道一個集合有多少元素，F(xiàn)orEach...Next循環(huán)非常有用。語法格式：

ForEach<元素>In<集合>

語句塊

Next<元素>

例：移動窗體中所有控件（Controls)PrivateSubform_Click()Dimob1AsObjectForEachob1InControlsob1.Left=ob1.Left+20Nextob1EndSubDo…Loop語句DoWhile<條件><語句塊>LoopDo<語句塊>LoopWhile<條件>DoUntil<條件><語句塊>LoopDo<語句塊>LoopUntil<條件>Until<條件>

相當(dāng)于Whilenot<條件>

可用ExitDo

中止循環(huán)前測型后測型前測型與后測型的比較條件語句塊Loop的下條語句前測型

DoWhile<條件><語句塊>Loop后測型

Do <語句塊>LoopWhile<條件>條件語句塊Loop的下條語句YesYesNoNo先測試至少執(zhí)行一次例:國王的獎勵

國王要獎勵棋王，棋王要求在棋盤第1格放1粒麥子，第2格加倍，第3格再加倍，直到放到第64格。國王想一想就同意了。國王糧倉里有10萬噸麥子，1粒麥子只有0.1克，請問國王的麥子可以獎勵棋王到棋盤的第幾格？例:國王的獎勵（程序）PrivateSubCommand1_Click()DimqAsSingle,kAsIntegerq=0.0001:k=1:s=q’初值q=0.1g，k=1（第1格）DoWhiles<1E8’10萬噸

k=k+1:q=q*2:s=s+qLoopPrint"第"&k&"格"EndSubListBox（列表框）及其主要屬性

用于顯示項目列表。用戶可以從列表框中的一系列選項中選擇一個或多個選項。主要屬性：List(i)：

設(shè)置列表框中包含的項（數(shù)組）ListIndex：

當(dāng)前所選列表項的下標(biāo)ListCount：列表項的總數(shù)Text：當(dāng)前項文本內(nèi)容MultiSelect：設(shè)置是否能夠做多個選擇Selected(i)：數(shù)組，選中的項（Boolean）Sorted：設(shè)置是否按字母順序排列各項例ListBox（列表框）的主要方法AddItem

項目[,位置]

添加項目。例如：List1.AddItem“王平”,0RemoveItem

位置刪除項目例如：List1.RemoveItem0（刪除第一項）Clear

刪除所有項目例如：List1.Clear例ComboBox（組合框）及其主要屬性文本框與列表框的組合，其主要屬性與列表框相同

List(i)：

設(shè)置組合框中包含的項（數(shù)組）ListIndex：

當(dāng)前所選列表項的下標(biāo)ListCount：列表項的總數(shù)Text：當(dāng)前項文本內(nèi)容Sorted：設(shè)置是否按字母順序排列各項Style:

顯示方式ComboBox

的Style屬性0－DropDownCombo

下拉組合框1－SimpleCombo

簡單組合框2－DropDownList

下拉列表框組合框-ComboBox的方法AddItem

添加項目。