VB程序-循環(huán)結(jié)構(gòu)、列表框和組合框ppt課件

1、1,第五章 循環(huán)結(jié)構(gòu)、列表框和組合框,5.1 循環(huán)語句 5.2 循環(huán)嵌套 5.3 列表框和組合框,2,5.1 循環(huán)語句,5.1.1 ForNext結(jié)構(gòu),For 循環(huán)變量=初值 To 終值 Step 步長 Exit For Next 循環(huán)變量,具體格式,3,1）計算初值、終值及步長表達式的值，并將初值賦給循環(huán)變量； （2）判斷循環(huán)變量的值是否“超過”終值： 當步長為正時，“超過”是指循環(huán)變量的值終值； 當步長為負時，“超過”是指循環(huán)變量的值終值； 若“超過”時，退出循環(huán)，轉(zhuǎn)到Next語句的下一語句； （3）執(zhí)行循環(huán)體中的語句； （4）執(zhí)行Next語句，循環(huán)變量增加一個步長； （5）返回第（2）步

2、,基本步驟,4,結(jié)構(gòu)流程圖,5,1）“循環(huán)變量” 必須為數(shù)值型； （2）“初值”、“終值”為數(shù)值表達式，若值不是整數(shù)，系統(tǒng)會自動取整； （3）“步長”為數(shù)值表達式，可為正數(shù)，也可為負數(shù)，若值不是整數(shù)，系統(tǒng)會自動取整；分步長大于0、步長小于0、步長等于0這幾種情況。步長等于1時，可省略Step子句； 例如： For i10 To 1 Step 1 Print i Next i,注意事項,6,4）循環(huán)次數(shù)的計算公式： 循環(huán)次數(shù)Int(終值-初值)步長+1)， 若所得為負數(shù)，則取循環(huán)次數(shù)0。 （5）循環(huán)必須遵循“先檢查、后執(zhí)行”的原則。 （6）Exit For語句。該語句允許在循環(huán)體內(nèi)出現(xiàn)一次或多次

3、。 （7）Next后面的循環(huán)變量與For語句中的循環(huán)變量必須相同，且兩者必須成對出現(xiàn)。 （8）在For循環(huán)體中改變循環(huán)控制變量的值，將會影響循環(huán)次數(shù)。 例如： Dim s As Integer,i As Integer For i1 To 10 s=s+i ii+1 Next i,執(zhí)行幾次,5次,7,例題,1、單擊窗體時，在窗體上打印輸出5個“_”符號,8,程序代碼如下： Private Sub Form_Click() For i = 1 To 5 Print _ 循環(huán)體 Next i End Sub,9,2、通過循環(huán)變量的變化在窗體上輸出彩色字，程序運行界面如圖所示,10,11,Priva

4、te Sub Form_Click() Dim i As Integer, green As Integer, blue As Integer Randomize Timer For i = 1 To 2000 Step 200 green = Int(255 * Rnd + 1) blue = Int(255 * Rnd + 1) CurrentX = 500 + i CurrentY = 500 + i ForeColor = RGB(i, green, blue) Print 歡迎來到VB世界 Next i End Sub,12,編寫程序找出100999之間的所有“水仙花數(shù)”。所謂“水仙

5、花數(shù)”是指一個三位數(shù)，其各位數(shù)字的立方和等于該數(shù)本身,13,Private Sub Form_Click() Dim x As Integer Dim y As Integer Dim z As Integer For i = 100 To 999 x = i 100 y = (i - x * 100) 10 z = i - x * 100 - y * 10 If x 3 + y 3 + z 3 = i Then Text1.Text = Text1.Text 九九乘法表 Print Tab(45); = For i = 1 To 9 For j = 1 To i s = i Next j P

6、rint Next i End Sub,41,在窗體上打印星號“*”矩形,42,Private Sub Command1_Click() Dim n As Integer n = Val(Text1.Text) For i = 1 To n For j = 1 To n Print *; Next j Print Next i End Sub,43,5.3 列表框與組合框,1.常用屬性 (1) Columns屬性：用于設(shè)置列表項排列的列數(shù)。 取值為0，按單列顯示，垂直滾動條；取值為1，按單列顯示，水平滾動條；取值大于1，多列顯示。 (2) List屬性：是一個字符型數(shù)組，用于存放列表框的選項內(nèi)

7、容，其元素與列表的選項相對應(yīng)，下標從0開始。 (3) ListCount屬性：列表框中條目的個數(shù)，ListCount-1表示最后一項的序號。只能在程序中引用,5.3.1 列表框,44,4) ListIndex屬性：表示運行時被選定的選項的序號（下標）。只能在程序中引用。 (5) Selected屬性：一個邏輯型數(shù)組，表示運行時對應(yīng)選項被選中或未被選中。只能在程序中引用。 (6) Sorted屬性：列表框中的條目是否按字母順序排列顯示。只能在屬性窗口設(shè)置。 (7) Text屬性：返回當前被選中項目的文本內(nèi)容。只能在程序中引用。 (8) MultiSelect屬性：設(shè)置能否多項選項以及如何進行選擇

8、。只能在屬性窗口設(shè)置。 (9) Style屬性：設(shè)置控件外觀,45,2.常用方法 (1) AddItem方法 格式：列表框名AddItem ，下標 說明：用于在列表框指定位置上添加一個新項目。如果下標省略，則把文本添加到列表框的尾部，下標范圍從0到ListCount-1。 (2) Clear方法 格式：列表框名Clear 說明：用于清除列表框中的全部內(nèi)容。執(zhí)行該方法后，ListCount重新被設(shè)置為0,46,3.事件 列表框能夠響應(yīng)Click事件和DblClick事件。如果在Click事件中有代碼，則DblClick事件將永遠不會被觸發(fā)，因為Click事件是優(yōu)先被觸發(fā)的事件,3) Remove

9、Item方法 格式：列表框名RemoveItem 說明：用于刪除列表框中指定位置上的項目，下標必須小于ListCount-1，否則程序出錯,47,1.特有屬性 (1) Style屬性：決定組合框的類型和顯示方式。 取值為0，下拉式組合框；取值為1，簡單組合框，沒有下拉箭頭；取值為2，下拉列表式組合框。 (2) Text屬性 獲取組合框當前選定項目值的最簡單最常用方法就是使用Text屬性。組合框在運行時Text屬性都與最后文本框中顯示的文本相對應(yīng)。該文本既可以是選中的列表項目，也可以是用戶在文本框中輸入的文本,5.3.2 組合框,MultiSelect、Selected屬性與列表框形同,48,2.事件 組合框響應(yīng)的事件與Style屬性有關(guān)。 Style=0時，能響應(yīng)Click、Change和DropDown事件。 Style=1時，能響應(yīng)DblClick、Click