第三章程序流程控制.pptx

第三章 程序流程控制;第三章 程序流程控制;案例3.1 条件语句If…Then…Else;案例3.1 条件语句If…Then…Else;例如：对语句 If ab Then max=a 也可改成多行结构形式： If ab Then max=a End If;2. If…Then…Else结构 语句格式： If 条件表达式 Then 语句块1 Else 语句块2 End If 例如，如果成绩大于60分，则在屏幕上显示“合格”，否则在屏幕上显示“不合格”。 If score60 then MsgBox ?合格? Else MsgBox ?不合格? End If;3. 多重If语句语句格式： 语句格式： If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 ElseIf 条件表达式3 Then 语句块3 …… ElseIf 条件表达式n Then 语句块n Else 语句块 End If;案例3.1 条件语句If…Then…Else;案例3.1 条件语句If…Then…Else;案例3.1 条件语句If…Then…Else;案例3.1 条件语句If…Then…Else;案例3.2 条件语句If…Then…ElseIf语句;[3.2.2 设计步骤] （1）建立程序初始界面。 （2） 设置属性。 演示：案例3.2 ;[3.2.2 设计步骤] (3)编写事件过程。 Private Sub Command1_Click( ) If Val(Text1.Text) 0 Then Text2.Text = 小于零 ElseIf Val(Text1.Text) 0 Then Text2.Text = 大于零 Else Text2.Text = 等于零 End If End Sub ;[3.2.3 思考与练习] 1.为铁路编写计算运费的程序。假设铁路托运行李，规定每张客票托运费的计算方法是： 行李重量不超过 50 kg时，每千克0.25元；超过 50 kg而不超过 100 kg时，其超过部分每千克0.35元；超过 100 kg时，其超过部分每千克0.45元。 用 If…Then…ElseIf语句实现。 （设计界面，编写完整的程序，上机实现） 分析：托运费的分段函数是什么？;Private Sub Command1_Click( ) Dim w As Single, x As Single w = Val(Text1.Text) If w = 50 Then x = 0.25 * w ElseIf w50 And w = 100 Then x = 0.25 * 50 + 0.35 * (w - 50) ElseIf w100 Then x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100) ‘如果把最后一句Text2 .Text = Str(x)写在此处，效果是什么？ End If;Text2 .Text = Str(x) End Sub 注意： 运行程序时，w50,50w=100, w100 几种情况都要??行，看结果是否正确。;[3.2.4 思考与练习] 2.根据输入三角形三边判断能否组成三角形，若可以则判断输出三角形的类型。用 If…Then…ElseIf语句实现。 （设计界面，编写完整的程序，上机实现） 说明： 三角形的类型有：等边三角形，等腰三角形，直角三角形，普通三角形。;案例3.2 条件语句If…Then…ElseIf语句;案例3.2 条件语句If…Then…ElseIf语句;案例3.3 条件语句Select Case语句;[3.3.2 相关知识] 语句格式： Select Case 测试表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 …… Case 表达式列表n 语句块n Case Else 语句块 End Select; 说明： “测试表达式”是必选项，可以是数值型或字符型表达式。“表达式列表”可以有3种形式。 ① 表达式：用来表达一些具体的数值范围。多个数值间用逗号分隔开，例如， Select case number Case 1