【文章內(nèi)容簡介】 Show Sum = 0 Do While True 39。條件為真，循環(huán)無終止進行下去 x = Val(InputBox(請輸入要加入的數(shù) (1表示結(jié)束 ), 輸入數(shù)據(jù) )) If x = 1 Then Exit Do End If Sum = Sum + x = Sum Loop MsgBox (累加運算結(jié)束 ) End Sub 以 1作為“終止循環(huán)標志” 例 設(shè)計一個 “ 加法器 ” 程序 中國最大的資料庫下載 多重循環(huán)是指循環(huán)體內(nèi)含有循環(huán)語句的循環(huán) 例 多重循環(huá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) 中國最大的資料庫下載 本例可采用 兩重循環(huán) 來實現(xiàn)。外循環(huán)控制輸出 7行，內(nèi)循環(huán)控制每行輸出要求的字符數(shù)。 在進入內(nèi)循環(huán)之前，使用 Print Tab()來對起始輸出位置定位，退出內(nèi)循環(huán)后，使用 Print來控制換行。 例 編一程序，輸出下列所示的圖形 中國最大的資料庫下載 采用 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有所不同 中國最大的資料庫下載 (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)建應用程序的用戶界面 例 取一元、二元、五元的硬幣共十枚，付給 25元錢，有多少種不同的取法 ? 中國最大的資料庫下載 (3)編寫程序代碼 程序通過 Print方法把處理結(jié)果輸出在標簽的下方 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è)置一個對應的數(shù)值 (4)ListCount屬性 ：返回列表框中表項的數(shù)目 (5)ListIndex屬性 ：返回已選定表項的順序號 (索引 )。若未選定任何項，則 ListIndex的值為 1 (6)Text屬性 ：存放當前選定表項的文本內(nèi)容 (7)Selected屬性 ：邏輯值，表示列表框中某一表項是否被選中 (8)Sorted屬性 ：設(shè)置列表框中各表項在運行時是否按字母順序排列 (9)MultiSelect屬性 ：設(shè)置是否允許同時選擇多個表項 中國最大的資料庫下載 假設(shè)列表框 List1中有四個表項，并已選定第 2項，則 有： (0)的值為”教授” 個數(shù) 為 4 為 1 ”副教授” (1)為 True (0)為 False 采用以下方法，可為列表框 List1賦值： （ 1）在屬性窗口中設(shè)置 （ 2）利用 AddItem賦值 (3) 利用 List屬性賦值 “教授” (0)= “教授” “副教授” (1)= “副教授” “講師” (2)= “講師” “助