公司徽标Selectcase语句Ifthen语句1Else语句2EndifIfthen语句EndifPrivateSubCommand1_Click()DimxAsIntegerx=Text1.TextIfx<180ThenLabel2.Caption="无法填报"ElseIfx>=180Andx<300ThenLabel2.Caption="可以填报专科"ElseIfx>=300Andx<330ThenLabel2.Caption="可以填报本二"ElseLabel2.Caption="可以填报本一"EndIfEndIfEndIfEndSub基本格式SelectCase表达式Case表达式列表1语句组1Case表达式列表2语句组2……Caseelse语句组N+1Endselect执行过程当表达式的值为表达式列表1时，执行语句组1；当表达式的值为表达式列表2时，执行语句组2；……当表达式的值为表达式列表N时，执行语句组N；当表达式的值不是上述值时，执行语句组N+1；（1）表达式和表达式列表可以是数值型或字符型，表达式列表还可以是多个用逗号分开的表达式。（2）表达式列表与表达式的类型必须相同。（3）表达式列表又称值域，它有如下三种形式：①表达式1，表达式2，……如：case1，3，5表示当“表达式”的值为1，3，5中的任何一个值时执行下面的语句②表达式1to表达式2如Case10to20即10到20之间的任何一个值时执行下面的语句③Is关系表达式如Caseis<=10表示小于或等于10时执行下面的语句PrivateSubCommand1_Click()DimchengjiAsIntegerchengji=Val(Text1.Text)'输入成绩SelectCasechengjiCaseIs>=330Label2.Caption="可以报考本一"CaseIs>=300Label2.Caption="可以报考本二"CaseIs>=180Label2.Caption="可以报考专科"CaseElseLabel2.Caption="不可以报考"EndSelectEndSub练习：高中新课程实施中“学生成绩的评定”是按A、B、C、D4个等级来评定，但是试卷测试成绩是按百分制来计，于是规定百分制成绩与等级评定有下面的关系：60分以下为D，60分—74分为C，75分—84分为B，85分以上为A。要求每输入一个百分制测试成绩，请判断一下是属于哪一个等级。（用Selectcase语句实现)
