有關vb....幫我找出錯誤><

Question

Private Sub Command1_Click()

Dim HEIGHT As Single \'宣告height變數為單精準度
Dim WEIGHT As Single \'宣告weight變數為單精準度
Dim BMI As Single \'宣告bmi變數為單精準度

HEIGHT = Val(Text1.Text) \'設定使用者輸入的身高值height變數
WEIGHT = Val(Text2.Text) \'設定使用者輸入的體重值給weight變數

If HEIGHT > 2.5 Then \'判斷使用者的身高是否超過2.5
MsgBox \"身高不得超過2.5公尺\"
Text1.Text = 2.5
End If
If WEIGHT > 300 Then
MsgBox \"體重不得超過300公斤\"
Text2.Text = 300
End If

BMI = WEIHGT / (HEIGHT) ^ 2 \'計算BMI值
If Option1.Value = TURE Then \'判斷是否點選男性
If BMI > 25 Then \'判斷BMI值是否標準
Text3.Text = \"您的BMI值為\" & BMI & \"，體重過重\"
ElseIf BMI < 20 Then
Text3.Text = \"您的BMI值為\" & BMI & \"，體重過輕\"
Else
Text3.Text = \"您的BMI值為\" & BMI & \"，體重標準\"
End If
ElseIf Option2.Value = TURE Then \'判斷是否點選女性
If BMI > 24 Then \'判斷BMI值是否標準
Text3.Text = \"您的BMI值為\" & BMI & \"，體重過重\"
ElseIf BMI < 19 Then
Text3.Text = \"您的BMI值為\" & BMI & \"，體重過輕\"
Else
Text3.Text = \"您的BMI值為\" & BMI & \"，體重標準\"
End If
End If

End Sub


--------------------------------
到底哪裡錯了啊><
執行後的bmi值為什麼是0??

Answer 1

問題出在這裡BMI = WEIHGT / (HEIGHT) ^ 2 '計算BMI值與你宣告不同,筆誤吧?Dim WEIGHT  As Single

Answer 2

下面的網址應該對你有幫助

http://phi008780508.pixnet.net/blog

Answer 3

是TRUE

不是TURE

筆誤請更正！！

Answer 4

有啊，我輸1.6跟50....輸多少都一樣是0

Answer 5

你有在表單上放置Text1與Text2且兩者都正確輸入數值嗎?