懂VB的帮帮忙哈,要求把下面这道题If……Then……Elseif的语句改变成SelectCase语句形式,已知某课程的百分制成绩mark,要求转换成对应五级制的评定grade,评定条件如下：等级为：优,mark>=90良,80

Question

懂VB的帮帮忙哈,要求把下面这道题If……Then……Elseif的语句改变成Select Case语句形式,
已知某课程的百分制成绩mark,要求转换成对应五级制的评定grade,评定条件如下：
等级为：优,mark>=90
良,80

Answer 1

select case mark
case is >=90
grade="优"
case 80 to 89
grade="良"
case 70 to 79
grade="中"
case 60 to 69
grade="及格"
case else
grade="不及格"
end select