編程，用selcet case語句將用戶輸入的百分制成績轉換為等級制輸出，百分制成績由Inputbox函數獲得 ,轉換後

select case a

case 1 to 59

msg="不及格"

case 60 to 69

msg="勉強可以'

case 70 to 79

msg="還需努力"

case 80 to 90

msg="好學生"

case 91 to 99

msg="尖子生"

case 100

msg="學科王子"

end select

msgbox msg

'VB 下運行 ， VBS 不行