乱数及阵列File.PDF

Chapter 5. 亂數及陣列 5.1 InputBox 和MsgBox 5.2 亂數 5.3 陣列 5.4 Load 、Unload 5.1 InputBox 和MsgBox 5.1.1 InputBox 函數 InputBox 是vb 內建的一個函數，和一般TextBox(文字方塊)最大的不同點在， 程式執行中，文字方塊並沒有辦法讓程式暫停等待使用者輸入資料。以下舉範例 說明InputBox 的用法以及它與TextBox 的差異。 語法 InputBox(提示訊息 , 標題 , 預設值 , Xpos , Ypos) 前3 個如果是字串就要加雙引號，數字不一定要加，如果只要第1 和3 個，第2 個要留空位(提示訊息 , , 預設值) 【範例1】: 將InputBox 中使用者輸入的內容輸出在表單上 1. 表單配置 2. 程式碼 3. 執行程式 4. 按下確定後 【範例2.】: 設計一個利用InputBox 輸出10 個姓名的程式 1. 表單配置 2. 程式碼 3. 執行結果 一共執行了十次 4. 輸入的十個姓名最後都出現在表單上了 5.1.2 MsgBox 函數和敘述 函數和敘述最明顯的差異在於是否需要傳回值，若是需要作選擇的提示視 窗，我們必須使用MsgBox 函數來取得傳回值；如果只是要顯示一個警告視窗， 則不需傳回值 ，就在這個時間，就在這個地點，MsgBox 敘述出場的時機到了。 5.1.2.1 MsgBox 函數 語法 MsgBox(提示訊息 , 按鈕組合和圖示名稱 , 標題) 【範例】: (1)表單配置 (2)編寫程式碼 ：因為是在Form_Load()寫，所以要加Form1.AutoRedraw =True ，如果是在Form_Activate()就甭加了。 (3)執行結果 (4)選擇『是』的話 (5)選擇『否』的話 5.1.2.2 MsgBox 敘述 【範例】: (1) 表單配置 (2) 撰寫程式碼 (3) 執行結果，按下確定後即可自動結束程式 小幫手特區：MsgBox 的按鈕及圖示組合 VB 提供了許多現成的按鈕以及圖示可幫助使用者辨識視窗的作用為何，以 下我們將利用前面所說過的MsgBox 函數範例來說明圖示及按鈕的用法： 以下列出幾種常見的圖示 圖示名稱 vbInformation vbQuestion vbCritical vbExclamation 圖示 以下列出幾種常用的按鈕組合 按鈕組合名稱 按鈕組合圖示 vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancel vbYesNo 【範例1】: 增加問號圖示 【範例1】: 變更程式按鈕及圖示 5.2 亂數 系統內部有一個亂數表，當使用者需要使用亂數時，則從亂數中某一個位置 開始存取，在vb 中，亂數的值大於等於0 ，小於1 之間的任一小數。 語法 變數＝Rnd 例 □ ：A = Rnd 由於程式每次一開始所選取的亂數表位置是相同的，所以避免出現亂數重覆 的現像，必須使用Randomize 來避免此種情形的發生。 在使用亂數時，由於值很小(0=Rnd1) ，我們經常都會將亂數乘上特定倍 數，但為了去除小數點，我們有幾個函數可以利用，以下將說明常用的幾個函數 Fix( ) 無條件捨去小數點 Int( ) 等於或小於的最大整數 【範例】: Fix(Rnd*10) Fix(0.5) = 0