![]() |
VB的問題
...太久太久沒碰VB了全都忘光了
來請教各位厲害人物~"~ 設計一個加減乘的程式 利用亂數產生1~10的整數 當作被加數被減數倍乘數 加數減數乘數 第二點;利用IN PUT BOX提示運算式並由使用者輸入運算結果 第三點;由程式判斷運算結果並利用MSG BOX顯示結果 第四點:利用MSG BOX提示是否繼續及結束 |
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 兩次的話,並不會得到兩次相同的亂數序列。 利用MSGBOX提示是否繼續及結束 vbYesNo =4 顯示 Yes 及 No 按鈕。 Response = MsgBox("是否繼續及結束?", vbYesNo, "提示") if Response=vbOK then ... |
謝謝上面那位大哥的教學..
非常感謝^^ |
所有時間均為台北時間。現在的時間是 07:18 PM。 |
Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.
『服務條款』
* 有問題不知道該怎麼解決嗎?請聯絡本站的系統管理員 *