If 语句 VS Select Case 语句

    在“研磨”百例的过程中，突然发现"If 语句" 和 "Select Case 语句"有异曲同工之妙，于是果断把实例2“蹂躏”一番。

实例：要求用Select Case 语句实现成绩等级优、良、中、差、不及格，90分以上是优、80-90是良、70-79是中、60-69是差、60分以下是不及格。

Select Case 语句

Option Explicit

Dim x

Private Sub Form_Load()

 x = Val(InputBox("请输入0-100中的数值:", "成绩等级"))

 Select Case x

 Case 90 To 100

  lblscore.Caption = "优" & Chr(13) & "成绩不错,要保持!"

 Case 80 To 89

  lblscore.Caption = "良" & Chr(13) & "还可以，要继续努力，向优靠近呐!"

 Case 70 To 79

  lblscore.Caption = "中" & Chr(13) & "要努力了，不然就要不及格了!"

 Case 60 To 69

  lblscore.Caption = "差" & Chr(13) & "努力呀，不然就要不及格了!"

 Case 0 To 59

  lblscore.Caption = "不及格" & Chr(13) & "胜不骄，败不馁，只要你肯努力，下次一定会成功的!"

 End Sel