史萊姆論壇

史萊姆論壇 (http://forum.slime.com.tw/)
-   程式語言討論區 (http://forum.slime.com.tw/f76.html)
-   -   VB的問題 (http://forum.slime.com.tw/thread159952.html)

lineage175 2005-11-02 08:57 PM

VB的問題
 
...太久太久沒碰VB了全都忘光了
來請教各位厲害人物~"~
設計一個加減乘的程式
利用亂數產生1~10的整數
當作被加數被減數倍乘數
加數減數乘數
第二點;利用IN PUT BOX提示運算式並由使用者輸入運算結果
第三點;由程式判斷運算結果並利用MSG BOX顯示結果
第四點:利用MSG BOX提示是否繼續及結束

mini 2005-11-03 11:59 AM

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 ...

lineage175 2005-11-03 03:36 PM

謝謝上面那位大哥的教學..
非常感謝^^


所有時間均為台北時間。現在的時間是 07:18 PM

Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.

『服務條款』

* 有問題不知道該怎麼解決嗎?請聯絡本站的系統管理員 *


SEO by vBSEO 3.6.1