VB的問題

[lineage175]

...太久太久沒碰VB了全都忘光了
來請教各位厲害人物~"~
設計一個加減乘的程式
利用亂數產生1~10的整數
當作被加數被減數倍乘數
加數減數乘數
第二點;利用ＩＮ　ＰＵＴ　ＢＯＸ提示運算式並由使用者輸入運算結果
第三點;由程式判斷運算結果並利用ＭＳＧ　ＢＯＸ顯示結果
第四點：利用ＭＳＧ　ＢＯＸ提示是否繼續及結束

[mini]

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

[lineage175]

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