【文章內(nèi)容簡(jiǎ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) 例 主頁(yè) 本例可采用 兩重循環(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)控制換行。 例 編一程序，輸出下列所示的圖形 例 主頁(yè) 采用 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有所不同 主頁(yè) (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)用程序的用戶界面 例 取一元、二元、五元的硬幣共十枚，付 給 25元錢，有多少種不同的取法 ? 例 主頁(yè) (3)編寫程序代碼 程序通過(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 主頁(yè) 執(zhí)行下列程序段后，變量 t 的值是 ______。 t = 0 For x = 2 To 3 n = 1 Do While n=x t = t + n n = n + 1 Loop Next x A. 8 B. 9 D. 11 請(qǐng)回答問(wèn)題 想一想 思考題 B 主頁(yè) 請(qǐng)回答問(wèn)題 想一想 思考題 顯示結(jié)果為： 16 執(zhí)行下列程序段后，顯示的結(jié)果是 ______ s = 0 For m = 1 To 4 Step 2 n = 1 Do While n=m s = s + n n = n + 1 Loop Next m Print s + m + n 例 主頁(yè) 列表框與組合框 列表框和組合框都能為用戶提供若干個(gè)選項(xiàng)，供用戶從中任意選擇 列表框 (ListBox) List屬性：字 符型數(shù)組 , 存放列表 框的表項(xiàng) 數(shù)組的下標(biāo)從 0開(kāi)始。 例如， (0)的值為“教授”， (1)的值為“副教授” 。 ListCount屬性：表項(xiàng)數(shù)目 Text屬性：當(dāng)前選定表項(xiàng)的文本內(nèi)容 ListIndex屬性：返回已選定表項(xiàng)的順序號(hào) (索引 )。若未選定任何項(xiàng)，則 ListIndex的值為 1 Selected屬性：邏輯型數(shù)組，表示列表框中某一表項(xiàng)是否被選中 例 主頁(yè) 假設(shè)列表框 List1中有四個(gè)表項(xiàng)，并已選定第 2項(xiàng)，則 有： 為 1 ”副教授” (1)為 True 主頁(yè) 方法 (1) AddItem方法：用于把一個(gè)列表項(xiàng)加入列表框 格式： [對(duì)象 .]AddItem 列表項(xiàng) [，索引 ] 舉例： 海南省 ， 28 (2) Clear方法：用于清除列表框中的所有項(xiàng)目 (3) RemoveItem方法：用于刪除指定的列表項(xiàng) 采用以下方法，可為列表框 List1賦值： (1)在屬性窗口中設(shè)置 (2)利用 AddItem賦值 (3) 利用 List屬性賦值 “教授” (0)= “教授” “副教授” (1)= “副教授” “講師”