Delphi VJ VB VC 討論 聯繫 首頁
MS VB 參考文件

 基礎入門(上)
 基礎入門(下)
 流程控制(上)
 流程控制(下)
 圖形輸出
 事件處理
 多重表單
 MDI 表單(上)
 MDI表單(下)
 檔案系統(上)
 檔案系統(下)
 圖形 API (上)
 圖形 API (下)
 檔案 API
 功能表圖示

作品介紹

免費下載

廠商軟體


基本程式設計入門(下)

訊息窗MsgBox

push-flower.gif (2012 bytes)MsgBox "訊息內容"
例如: MsgBox "這是訊息視窗"

push-flower.gif (2012 bytes)設定回覆訊息
MsgBox "訊息內容",回覆按鈕設定值

設定值

設定值之常數符號

回覆按鈕

0

VbOKOnly

確定

1

VbOKCancel

確定 取消

2

VbAbortRetryIgnore

異常終止(A) 重試(R) 略過(I)

3

VbYesNoCancel

是(Y) 否(N) 取消

4

VbYesNo

是(Y) 否(N)

5

VbRetryCancel

重試(R) 取消

push-flower.gif (2012 bytes)例如:MsgBox "回覆按鈕!", VbYesNo

push-flower.gif (2012 bytes)設定訊息圖示
MsgBox "訊息內容",圖示設定值

設定值

設定值之常數符號

16

VbCritical

32

VbQuestion

48

VbExclamation

64

VbInformation

push-flower.gif (2012 bytes)例如:MsgBox "回覆圖示!", VbQuestion

push-flower.gif (2012 bytes)設定抬頭
MsgBox "訊息內容",回覆按鈕設定值+圖示設定值,抬頭
MsgBox "訊息內容",,抬頭
例如:MsgBox "你好",,"打招呼"

push-flower.gif (2012 bytes)MsgBox通用格式
MsgBox "訊息內容",回覆按鈕設定值+圖示設定值,抬頭


MsgBox函數

按鈕

傳回值

傳回值之常數符號

確定

1

vbOK

取消

2

VbCancel

異常終止(A)

3

VbAbort

重試(R)

4

VbRetry

略過(I)

5

VbIgnore

是(Y)

6

VbYes

否(N)

7

VbNo

push-flower.gif (2012 bytes)例如:X = MsgBox ("懂了嗎?",vbYesNo+vbQuestion)
If X = vbYes then
MsgBox "恭喜!"
Else
MsgBox "加油!"
End If


push-flower.gif (2012 bytes)再談InputBox輸入窗
呼叫InputBox標準格式
X = InputBox("提示訊息","抬頭","輸入欄預設值")
例如:
X = InputBox("請輸入半徑") '省略抬頭,輸入欄預設值
X = InputBox("請輸入半徑","計算圓面積")'省略輸入欄預設值
X = InputBox("請輸入半徑",,"25")'省略抬頭

push-flower.gif (2012 bytes)特別注意事項:InputBox的傳回值為字串,當利用它來輸入數值時會發生資料運算問題
例如:A=InputBox("請輸入A值")
B=InputBox("請輸入B值")
C=A+B
Print "A+B=";C
A+B=1010-----------錯誤答案

push-flower.gif (2012 bytes)利用Val函數把字串資料轉成數值資料
例如:A=
Val(InputBox("請輸入A值")
B=
Val(InputBox("請輸入B值")
C=A+B
Print "A+B=";C
A+B=20-----------正確答案


習題:
寫一程式利用InputBox輸入學生的平常成績、期中考成績、期末考成績,假設平常成績佔40%、期中考成績與期末考成績各佔30%,然後算出其學期成績,並以MsgBox顯示出來。

push-flower.gif (2012 bytes)基本解答
Private Sub Command1_Click()

X = Val(InputBox("請輸入平常成績", "平常成績輸入", "100"))
Y = Val(InputBox("請輸入期中考成績", "期中考成績輸入", "100"))
Z = Val(InputBox("請輸入期末考成績", "期末考成績輸入", "100"))
Ans = X * 0.4 + Y * 0.3 + Z * 0.3
PRINT "學期成績為"; Ans ; "分"
End Sub

進階使用
Private Sub Command1_Click()
X = Val(InputBox("請輸入平常成績", "平常成績輸入", "100"))
Y = Val(InputBox("請輸入期中考成績", "平常成績輸入", "100"))
Z = Val(InputBox("請輸入期末考成績", "期末考成績輸入", "100"))
Ans = X * 0.4 + Y * 0.3 + Z * 0.3
MsgBox "學期成績為" & Ans & "分",,"學期成績結果"
End Sub

圖1圖4
圖2圖3




本網頁由昱得資訊工作室製作(C) Copyright Valor-Sttudio since in 1993

 

本網站全部內容係屬【昱得資訊工作室】版權所有,轉載必究,
非經正式書面同意,不得將全部或部分內容,以任何方式轉載於其他網站或用於任何商業行為