教學目標：
(1)練習使用Visual Basic之 If ...Then...Else ...及巢狀 If ...Then...Else... 敘述
(2)MsgBox( )函數回傳值的使用
(2)MsgBox( )函數回傳值的使用
(3)TextBox控制項屬性PasswordChar的設定
(4)儲存專案、方案
(5)建置可執行檔
程式功能要求：
(1)建立新專案，參考下圖在Form1上佈建控制項，並在「屬性視窗」設定相關屬性
(3)在登入鈕的Click事件撰寫程式碼：
(a)宣告帳號(id)、密碼(pw)為字串變數、
宣告r 為整數變數、
宣告身高(H)、體重(W)、BMI為單精度變數
宣告r 為整數變數、
宣告身高(H)、體重(W)、BMI為單精度變數
(b) id、pw值由TextBox控制項輸入
(c)判斷使用者輸入的帳號及密碼是否正確，
例如：id=”123”、pw=”12345”
若正確，出現”是否進入BMI判斷系統”
例如：id=”123”、pw=”12345”
若正確，出現”是否進入BMI判斷系統”
按是則要求輸入身高、體重
並判斷BMI值，若21 <= BMI <= 24 則出現
按否則結束程式
若不正確，則出現”帳號或密碼輸入錯誤，請重新輸入！” 
(4)在離開鈕的Click事件撰寫程式碼：End，設定按下離開鈕，即結束程式。
(5)按開始偵錯鈕，執行程式。
(6)儲存專案：按全部儲存鈕 或 選『檔案/全部儲存』
專案檔名：t21-xx-vb3 ( xx 表示座號 )
(7)建置可執行檔：
利用「偵錯 \ 建置」可執行檔，並至bin\debug下取出可執行檔
實習完畢，請上傳執行檔""t21-xx-vb3.exe"至classroom
實習完畢，請上傳執行檔""t21-xx-vb3.exe"至classroom
參考程式碼：
Private Sub Button1_Click(…) .
Dim
id, pw As
Dim r
As
Dim
H, W, BMI As
id =
TextBox1.Text
pw =
If id
= "123" And pw = "12345" Then
r = MsgBox("是否進入BMI判斷系統?",
4, "系統提示")
If r = Then
H =
InputBox("請輸入身高(cm)：", "輸入身高",
0)
W = ("請輸入身高(kg)：", "輸入體重",
0)
BMI =
W / (H / 100) ^ 2
If BMI >= 21 BMI <= 24 Then
MsgBox("體重標準", 48, "BMI判斷系統")
Else
MsgBox("體重不標準", 16, "BMI判斷系統")
End If
Else
End If
Else
("帳號或密碼輸入錯誤，請重新輸入",
16, "系統提示")
End If
End Sub
沒有留言:
張貼留言