記算BMI值

記算BMI值

須要物件:
Text1(Textbox)
Text2(Textbox)
Label1(Label)
Label2(Label)
Label3(Label)
Label4(Label)
Label5(Label)
Label6(Label)
Label7(Label)
Command1(Command)

須改變的控制項:
Form1.caption="BMI"
Text1.algnment=1
Text2.algnment=1
Label1.caption="身高:"
Lavel1.front=18
Label2.caption="公分"
Label2.front=18
Label3.caption="體重:"
Label3.front=18
Label4.caption="公斤"
Label4.front=18
Label5.front=18
Label6.front=18
Label7.front=18
Label7.algnment=2


程式碼(Command1):
Private Sub Command1_Click()
a = Val(Text1.Text) / 100
b = Val(Text2.Text)
If a <= 0 Then MsgBox "身高不可能小於或等於0公分!", vbExclamation, "BMI" Exit Sub End If c = 22 * a ^ 2 Label5.Caption = "理想體重: " & c & " 公斤" d = (b - c) / c * 100 Label6.Caption = "超重百分比: " & d & " %" If d > 20 Then
Label7.Caption = "你的體重太重了，應該減肥!"
ElseIf d > 10 Then
Label7.Caption = "你的體重有點過重。"
ElseIf d >= -10 Then
Label7.Caption = "你的體重很標準。"
ElseIf d >= -20 Then
Label7.Caption = "你的體重有點過輕。"
Else
Label7.Caption = "你的體重太輕了，應該注意一點!"
End If
End Sub

完成圖片: