BMI計算.exe

Public Class Form1
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

        Dim tall, kil, ans As String
        tall = InputBox("請輸入您的身高,公尺與公分皆可.", "請輸入身高")
        Val(tall)
        If tall < 50 Then
            kil = InputBox("請輸入您的體重,以公斤輸入.", "請輸入體重")
            Val(kil)
            ans = kil / (tall ^ 2)
        Else
            kil = InputBox("請輸入您的體重,以公斤輸入.", "請輸入體重")
            Val(kil)
            ans = kil / (tall / 100) ^ 2
        End If
        Select Case ans
            Case Is >= 18.5 : MessageBox.Show("您的BMI值為：" + ans + "--體重過輕", "計算結果：體重過輕")
            Case Is < 24 : MessageBox.Show("您的BMI值為：" + ans + "--體重過重", "計算結果：體重過重")
            Case Else : MessageBox.Show("您的BMI值為：" + ans + "--體重標準", "計算結果：體重標準")
        End Select
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ans As String
        ans = MsgBox("程式即將結束", 64 + 4, "結束ing")
        If ans = 6 Then
            End
        Else
        End If
    End Sub
End Class