回圈与讯息视窗利息计算程式和猜数字游戏

《回圈与讯息视窗利息计算程式和猜数字游戏》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第8章迴圈與訊息視窗[利息計算程式和猜數字遊戲]8-1For/Next計數迴圈8-2訊息視窗與對話方塊8-3Do/Loop條件迴圈8-4巢狀迴圈8-5跳出與繼續迴圈8-1For/Next計數迴圈-語法VisualBasic語言的For/Next迴圈是一種計數迴圈，在迴圈本身的語法就可以自行維護計數器變數，我們只需指定範圍和增量，就可以重複執行固定次數的程式碼，直到到達結束條件。其語法如下所示：For變數=起始值To終止值Step增量值程式區塊Next變數ViLLE–3.1For/Next迴圈敘述8-1For/Next計

2、數迴圈-範例例如：使用For/Next迴圈來計算1萬元5年複利18%的本利和，如下所示：DimintI,intYearAsIntegerDimdblTotalAsDouble=10000DimdblRateAsDouble=0.18intYear=5ForintI=1TointYeardblTotal+=dblTotal*dblRateNextintI8-1For/Next計數迴圈-VisualBasic專案VisualBasic專案：Ch8-1利息計算程式在Windows應用程式使用TextBox控制項輸入本金、利

3、率和年限後，即可使用For/Next迴圈計算到此年限複利的本利和，然後在下方Label控制項顯示本利和。其執行結果如下圖所示：ViLLE–3.1For/Next迴圈敘述請啟動ViLLE，在【三.迴圈結構】目錄下，選【1.For/Next迴圈敘述】，按【Run】鈕模擬執行此範例程式，如下圖所示：8-2訊息與輸入視窗-MsgBox訊息視窗(語法)VisualBasic語言的MsgBox()函數可以顯示訊息視窗，提供使用者錯誤訊息或是非題的選擇。例如：確認操作，函數的語法如下所示：MsgBox(提示訊息,[樣式,視窗標題])

4、上述函數參數的最後2個並非必須參數，可以不用指定。各參數的說明，如下所示：提示訊息：顯示在訊息視窗的訊息字串，MsgBox()函數至少需要提供此參數。樣式：指定訊息視窗顯示哪些按鈕、圖示和預設按鈕的樣式，這是MsgBoxStyle列舉常數。視窗標題：顯示在訊息視窗上方標題列的字串，如果沒有指定，預設就是專案名稱。8-2訊息與輸入視窗-MsgBox訊息視窗(範例)例如：使用MsgBox()函數來顯示計算結果的本利和，如下所示：ret=MsgBox(dblTotal.ToString("C"),_msgStyle,"本利和

5、")第1個參數是文字方塊的內容，第2個參數msgStyle是顯示樣式的整數值，使用的是列舉常數，如果不只一個，請使用加法來計算樣式值，如下所示：msgStyle=MsgBoxStyle.OKCancel+_MsgBoxStyle.Information上述樣式值是顯示「確定」和「取消」鈕和「!」圖示，最後1個參數是訊息視窗的標題文字。8-2訊息與輸入視窗-MsgBox訊息視窗(傳回值)MsgBox()函數如果有傳回值，傳回值就是使用者按下的哪一個按鈕，即MsgBoxResult列舉常數，其說明如下表所示：8-2訊息與輸

6、入視窗-InputBox輸入視窗(語法)InputBox輸入視窗可以彈出一個視窗來讓使用者輸入資料，在功能上如同文字方塊控制項。InputBox()函數的語法如下所示：InputBox(提示訊息,[標題文字,預設值,位置x,位置y])上述函數的最後4個參數並非必須參數，可以不用指定。各參數的說明，如下所示：提示訊息：顯示在輸入視窗的字串，InputBox()函數至少需要提供此參數。標題文字：顯示在標題列的文字內容。預設值：輸入資料的預設值。位置x、位置y：輸入視窗在螢幕上顯示的位置，沒有指定，預設值是桌面正中央。8-2

7、訊息與輸入視窗-InputBox輸入視窗(範例)例如：使用InputBox()函數來輸入本金的金額，如下所示：strValue=InputBox("請輸入金額?","輸入金額")上述程式碼的InputBox()函數只有前2個參數，傳回值是使用者輸入的資料，按下「確定」鈕傳回輸入字串；「取消」鈕傳回空字串。8-2訊息與輸入視窗-VisualBasic專案VisualBasic專案：Ch8-2利息計算程式這個Windows應用程式是修改第8-1節的【利息計算程式】，改為使用InputBox()函數來輸入本金，MegBo

8、x()函數顯示本利和。其執行結果如下圖所示：8-3Do/Loop條件迴圈-說明1在VisualBasic語言的條件迴圈結構就是Do/Loop迴圈，以條件測試的位置分成兩種，如下所示：前測式重複結構：在迴圈開始使用While或Until測試迴圈條件。其語法如下所示：Do[While

9、Until]條件程式區塊LoopViLLE–3.2