InputBox這麼使用
'Message: 顯示訊息
'Title: 標題
'Default: 預設值
MyValue = InputBox(Message, Title, Default)
=====================
MsgBox 這麼使用
'Msg: 定義訊息 範例:"Do you want to continue ?"
'Style: 定義按鈕 範例: vbYesNo + vbCritical + vbDefaultButton2
'TitleL: 定義標題 範例: "MsgBox Demonstration"
'Help: 定義說明檔 範例: "DEMO.HLP"
'Ctxt: 定義內容代碼 範例: 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
傳回值
常數 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
=====================
亂數產生1~10的整數
Dim MyValue
MyValue = Int((10 * Rnd) + 1) ' 產生 1 到 10 之間的亂數值。
若想產生在某個範圍內(非 0 到 1)的亂數值，可使用下列公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
上述公式中，upperbound 是亂數範圍的上限，而 lowerbound 則是亂數的下限。
附註:
若想得到重覆的亂數序列，可以在呼叫 Randomize 之前先呼叫 Rnd 並且傳入一小於 0 的引數值。光是用同樣的亂數種子呼叫 Randomize 兩次的話，並不會得到兩次相同的亂數序列。
利用ＭＳＧＢＯＸ提示是否繼續及結束
vbYesNo =4 顯示 Yes 及 No 按鈕。
Response = MsgBox("是否繼續及結束?", vbYesNo, "提示")
if Response=vbOK then ...
|