Question

用select case编写程序完成输入

一学生成绩评定其等级，在窗体上输出，
方法是：90-100 优秀
80-89 良好
70-79 中等
60-69 及格
69分以下 不及格

请将答案发到邮箱tezukakuni@sina.com，万分感谢~~~

Answer 1

Dim a
a=Inputbox("输入成绩")
a=int(a)
select case a
case a>=90 or a=< 100
Msgbox "优秀"
case a>=80 or a=< 89
Msgbox "优良"
case a>=70 or a=< 79
Msgbox "中等"
case a>=60 or a=< 69
Msgbox "及格"
case a<60
Msgbox "不合格"
case else
Msgbox "输入错误"
end select