《VisualBasic 程序设计教程 教学课件 ppt 作者 刘莲英 第5章 选择结构》由会员分享，可在线阅读，更多相关《VisualBasic 程序设计教程 教学课件 ppt 作者 刘莲英 第5章 选择结构（37页珍藏版）》请在金锄头文库上搜索。
1、1/37,第 5 章,本章主要内容 5.1 选择结构程序示例 5.2 If语句 5.3 Select Case语句 5.4 选择结构程序举例,选择结构程序设计,2/37,5.1 选择结构程序示例,【例5-1】修改例4-1，判断在文本框中输入的三条边a、b、c是否构成三角形，如果构成三角形则在标签中输出三角形的面积，否则在标签中输出“不能构成三角形”。运行界面如图5-1所示。,第5章 选择结构程序设计,3/37,操作步骤如下：, 界面设计和属性设置（略）。 编制各命令按钮的单击事件过程。 “计算”命令按钮的单击事件过程（其他两个按钮的事件过程略）如下：,4/37,Private Sub Comm
2、and1_Click() Dim a!, b!, c!, s!, area! a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And a + c b And b + c a Then s = 1 / 2 * (a + b + c) area = Sqr(s * (s - a) * (s - b) * (s - c) Label5.Caption = Str(area) Else Label5.Caption = “不能构成三角形“ End If End Sub,5/37,1. 单分支的If语句,单分支
3、的If语句有单行格式和块结构格式: 单行格式 If 表达式 Then 语句序列 块结构格式 If 表达式 Then 语句序列 End If,例如： If ab Then max=a: min=b 块结构格式： If a b Then max = a min=b End If,6/37,2. 双分支的If语句,双分支的If语句也有单行格式和块结构格式： 单行格式 If 表达式 Then 语句序列1 Else 语句序列2 块结构格式 If 表达式 Then 语句序列1 Else 语句序列2 End If,例如： If XY Then Print X Else Print Y 块结构格式： If X
4、Y Then Print X Else Print Y End If,7/37,3. 多分支的If语句,语句格式： If 表达式1 Then 语句序列1 ElseIf 表达式2 Then 语句序列2 Else 语句序列n End If,例如： If a 0 Then x = -1 ElseIf a = 0 Then x = 0 Else x = 1 End If,8/37,IIf函数可用来执行简单的条件判断，其语法格式为：IIf（表达式，表达式1，表达式2） 例如： Max=IIf(XY, X, Y) 它与下面的语句等价： If XY Then Max=X Else Max=Y 功能：当表达式
5、值为True时，函数值为表达式1的值，当表达式值为False时，函数值为表达式2的值。,4. IIf函数,9/37,5. If语句的应用,【例5-2】设计“成人体重自测”程序，运行时的界面如图5-5所示，要求：,图5-5 “成人体重自测”运行界面,10/37, 两个文本框的文字对齐方式为居中，最多接收3个字符。 单击“开始测试”按钮后，根据计算公式将相应提示信息通过标签显示出来。 计算公式：标准体重=身高-105 体重高于标准体重的1.1倍为偏胖，提示“偏胖”。 体重低于标准体重的0.9倍为偏瘦，提示“偏瘦”。 其他为正常，提示“”。 单击“重新填写”按钮后，文本框以及显示的信息被清空，并将焦
6、点置于“身高”数据的文本框中。,11/37,操作步骤如下：, 界面设计和属性设置（略，文本框最多接收3个字符：MaxLength=3）。 编写各命令按钮的单击事件过程。 “开始测试”命令按钮的单击事件过程,12/37,Private Sub Command1_Click() Dim lx% lx用来存放理想体重 If Text1.Text = “ Or Text2.Text = “ Then Exit Sub lx = Val(Text1.Text) - 105 Label4.Caption = lx If Val(Text2.Text) lx * 1.1 Then Label6.Captio
7、n = “偏胖，少吃点可以吗?还要多多运动啊!“ ElseIf Val(Text2.Text) lx * 0.9 Then Label1.Caption = “偏瘦，你应该多吃点东西啊!“ Else Label6.Caption = “我好羡慕你啊，你这可是标准身材啊! “ End If End Sub,13/37,Private Sub Command2_Click() “重新填写”命令按钮的单击事件过程 Text1.Text = “ Text2.Text = “ Label4.Caption = “ Label6.Caption = “ Text1.SetFocus 将焦点置于身高文本框中
8、 End Sub,14/37,使用If语句实现的程序段如下： If x=90 then Print “优秀“ ElseIf x=80 Then Print “良好“ ElseIf x=70 Then Print “中等“ ElseIf x=60 Then Print “及格“ Else Print “不及格“ End If,例：输入一学生成绩，评定其等级。方法是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“及格”，60分以下为“不及格”。,15/37,5.3 Select Case语句,Select Case语句也是实现多分支的语句。 1. Select
9、Case语句的语法格式：,16/37,5.3 Select Case语句（续）,Select Case 表达式 Case 表达式列表1 语句序列1 Case 表达式列表2 语句序列2 Case 表达式列表n 语句序列n Case Else 语句序列n+1 End Select,功能：首先计算表达式的值，然后依次与表达式列表1n中的值比较，若与表达式列表i相匹配，则执行语句序列i，然后结束Select Case语句；如果与表达式列表1n都不匹配，则执行语句序列n+1，如果没有Case Else语句，则结束Select Case语句的执行。,17/37,5.3 Select Case语句（续）,说
10、明： “表达式”是数值型或字符串表达式。 “表达式列表”须是与“表达式”同类型的下面四种形式之一或是用逗号分开的多个表达式列表： 表达式 例如：A+5 一组枚举表达式（用逗号分隔） 例如：2, 4, 6, 8 表达式1 To 表达式2 例如：60 To 100 Is 关系运算符表达式 例如：Is 60,18/37,【例5-3】输入一学生成绩，评定其等级。评定标准是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“及格”，60分以下为“不及格”。 代码如下： Private Sub Form_Click() Dim x! x = Val(InputBox(“请输
11、入成绩：“) Select Case xk,2. Select Case语句的应用,19/37,Case 90 To 100 Print “优秀“ Case 80 To 89 Print “良好“ Case 70 To 79 Print “中等“ Case 60 To 69 Print “及格“ Case Else Print “不及格“ End Select End Sub,20/37,choose函数可实现简单的Select Case End Select语句的功能。 语法格式： Choose（数值表达式，表达式1，表达式2， 表达式n） 功能：如果数值表达式的值为1，则返回表达式1的值，
12、如果数值表达式的值为2，则返回表达式2的值，以此类推。若数值表达式的值小于1或大于n，则函数返回Null。,3. Choose函数,21/37,Choose函数举例,例如：利用随机函数，随机产生+、-、*、/的运算符。 Nop= Int（Rnd * 4）+ 1 产生14的整数 OP= Choose（Nop, “+“, “-“, “*“, “/“）,22/37,5.4 选择结构程序举例,【例5-5】修改例4-4来宾登记程序。界面如图5-7（a），当来宾在文本框中输入了姓名、性别和电话后，单击“登记”按钮，输出界面如图（b）所示。如果来宾单击“是”按钮，则窗体的文本框清空，等待下一位来宾登记；如果
13、来宾单击“否”按钮，则在窗体的标签中显示“请您重新登记!”，单击窗体的“结束”按钮则结束程序的运行。,图5-7 来宾登记运行界面,图5-7 来宾登记运行界面,23/37,操作步骤如下：, 界面设计和属性设置（略）。 编制各命令按钮的单击事件过程。 代码如下： 单击“登记”命令按钮的事件过程 Private Sub Command1_Click() Dim name$, tel$, r%, sex$ name = Trim(Text1.Text) sex = Trim(Text2.Text) tel = Trim(Text3.Text),24/37,If sex = “男“ Then r = M
14、sgBox(name & “先生您好！“ & Chr(10) & “您的电话是“ & tel & “，输入信息是否正确？“, 4 + vbInformation, “提示“) ElseIf sex = “女“ Then r = MsgBox(name & “女士您好！“ & Chr(10) & “您的电话是“ & tel & “，输入信息是否正确？“, 4 + vbInformation, “提示“) Else r = MsgBox(name & “您好！“ & Chr(10) & “您的性别是？电话是“ & tel & “，输入信息是否正确？“, 4 + vbInformation, “提示
15、“) End If,25/37,If r = 6 Then 如果单击了“是”按钮 Label1.Caption = “欢迎您的光临!“ Text1.Text = “ Text2.Text = “ Text3.Text = “ Exit Sub 退出过程 ElseIf r = 7 Then 如果单击了“否”按钮 Label1.Caption = “请您重新登记!“ End If End Sub,26/37,5.4 选择结构程序举例（续）,【例5-6】设计一个求一元二次方程ax2+bx+c=0根的程序。 思路：求解一元二次方程的基本算法是求根公式： 用户首先输入方程的系数a、b、c，然后让计算机判
16、断b2-4ac的值，由其值是否大于等于零来决定是求实根还是虚根。具体算法如图5-8所示。程序运行界面如图5-9所示。,27/37,图5-9 求二次方程的根,（a）,（b）,（c）,28/37,操作步骤如下： 界面设计和属性设置（略）。 编制各命令按钮的单击事件过程。 代码如下： Private Sub Command1_Click() Dim a!, b!, c!, x1!, x2!, d! a = Val(Trim(Text1.Text) b = Val(Trim(Text2.Text) c = Val(Trim(Text3.Text),29/37,If a 0 Then d = b * b - 4 * a * c If d = 0 Then 实根情
