【文章內(nèi)容簡(jiǎn)介】 Show Sum = 0 Do While True 39。條件為真，循環(huán)無(wú)終止進(jìn)行下去 x = Val(InputBox(請(qǐng)輸入要加入的數(shù) (1表示結(jié)束 ), 輸入數(shù)據(jù) )) If x = 1 Then Exit Do End If Sum = Sum + x = Sum Loop MsgBox (累加運(yùn)算結(jié)束 ) End Sub 以 1作為“終止循環(huán)標(biāo)志” 例 設(shè)計(jì)一個(gè) “ 加法器 ” 程序 中國(guó)最大的資料庫(kù)下載 多重循環(huán)是指循環(huán)體內(nèi)含有循環(huán)語(yǔ)句的循環(huán) 例 多重循環(huán)程序示例 程序運(yùn)行結(jié)果 Private Sub Form_Load() 1 5 Show 1 6 For i = 1 To 3 ?外循環(huán) 1 7 For j = 5 To 7 ?內(nèi)循環(huán) 2 5 Print i, j 2 6 Next j 2 7 Next i 3 5 End Sub 3 6 3 7 注意內(nèi)、外循環(huán)層次要分清，不能交叉 多 重 循 環(huán) 中國(guó)最大的資料庫(kù)下載 本例可采用 兩重循環(huán) 來(lái)實(shí)現(xiàn)。外循環(huán)控制輸出 7行，內(nèi)循環(huán)控制每行輸出要求的字符數(shù)。 在進(jìn)入內(nèi)循環(huán)之前，使用 Print Tab()來(lái)對(duì)起始輸出位置定位，退出內(nèi)循環(huán)后，使用 Print來(lái)控制換行。 例 編一程序，輸出下列所示的圖形 中國(guó)最大的資料庫(kù)下載 采用 Print直接在窗體上輸出結(jié)果，程序代碼如下： Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 i)。 For j = 1 To 2 * i 1 Print Chr(i + 48)。 Next j Print Next i End Sub Print Chr(i+48)與 Print i有所不同 中國(guó)最大的資料庫(kù)下載 (1)分析 ：設(shè)一元硬幣為 a枚，二元硬幣為 b枚，五元硬幣為 c a+b+c=10 a+2b+5c=25 采用兩重循環(huán)，外循環(huán)變量 a從 0～ 10，內(nèi)循環(huán)變量 b從 0～ 10 (2)創(chuàng)建應(yīng)用程序的用戶(hù)界面 例 取一元、二元、五元的硬幣共十枚，付給 25元錢(qián)，有多少種不同的取法 ? 中國(guó)最大的資料庫(kù)下載 (3)編寫(xiě)程序代碼 程序通過(guò) Print方法把處理結(jié)果輸出在標(biāo)簽的下方 Private Sub Form_Load() Show CurrentX = 0 : CurrentY = 1500 39。確定開(kāi)始顯示的坐標(biāo) Print , 五元 , 二元 , 一元 n = 0 39。記錄解的組數(shù) For a = 0 To 10 For b = 0 To 10 c = 10 b a If a + 2 * b + 5 * c = 25 And c = 0 Then n = n + 1 Print (。 n。 ), c, b, a End If Next b, a End Sub 中國(guó)最大的資料庫(kù)下載 列表框和組合框都能為用戶(hù)提供若干個(gè)選項(xiàng)，供用戶(hù)從中任意選擇 兩種控件的特點(diǎn)是為用戶(hù)提供大量的選項(xiàng)但又占用很少的屏幕空間，操作簡(jiǎn)單方便 中國(guó)最大的資料庫(kù)下載 1. 列表框的用途 列表框 (ListBox)用于列出可供用戶(hù)選擇的項(xiàng)目列表，用戶(hù)可從中選擇一個(gè)或多個(gè)選項(xiàng)。 自動(dòng)出現(xiàn)滾動(dòng)條 表項(xiàng) 索引 2. 常用屬性 (1)Name屬性 (2)List屬性：該屬性是一個(gè)字 符型數(shù)組 , 用于存放列表框的表項(xiàng) 數(shù)組的下標(biāo)從 0開(kāi)始 圖 ， (0)的值為 “教授”， (1)的值為“副教授” 列表框 中國(guó)最大的資料庫(kù)下載 (3)ItemData屬性 ：為每個(gè)表項(xiàng)設(shè)置一個(gè)對(duì)應(yīng)的數(shù)值 (4)ListCount屬性 ：返回列表框中表項(xiàng)的數(shù)目 (5)ListIndex屬性 ：返回已選定表項(xiàng)的順序號(hào) (索引 )。若未選定任何項(xiàng)，則 ListIndex的值為 1 (6)Text屬性 ：存放當(dāng)前選定表項(xiàng)的文本內(nèi)容 (7)Selected屬性 ：邏輯值，表示列表框中某一表項(xiàng)是否被選中 (8)Sorted屬性 ：設(shè)置列表框中各表項(xiàng)在運(yùn)行時(shí)是否按字母順序排列 (9)MultiSelect屬性 ：設(shè)置是否允許同時(shí)選擇多個(gè)表項(xiàng) 中國(guó)最大的資料庫(kù)下載 假設(shè)列表框 List1中有四個(gè)表項(xiàng)，并已選定第 2項(xiàng)，則 有： (0)的值為”教授” 個(gè)數(shù) 為 4 為 1 ”副教授” (1)為 True (0)為 False 采用以下方法，可為列表框 List1賦值： （ 1）在屬性窗口中設(shè)置 （ 2）利用 AddItem賦值 (3) 利用 List屬性賦值 “教授” (0)= “教授” “副教授” (1)= “副教授” “講師” (2)= “講師” “助