Visual Basic程序设计第4章.pptVIP

End If 保证AB If c a Then 用C去比较 Text4.Text = c CA成立，C最大 Text5.Text = a Text6.Text = b Else If c b Then Text4.Text = a CB成立，C最小 Text5.Text = b Text6.Text = c Else Text4.Text = a C处于中间 Text5.Text = c Text6.Text = b End If End If End Sub 退出按钮代码 Private Sub Command2_Click() End End Sub 注意： 1．保持块If结构的完整，不要漏掉End If。 2．尽量采用缩进式书写格式，使结构清晰。 3．尽量选择恰当的条件，使程序简单明了。 4.2 Else If语句 当需要进行多路分支处理时，例如，根据一个学生的分数，判定他的等级（优、良、中、及格、不及格），由于条件比较多，会出现较繁琐的嵌套。而利用ElseIf语句或Select Case语句则可以方便解决这类问题。 格式： If 条件1 then 语句块1 ElseIf 条件2 then 语句块2 …… [Else 语句块n+1] End If 功能： 1．依次判断条件，如果找到一个满足的条件，则执行其下面的语句块，然后跳过End If，执行后面的程序。 2．如果所列出的条件都不满足，则执行Else语句后面的语句块；如果所列出的条件都不满足，又没有Else子句，则直接跳过End If，不执行任何语句块。图4.4 Else If结构执行过程F…TTTFF条件1条件n条件2语句块1语句块2语句块n语句块n+1End If下一语句  F … T T T F F 条件1 条件n 条件2 语句块1 语句块2 语句块n 语句块n+1 End If下一语句 图4.4 Else If结构执行过程 【例4.4】 输入一个学生的一门课分数X（百分制），当x≥90时，输出“优秀”；当80≤x＜90 时，输出“良好”；当 70≤x＜80 时，输出“中”；当60≤x＜70 时，输出“及格”，当 x＜60 时，输出“不及格”。 算法分析：本例适合用多路分支结构来解决。运行界面如图4-7所示。 图4-7 例4.4运行界面 属性设置如表4-4所示。 对象 属性 设置 Command1 Caption 鉴定 command2 Caption 退出 Label1 Caption 输入分数 Label2 Caption 档次 Text1 Text 空 Text2 Text 空 Form1 Caption 成绩分段鉴定 表4-4 例4.4控件属性设置 程序代码如下： “鉴定”按钮代码 Private Sub Command1_Click() Dim score! score = Text1.Text If score = 90 Then Text2.Text = 优秀 ElseIf score = 80 Then Text2.Text = 良好 ElseIf score = 70 Then Text2.Text = 中 ElseIf score = 60 Then Text2.Text = 及格 Else Text2.Text = 不及格 End If End Sub “退出”按钮代码 Private Sub Command2_Click() End End Sub 第 4 章 选择结构 块If 4.1 Else If语句 4.2 行If语句 4.3 Select Case语句 4.4 在程序设计中经常需要根据不同的情况采用不同的处理。例如，一元二次方程的求根问题，要根据判别式小于零或大于等于零的情况，采用不同的数学表达式进行计算。对于这类问题，必须借助选择结构。 本章主要介绍实现选择结构的语句。包括：行If语句、块If语句、 Else If语句、Select Case语句，以及选择结构在程序设计中的应用。 4.1 块If 4.1.1 块If的格式、功能 格式： If 条件 then 语句块1　　 [ Else 语句块2] End