Private Sub Command1_Click() Text3.Text = Val(Text1.Text) / (Val(Text2.Text) * 2) If Text3.Text <= 19 Then MsgBox \"มีภาวะขาดสารอาหาร\" Else If Text3.Text <= 24.9 Then MsgBox \"มีภาวะปกติ\" Else If Text3.Text < 29.9 Then MsgBox \"น้ำหนักตัวเกินมาตรฐาน \" Else MsgBox \"มีภาวะอ้วน\" End If End If End If End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Height As Integer Dim bmi As Single Dim weight As Integer
Height = (TextBox1.Text) weight = (TextBox2.Text) bmi = weight / ((Height / 100) ^ 2) If bmi < 18.5 Then TextBox3.Text = (" มีภาวะขาดสารอาหาร ") ElseIf bmi <= 23.4 Then TextBox3.Text = (" มีภาวะปกติ ") ElseIf bmi <= 34.9 Then TextBox3.Text = (" น้ำหนักตัวเกินมาตรฐาน ") Else TextBox3.Text = (" มีภาวะอ้วน ") End If End Sub
New Article
อัตราค่าโฆษณา
กระทู้ #2448 [Vb] (จาก IP: 58.147.49.227)
ความคิดเห็น #27307 (จาก IP: 58.8.184.150)
