Jarvis Blog

VB BMI 計算測試

Public Class Form1

    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hight, weight, tmp As Double
        Dim ans As Integer
        If TextBox1.Text = "" Then
            MessageBox.Show("請填身高")
        End If
        If TextBox2.Text = "" Then
            MessageBox.Show("請填體重")
        End If
        If TextBox1.Text <> "" Then
            If TextBox2.Text <> "" Then
                hight = CDbl(TextBox1.Text)
                weight = CDbl(TextBox2.Text)
                tmp = hight / 100
                ans = weight / (tmp * tmp)
                Label4.Text = ans
            End If
        End If
        If RadioButton1.Checked = True Then
            If ans < 18 Then
                Label4.Text += "過輕"
            ElseIf ans < 24 Then
                Label4.Text += "正常"
            ElseIf ans >= 24 Then
                Label4.Text += "過重"
            End If
        End If
        If RadioButton2.Checked = True Then
            If ans < 18 Then
                Label4.Text += "過輕"
            ElseIf ans < 24 Then
                Label4.Text += "正常"
            ElseIf ans >= 24 Then
                Label4.Text += "過重"
            End If
        End If
    End Sub
End Class