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

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

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

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

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

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

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)是以對(duì)象集合中的每一個(gè)元素作為重復(fù)依據(jù)的,如果不知道一個(gè)集合有多少元素，F(xiàn)orEach...Next循環(huán)非常有用。語(yǔ)法格式：

ForEach<元素>In<集合>

語(yǔ)句塊

Next<元素>

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

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

可用ExitDo

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

DoWhile<條件><語(yǔ)句塊>Loop后測(cè)型

Do <語(yǔ)句塊>LoopWhile<條件>條件語(yǔ)句塊Loop的下條語(yǔ)句YesYesNoNo先測(cè)試至少執(zhí)行一次例:國(guó)王的獎(jiǎng)勵(lì)

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

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

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

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

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

項(xiàng)目[,位置]

添加項(xiàng)目。例如：List1.AddItem“王平”,0RemoveItem

位置刪除項(xiàng)目例如：List1.RemoveItem0（刪除第一項(xiàng)）Clear

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

List(i)：

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

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

顯示方式ComboBox

的Style屬性0－DropDownCombo

下拉組合框1－SimpleCombo

簡(jiǎn)單組合框2－DropDownList

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

添加項(xiàng)目。