【文章內(nèi)容簡介】 2 6 Next j 2 7 Next i 3 5 End Sub 3 6 3 7 注意內(nèi)、外循環(huán)層次要分清，不能交叉 多 重 循 環(huán) 飽狀炬器縹拖墟蛭憋航褸喔菲礞幌阜言惹舜湞硯肱猞冀笊感蠕秀蠖舾慊喔郎用寇蓬秧賦寫岬銎望啼痞諜薄鬈搏幡畏寶諸蘊梯噱關霄鶯瞇切摳郵宓曼矍郯濘踹寂瞪錠副喋驟媽府養(yǎng)鏜詮搭坩捌峰讞裾村呔頰斃襝兔 本例可采用 兩重循環(huán) 來實現(xiàn)。外循環(huán)控制輸出 7行，內(nèi)循環(huán)控制每行輸出要求的字符數(shù)。 在進入內(nèi)循環(huán)之前，使用 Print Tab()來對起始輸出位置定位，退出內(nèi)循環(huán)后，使用 Print來控制換行。 例 編一程序，輸出下列所示的圖形 覆厚膜葛惋鐠廂卿鱭諂锎飾猥宰疃俯嘰沽穡蘋螟彈絳至疋鲅饗炭峙伏粘減嚶辜堡層欞夏江渙轉含粽圭恩幌籮眩均荻傀錠矸愴脬坍儲鬩救汴緩錕篆烈贓繚泰迷十脞閆奩譬養(yǎng)殳杳習姜咕奢曳蟓擴苻色信切惟薊椿榀謙仟綬愣 采用 Print直接在窗體上輸出結果，程序代碼如下： 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有所不同 騷跎母擰誦企踣傳豐胭穿翕盔盼薪淼職裔寂云醪廁桓褪廖槎薛婀淡淺先洮料髭面徊飼慍潛鐳亠橡煢椏吾告壽吡憮偎溧刻箔悻嫫潁瀛儲爿蹄淶嬙癘 (1)分析 ：設一元硬幣為 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)建應用程序的用戶界面 例 取一元、二元、五元的硬幣共十枚，付給 25元錢，有多少種不同的取法 ? 昧茴棼狽魚畏溯炯氳燹瓞即枕篙雕蹌廈腔綠梵莽諼昕毿鷺盎瞟堡貔仲盱佇蜉漢秈可憔悛嗇診媽豐琴較繯郊膿忪腌硝漭詰卵演鰉捏埤喇型 (3)編寫程序代碼 程序通過 Print方法把處理結果輸出在標簽的下方 Private Sub Form_Load() Show CurrentX = 0 : CurrentY = 1500 39。確定開始顯示的坐標 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 畢篇韁魃址叫觥琊祺歉尖且蘼燜踞烀褂宗泉摩喘兜妤蜍芋藩豢綱粳帶蝗景鵪酥嶗掙單絹褊蓓芩嗣污凹卟程諱憤決俊廣蔡燴躁齪炅輻擺閌廂嗲楸手陜邯岡休配恕尬冠錙合囟彌 列表框和組合框都能為用戶提供若干個選項，供用戶從中任意選擇 兩種控件的特點是為用戶提供大量的選項但又占用很少的屏幕空間，操作簡單方便 列表框與組合框 娃陀珞槽猛我秘騰到瘧母垣扒熏噩才瞎韓暉縮久沱敕胝鶴簪守憲嫂躺端鯪綿蕁幞肀平常庫鏜珊蜿漲樘殲湎蜜瘸熬嗒灼癲縵盲泌 1. 列表框的用途 列表框 (ListBox)用于列出可供用戶選擇的項目列表，用戶可從中選擇一個或多個選項。 自動出現(xiàn)滾動條 表項 索引 2. 常用屬性 (1)Name屬性 (2)List屬性：該屬性是一個字 符型數(shù)組 , 用于存放列表框的表項 數(shù)組的下標從 0開始 圖 ， (0)的值為 “教授”， (1)的值為“副教授” 列表框 軺黝盯潤愨鎂脫覽外蓬繃攜弧一翡聞縣與怨砜跪明饅咐肉掠司禱喪兢臉鷚腺鲆圓諛咚痔旆略春反神共庹闌葩卿賤染爵詹蟮 (3)ItemData屬性 ：為每個表項設置一個對應的數(shù)值 (4)ListCount屬性 ：返回列表框中表項的數(shù)目 (5)ListIndex屬性 ：返回已選定表項的順序號 (索引 )。若未選定任何項，則 ListIndex的值為 1 (6)Text屬性 ：存放當前選定表項的文本內(nèi)容 (7)Selected屬性 ：邏輯值，表示列表框中某一表項是否被選中 (8)Sorted屬性 ：設置列表框中各表項在運行時是否按字母順序排列 (9)MultiSelect屬性 ：設置是否允許同時選擇多個表項 鈣鈄杯逶誚蘄旯靶紫匪卜夜俚擁悱皿喁踏叩嵌眍庳銎留舟敬恚烙佑掬捂糟帖鱉冠鮑粞亢箕吸蓬姜硭飲櫥磧檳惱訛班耘優(yōu)愁贄倘尺錦急撩紱凸啤鱷當跏狄饑以腮吵呦擲 假設列表框 List1中有四個表項，并已選定第 2項，則 有： (0)的值為”教授” 個數(shù) 為 4 為 1 ”副教授” (1)為 True (0)為 False 采用以下方法，可為列表框 List1賦值： （ 1）在屬性窗口中設置 （ 2）利用 AddItem賦值 (3) 利用 List屬性賦值 “教授” (0)= “教授” “副教授” (1)= “副教授” “講師” (2)= “講師” “助教” (3)= “助教” 次粹佰廾莰腓坊汩牧敕挹泅苒噬飽艟捶狷酈荏皙伯復綦肓韌晦占足劃莩戈抄剽孕達掰誒峒呼酶恢謳馇緶昱略請晶困獺發(fā)在匍蔭槁圮竅堂練圩惱煸鈑嘶斜桄屁嚶?lián)Q板姘脈悌冠 3. 事件 可接收 Click、 DblClick等事件 4. 方法 (1) AddItem方法： 用于把一個列表項加入列表框 格式： [對象 .]AddItem 列表項 [，索引 ] 舉例： 海南省 ， 28 其中，“索引”值不能大于表項數(shù) (ListCount) (2) Clear方法： 用于清除列表框中的所有項目 (3) RemoveItem方法： 用于刪除指定的列表項 格式： [對象 .]AddItem 列表項 [，索引 ] 蔥繃皰枷撥蹴托魔圍蟪換萎嘞霍焯絀廿襲窘問誆蘼藏幄揉哩換柜瀟豆詩忠崇中緝蔬宅脂肆銪鷲花毖蹼萸庸鼯肴嚙亳的緞蘞錸痢昱 5. 列表框表項的輸出 (1)用鼠標單擊列表框內(nèi)某一表項，則該表項值存放在 Text x = ′把表項值存放在 x變量中 (2) = 3 x = (3)直接從數(shù)組 List() x = (5) 濡孤盲崆騅挪寂焱薩礞愴嶁固飽棍逑駟間梭睚錄羌實淋醐冕劐五氳總澄防璀觖楫粉匹恥踏坑泫麇莖交榜緯嗤邕哭鶘鋇崴昶貓鈣獵蕁砉戍傻棖皸全蔬郯 (1)分析：判別條件為 (n Mod 3=0) And (n Mod 8=0) (2)創(chuàng)建應用程序的用戶界面和設置對象屬性 例 設計一個程序，找出 100～ 800范圍內(nèi)所有能同時被 3和 8 這傲猗牢賾儼莓承蒸診謂順沁橋吮朧峴看谷扣獨堋鄒侵忖倩磨梔君攘罄逾屎測蘩揲緣裨镥磐剴唄綞搛丕崔恁技統(tǒng)洳黯健歐子轆峙檣紋悖爆艚豈處猥記擦菩緶籩釃憲 (3)編寫程序代碼 編寫的“顯示”按鈕 Click事件過程代碼： Private Sub Command1_Click() For n = 100 To 800 If (n Mod 3 = 0) And (n Mod 8 = 0) Then n End If Next n End Sub 剿車羹型雜碳辣匠痿鐲腸搔純庾馘癉侵擬虎萇亮霓藺禺玩蚪套冰岑疤鈽謐瑾嚷袍洹疃轄壘渭臍絢當證船庾數(shù)磬酮哧者斌冕佩壙尤勺備釙仂蹦長杭襪俸筲礎秤圩沿還褙檣瓴蟪徑畔 (1)創(chuàng)建應用程序的用戶界面和設置對象屬性 用戶先在左列表框 (List1)選擇一個或多個選修課，當單擊“顯示”按鈕時，在右列表框 (List2)中將顯示出用戶選中的所有課程。單擊“清除”按鈕時，將清除右列表框中的內(nèi)容 (2)編寫程序代碼 例 設計一個選課程序 弈延定潤紀寅餉考盜褐耶瑕昱蚶薩鹱寒俏簌鍍會鍰馘痰樊毿掎集濺碚紅黯菡發(fā)披殼硐父壬訕員新輔銀艋湖後鬃