程式語言與邏輯 ( Ⅱ )

程式語言與邏輯(Ⅱ)

Visual Basic 常用函數 • InputBox (輸入) 傳回值 = InputBox(提示訊息，標題，預設值，X位置，Y位置）例如： a = InputBox("Please input a", "This is a test", 300, 10, 10) • MsgBox (輸出) 傳回值 = MsgBox(提示訊息，格式碼，標題）格式碼是用來指定輸出方塊的格式，表列如下：按鈕顯示組：

Visual Basic 常用函數 圖示組：傳回值：MsgBox傳回的值即代表使用者所按下的按鈕，可能的值為：

Visual Basic 常用函數 • 常用的數學函數：

Visual Basic 常用函數 • 轉換函數 Asc, Chr, and Hex Asc函數可將引數中字串的第一個字元轉換為 ASCII 碼。使用方法：a = Asc(string) Chr 函數是 Asc 函數的反函數，可將一 0~127（或 0~256）之整數所對應的字元傳回來 Hex函數可將一十進位整數換算成 16 進位碼，如 Hex(10) 可得到 A，Hex(255) 可得到 FF 等。

Visual Basic 常用函數 • 字串函數 Len, Left, Right, Mid Len(string): 計算字串長度，傳回一整數 Left(string, length): 將字串由左而右數來長度 = length 的部分切割下來，傳回此部分字串 Right(string, length): 將字串由右而左數來長度 = length 的部分切割下來，傳回此部分字串 Mid(string, start_position, length): 將字串從左而右數過來第 start_position 的字元開始，往右擷取長度為 length 的部分切割下來，傳回此部分字串

範例(樂透號碼產生模擬器) • 設計一個程式，可模擬產生樂透號碼，數字範圍在1-42之間，每組中之六個數字不得重複，執行範例如下：

開始輸出結果參數宣告 i,j,tmp,a(6),rst 結束產生1-42間之ㄧ個亂數清空輸出變數是否與前面產生之數值相同? 是 6個數字產生完畢? 是否紀錄數值否程式流程圖(樂透號碼產生模擬器)

程式碼(樂透號碼產生模擬器) Dim rst As String Dim i, j, tmp, a(6) As Integer rst = "" For i = 1 To 6 re: Randomize() tmp = Int(Rnd() * 42) + 1 If i > 1 Then For j = 1 To i - 1 If tmp = a(j) Then GoTo re End If Next a(i) = tmp rst = rst & tmp & " “ Else a(i) = tmp rst = rst & tmp & " " End If Next L1.Text = rst

程式語言與邏輯 ( Ⅱ )

程式語言與邏輯 ( Ⅱ )

Presentation Transcript