VB.NET Class.2

 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim hight As Integer
        Dim weight As Integer

        hight = TextBox1.Text                             //TextBox取值功能
        weight = TextBox2.Text

        Dim bmi As Double
        bmi = weight / ((hight * hight) / 10000)
        Label3.Text = "BMI值為：" & bmi            // &功能為串接不同屬性之連接子

    End Sub

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim score As Integer = TextBox1.Text

        If score > 100 Or score < 0 Then

            MessageBox.Show("輸入錯誤")

        ElseIf score >= 80 Then

            If score >= 90 Then

                MessageBox.Show("頂尖")

            Else

                MessageBox.Show("優秀")

            End If

        ElseIf score >= 60 Then

            If score >= 70 Then

                MessageBox.Show("普通")

            Else

                MessageBox.Show("低空掠過")

            End If

        Else

            If score >= 50 Then

                MessageBox.Show("補考")

            Else

                MessageBox.Show("明年再來")

            End If

        End If

    End Sub

End Class