以下程序的功能是,从键盘输入一个值到文本框(txtscore),单击按钮(cmd1)在标签控件(lbl1)上显示对应的等第。90分以上为优秀,80分以上为良好,60分以上为合格,其它为不合格。 Private Sub cmd1_Click() Dim dd As String Select Case Case Is >= 90 dd = "优秀" Case Is >= 80 dd = "良好" Case dd = "合格" Case Else dd = "不合格" End Select End Sub