程序设计基础VB讲稿04VB程序控制结构2011 - 图文

【例4.2.4改1】成绩分级程序Private Sub Form_Click ( )DimScore As IntegerScore=Val( InputBox( \请输入成绩：\If Score>=90 ThenPrint\优\ElseIfScore>=75 ThenPrint\良\ElseIfScore>=60ThenPrint\及格\ElsePrint \不及格\Print\score=\scoreEnd If End Sub多分支If语句?【问】能不能把上例的判断顺序“>=90、

>=75、>=60‖修改成如下顺序“>=60、>=75、>=90‖。【答】①不能。因为ElseIf子句存在优先顺序，第一个ElseIf子句最优先，根据书写顺序依次递减。②可以。ElseIf子句的<表达式>必须写出“区间范围”，此时不必考虑优先顺序问题。【例4.2.4改2】成绩分级程序Private Sub Form_Click ( )DimScore As IntegerScore=Val(InputBox( \请输入成绩：\If Score>=90 ThenPrint\优\ElseIfScore<90AndScore>=75ThenPrint\良\ElseIfScore<75AndScore>=60ThenPrint\及格\ElsePrint\不及格\Print \Score=\ScoreEnd IfEnd Sub多分支If语句?【问】如果成绩等级为：100~90为“优”；89~80为“良”；79~70为“中”；69~60为“及格”；60~0为“不及格”。如下程序代码正确吗？Private Sub Form_Click ( )Dimscore As StringScore = InputBox( \请输入成绩：\······Print\score=\scoreEnd Sub