Select Case score
Case Is >= 90
Print "优秀"
Case Is >= 80
Print "良好"
Case Is >= 70
Print "中等"
Case Is >= 60
Print "及格"
Case Is >= 0
Print "不及格"
Case Else
Print "Error!"
End Select
请把“Case” 改成红色，其余代码颜色不变，注意是在代码窗口中设置

如果你想只改Case这一个词的颜色，而不让Select、End、Print等这些词跟着一起改颜色，那很抱歉，VB6自己做不到