Public Class Form1
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
Select Case txtName.Text
Case "1"
txtName.Text = "Madras Yellow"
Case "1"
txtName.Text = "Sea Blue"
Case "1"
txtName.Text = "Morning Mist"
Case "1"
txtName.Text = "Passionate Purple"
Case Else
txtName.Text = "Red"
End Select
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 : 只要第一个判断式成立,则后面的运算符将不再判断,如果第一个判断式不成立,则继续执行第二个判断式,以次类推。