在“研磨”百例的过程中,突然发现"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