有如下程序： infocase$=InputBox("Inputoneletter:") Select Case infocase$ case"a" grade$="Verygood" case"b" grade$="Good" case"C" grade$="OK" case"d" grade$="Qualified" case Else grade$="Bab" End Select

A．Very good

B．Good

C．Bad

D．Qualified