if……elseif……else……end if 的用法

 

Public Class Form1

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click

        If txtName.Text = "1" Then
            txtName.Text = "Madras Yellow"
        ElseIf txtName.Text = "1" Then
            txtName.Text = "Sea Blue"
        ElseIf txtName.Text = "1" Then
            txtName.Text = "Morning Mist"
        ElseIf txtName.Text = "1" Then
            txtName.Text = "Passionate Purple"
        Else
            txtName.Text = "Red"
        End If
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

End Class

执行效果如同 orelse ：  只要第一个判断式成立，则后面的运算符将不再判断,如果第一个判断式不成立，则继续执行第二个判断式，以次类推。