val.ppt

程式設計 ? Visual Basic 6.0 許翠婷 E-mail : tsuiting@scu.edu.tw 物件及屬性 表單-外觀類型、屬性類型、配置類型 標籤 命令按鈕-BackColor、style Format 函數 0、#、. 、%、, 、(-+$ ) Format(運算式、[,fmt]) Format(5,”##.0”) 文字方塊（text box） txt 屬性 multiline：單行文字v.s.多行文字（記事本） Text Maxlength Passwordchar Scrollbars Locked change 輸入窗(InputBox) X = InputBox( 提示訊息 [, 抬頭] [, 輸入欄預設值] ) 輸入窗(InputBox) 的例子 使用 InputBox 的注意事項 InputBox 的傳回值是字串 VAL 函數-字串轉數值資料 STR函數-數值轉字串資料 正確的方法如下： A = InputBox(請輸入 A 值) B = InputBox(請輸入 B 值)A = Val(A) 將A轉換成數值資料，再指定給AB = Val(B) 將B轉換成數值資料，再指定給BC = A + B 輸入窗實例 輸入窗實例 -- Step 1 在表單上佈置好 cmdCal 命令鈕，並且將其 Caption 屬性設定成 “計算成績”。 輸入窗實例 -- Step 2 在 cmdCal 之中撰寫以下程式：  Private Sub cmdCal_Click() Dim chinese As Integer Dim math As Integer Dim result As Single chinese = Val(InputBox(請輸入國文成績, 國文成績)) math = Val(InputBox(請輸入數學成績, 數學成績)) result = (chinese + math) / 2 frmCal.FontSize = 14 lblResult.Caption = 國文成績= + Str(chinese) + vbNewLine + 數學成績= + Str(math) + vbNewLine + 平均成績 + Str(result) End Sub 輸入窗實例 -- Step 2 說明 在以上程式中，輸入成績的敘述被寫成比較精簡的格式，如下： A = Val(InputBox(“請輸入[數學]成績”))它的作用相當於以下兩個敘述： A = InputBox(請輸入[數學]成績)A = Val(A) 課堂練習 訊息窗(MsgBox) (1) 訊息窗(MsgBox) (2) 抬 頭：通常用來顯示程式名稱，也就是告訴使用者這個訊息窗是哪一個程式顯示出來的。 訊息內容：程式想告訴使用者的訊息。 圖 示：提醒使用者注意的示意圖。 回覆按鈕：使用者回覆這個訊息的按鈕，如果使用者不按下按鈕，則訊息窗會一直保留在螢幕上。 MsgBox – 最簡單的格式 格式 ：MsgBox 訊息內容 例子：MsgBox 使用訊息窗! MsgBox -- 設定回覆按鈕(1) 格式 ：MsgBox 訊息內容, 回覆按鈕設定值 例子：MsgBox 設定回覆按鈕的訊息窗!, vbOKCancel MsgBox -- 設定回覆按鈕(2) 回覆按鈕設定值 : MsgBox -- 設定圖示(1) 格式 ：MsgBox 訊息內容, 圖示設定值 例子：MsgBox 設定圖示的訊息窗!, vbInformation MsgBox -- 設定圖示(2) MsgBox -- 同時設定回覆按鈕及圖示 MsgBox 訊息內容, 回覆按鈕設定值+圖示設定值 MsgBox 喜歡訊息窗嗎？, vbYesNo + vbQuestion MsgBox -- 設定抬頭 格式一：MsgBox 訊息內容, 回覆按鈕設定值+圖示設定值, 抬頭 格式二：MsgBox 訊息內容,, 抬頭 例子： MsgBox 抬頭真好!,, 禮義廉恥 MsgBox -- 通用格式 參數二、三以 [] 括起來，表示這兩個參數是可以省略的 。 參數二含有兩個部份，可以擇一或兩者皆設定之。 MsgBox -- 顯示多行訊息內容 有時候我們想顯示多行的訊息內容，則可在行與行之間插入 Chr(13) 的跳行字元，例如： MsgBox 函數 格式：X = MsgBox( 參數串列 ) 傳回值 X 是由使用者按下哪一個回覆按鈕來決定 MsgBox 函數的例子（1） 基本控制流程 研判類 If