实验二十六 VBA编程——分支结构
大学VB教程第5讲-循环结构与分支结构
Select case
数值型或字符串表达式
a+b Select Case 变量或表达式 case 表达式列表1 Case 后不能出现变量 语句块1 case 表达式列表2 语句块2 …… [case else 语句块n+1] End select
case 列表 一组枚举表达式(用逗号分隔) 2,4,6,8 "A","B","C" 表达式1 To 表达式2 60 To 100 Is 关系运算符表达式 Is < 60 注：关系表达式只能是简单条件，不可以加 入逻辑运算符。 错误：Is<100 and is>60
选择（分支）结构★
语句形式：
If-Then语句（单分支结构） If-Then-Else语句（双分支结构） If语句 If-Then-ElseIf语句（多分支结构）
If语句的嵌套
Select Case语句
IIF函数和Choose函数
返回值=IIF(表达式,当条件为真时的值,当条件 为假时的值) 例:Tmax=IIF(x>y,x,y) Choose(数字类型变量,值为1的返回值,值为2的 返回值,……) 例:a=2 X=Choose(a,2,4,6,8) Print x
例5.4
Private Sub Command1_Click() Dim x As Double, y As Double x = Val(Text1.Text) If x > -1 Then y = Sqr(x + 1) Else y = x * x End If Text2.Text = Str(y) End Sub
例题
语句： Select case x case is<=0 y=x^3+1 case is<=2 y=2 case else y=5*x End select
第3章VisualBasic语言进阶
9
3.1.2 分支结构
2．Select Case结构 Select Case 结构与 If...Then...Else 结构类似，但对多条
件选择时，有时用Select Case 语句代码效率更高，更易读。 语法：
Select Case 变量 | 表达式 Case 值1
语句块1 [Case 值2
语句块2] ... [Case Else
3.1 基本控制结构
❖ 3.1.1 顺序结构 ❖ 3.1.2 分支结构 ❖ 3.1.3 循环结构
1
3.1.1 顺序结构
顺序结构就是整个程序按书写顺序依次自上而下执行。 前面两章设计和编写的程序都是顺序结构的。
顺序结构如图所示，先执行A，再执行B，即自上而下 依次运行。图(左)图为框式流程图，图(右)为N-S流程图， 又称为盒图。
y = "及格" Else
y = "不及格" End If Text2.Text = y End Sub
7
3.1.2 分支结构
【例3-3】使用多个条件的If...Then...Else结构查询学生的成绩， 将成绩分成优、良、中、及格和不及格，90～100为优，80～90 为良，70～80为中，60～70为及格，60以下为不及格。
5
3.1.2 分支结构
程序代码如下：
Private Sub Command1_Click() '单击按钮显示成绩
Dim x As Single Dim y As String x = Val(Text1.Text) y = "不及格" If x >= 60 Then y = "及格" Text2.Text = y End Sub 程序分析：使用If...Then语句，当满足条件“x>=60”就执 行Then后面的语句“y = "及格"”，否则就执行If...Then语 句后面的语句。
_实验4：分支结构程序设计
实验4 分支结构程序设计一、实验目的1.进一步掌握关系表达式和逻辑表达式的使用。
2.熟悉选择结构程序设计。
3.熟练使用if语句进行程序设计。
4.使用switch语句实现多分支选择结构。
二、实验要求1.复习关系表达式、逻辑表达式、条件表达式的相关内容；2.复习if语句、if…else语句、switch语句的执行流程；3.使用switch语句进行菜单程序的设计，管理你所完成的实验函数；4.完成各项实验任务及问题讨论。
三、实验内容进入VC6开发环境，在自己的目录中建立新的项目four；然后创建一个新源程序文件名four.c ，将在本实验中，你所编写的所有代码放入该文件。
#include <stdio.h>void four_test1_1( );void four_test1_2 ( );void four_test2 ( );void four_Menu ( ){printf(“\n***************************\n”);printf(“\n 1. 运行函数four_test1_1”);printf(“\n 2. 运行函数four_test1_2”);printf(“\n 3. 运行函数four_test2”);printf(“\n 0. 退出”);printf(“\n***************************\n”);}void four_Select( ){int select;four_Menu ( ); /* 显示菜单*/printf(“\n请输入你的选项：”);scanf(“%d”,&sel ect);switch(select){case 1: four_test1_1( ); break;case 2: four_test1_2 ( ); break;case 3: four_test2 ( );break;case 0: return;default: printf(“\n The select is ERROR\n”); } }int main( ){four_Select( );}请将本次实验中完成的所有函数，都用菜单管理起来。
VB《分支结构》教学设计教案
VB《分支结构》教学设计教案教学目标：1.理解分支结构在程序设计中的作用；2.掌握VB中的分支结构语法和使用方法；3.能够运用分支结构解决实际问题。
教学内容：1.分支结构的概念和作用；2.VB中的分支结构语法和使用方法；3.实例分析和解决问题。
教学重难点：1.分支结构在程序中的运用；2.让学生能够熟练掌握VB中的分支结构语法和使用方法。
教学准备：1.计算机；2.VB软件；3.教学PPT。
教学过程：一、引入新知识（10分钟）1.教师出示一幅图片，让学生描述图片中的不同部分，并引导学生思考如何根据不同情况做出不同的决策。
2.引导学生思考，如果是计算机要根据一些条件来做出决策，应该怎么做？3.教师将学生的思考引入到分支结构的概念，解释分支结构的作用和作用原理。
二、教学讲解（20分钟）1.运用PPT讲解分支结构在程序设计中的作用，并通过生动的例子让学生更好地理解。
2. 介绍VB中的分支结构语法和使用方法，包括If语句、Select语句等。
三、案例分析（30分钟）1.教师给出一些实际问题，如判断学生成绩等，通过引导学生讨论，分析如何运用分支结构解决问题。
2.学生根据所学的分支结构知识，利用VB软件编写解决问题的程序代码，并进行实操演示。
3.学生分享自己编写的代码，让其他同学进行评价和改进。
四、练习与总结（20分钟）1.学生分组进行练习，给出一些小问题让学生编写程序代码来解决。
2.学生交流分享自己的解题思路和代码，进行总结和讨论。
五、课堂小结（10分钟）1.教师对本节课内容进行总结，并强调分支结构在程序设计中的重要性；2.提醒学生需不断练习，加深对分支结构的理解和掌握；3.鼓励学生利用分支结构解决实际问题，提高编程能力。
教学拓展：1.学生可根据自己的兴趣和实际情况，尝试更复杂的问题，加深对分支结构的掌握和应用。
2.学生可通过参加编程比赛等活动，锻炼和提高编程能力。
vba语法结构
vba语法结构VBA（Visual Basic for Applications）是Microsoft Office的宏编程语言，用于自动化Office应用程序。
以下是VBA的一些基本语法结构：1. 声明变量：```vbaDim variableName As dataType```2. 赋值语句：```vbavariableName = value```3. 条件语句：If...Then...ElseIf...End If```vbaIf condition Then' code to execute if the condition is trueElseIf anotherCondition Then' code to execute if the first condition is false and the second condition is trueElse' code to execute if both conditions are falseEnd If```4. 循环语句：For...Next```vbaFor counter = start To end [Step increment]' code to execute within the loopNext [counter]```Do...While...Loop```vbaDo While condition' code to execute within the loopLoop```5. 数组：```vbaDim MyArray(n) As dataType```6. 子程序（Sub）和函数（Function）：Sub不返回值，而Function返回值。
7. 错误处理：使用`On Error`语句。
例如，`On Error GoTo ErrorHandler`。
8. With语句：简化对多个对象的相同操作。
VB《分支结构》教学设计教案
VB《分支结构》教学设计教案教学设计教案：VB的分支结构第一部分：教学目标1.了解分支结构的概念和作用；2. 学习使用VB语言中的If语句和Select Case语句实现分支结构；3.能够运用所学的知识编写简单的分支结构程序；4.培养学生逻辑思维和问题解决能力。
第二部分：教学重点和难点教学重点：学习分支结构的基本概念和用法，掌握If语句和Select Case语句的使用方法。
教学难点：运用所学的知识编写实际的分支结构程序。
第三部分：教学准备教师准备：提前准备好演示案例和教学PPT，备课资料。
学生准备：预习教材相关内容，熟悉VB的基本语法。
第四部分：教学过程步骤1：引入新知识（5分钟）通过展示一个有关选择披萨种类的案例来引入本节课的内容，让学生了解到在编写程序时，可能需要根据条件来进行不同的操作。
步骤2：讲解分支结构的概念和作用（10分钟）向学生介绍分支结构的概念，即根据不同的条件选择不同的路径执行。
讲解分支结构在编程中的作用，如根据用户输入的不同数据做出不同的反应、根据条件判断结果执行不同的操作等。
步骤3：讲解If语句的用法（20分钟）首先通过实际案例向学生展示If语句的基本用法和语法结构，然后逐步详细讲解各个部分的含义和作用。
包括If条件判断、Then语句块、Else语句块等。
步骤4：通过案例演示If语句的实际应用（15分钟）给学生展示一个使用If语句实现猜数字游戏的案例，让学生理解If语句的具体应用场景。
通过演示过程，让学生了解如何根据不同条件输出不同的结果。
步骤5：讲解Select Case语句的用法（20分钟）向学生详细讲解Select Case语句的用法、语法结构和关键字的含义。
解释它与If语句之间的异同之处，并通过实例演示各个部分的作用。
步骤6：通过案例演示Select Case语句的实际应用（15分钟）给学生展示一个使用Select Case语句实现成绩等级划分的案例，让学生了解如何使用Select Case语句根据不同的条件输出不同的结果。
第五课-分支结构讲义
属性名 Caption Caption Caption Caption
Text Text Text Caption Caption
属性值 比较两数大小
第一个数 第二个数 最大数
0 0 (空) 比较 退出
程பைடு நூலகம்步骤三：代码编写
Private Sub Command1_Click() t1=text1.text t2=text2.text
End If End Sub
2020/8/1
谢谢
2020/8/1
程序步骤二：属性设置
对象名 Form1 Label1
Text1
属性名 Caption Caption
Text
属性值 天气报告 晴天指数为
（空）
Command1 Caption
报告
2020/8/1
程序步骤三：代码编写
Private Sub Command1_Click()
If text1.text>10 then Rem 晴天指数大于10时 Image1.picture=loadpicture(“路径\qt.jpg”) Else Rem 晴天指数不大于10时 Image1.picture=loadpicture(“路径\yt.jpg”)
2020/8/1
分支结构的程序实例一比较两数大小
开始 输入两个数：a、b
输出a
比较两数大 小
输出b
2020/8/1
结束
程序步骤一：设计窗体
3个标签控件 3个文本框控件 2个命令按钮
2020/8/1
2020/8/1
程序步骤二：属性设置
对象名 Form1 Label1 Label2 Label3 Text1 Text2 Text3 Command1 Command2
(6)-分支结构(语句)
输入数据送变量a 输入数据送变量b c←a a←b b←c 输出变量a 的值 输出变量b 的值 结束
四、VB语言基础 VB语言基础
2、选择模式(分支结构) 选择模式(分支结构)
双分支结构： 双分支结构：
VB的基本数据类型（课本P58） 的基本数据类型（课本 的基本数据类型 ）
类型名 说明 性质 -32768～32767范围内的任何整数 32768～32767范围内的任何整数 -2147483648～2147483647范围内的任何整数 2147483648～2147483647范围内的任何整数 Integer 整数 Long Single Double String 长整数
【例1】打印出从键盘输入的两个不相等的数中较大 】 的数。（双分支结构） 。（双分支结构 的数。（双分支结构）
开始 输入a,b 输入 Y 输出 a 结束 a>b N 输出 b
Dim a, b As Integer a = InputBox("请输入第一个数 请输入第一个数") 请输入第一个数 b = InputBox("请输入第二个数 请输入第二个数") 请输入第二个数 IF a>b THEN THEN Print a ELSE Print b END IF
二、运算符及运算次序
3、逻辑类基本运算
基本运算 非 与 或 运算符 Not And Or 优先级 8 9 10 范例表达式 Not(3>2) (25>=10)And(25<=100) (25>100)Or(25<2) 运算结果 False True False
VB分支结构教学设计
VB分支结构教学设计教学设计一：if语句的使用教学目标：1.学生能够理解分支结构的概念和应用场景；2. 学生能够掌握if语句的语法和使用方法；3. 学生能够通过编程实践运用if语句解决具体问题。
教学准备：1. 讲义或幻灯片，介绍分支结构和if语句的概念；2. 编程软件，如Visual Studio等。
教学步骤：1.引入分支结构的概念，通过简单的实例说明分支结构的应用场景，如根据用户的性别输出不同的问候语。
2. 介绍if语句的语法和使用方法，包括条件判断和执行语句块。
3. 通过示例代码演示if语句的基本用法，如判断一个数是否是偶数并输出相应的提示信息。
4.要求学生自行编写代码，实现更复杂的功能，如判断一个年份是否是闰年。
5.分组讨论，让学生分享自己编写的代码，并互相评价改进。
6. 总结if语句的使用场景，并强调其在编程中的重要性和灵活性。
7. 练习：出示一系列具体问题，要求学生运用if语句解决，并给予适当时间让学生独立完成。
教学设计二：switch语句的使用教学目标：1. 学生能够理解switch语句的概念和应用场景；2. 学生能够掌握switch语句的语法和使用方法；3. 学生能够通过编程实践运用switch语句解决具体问题。
教学准备：1. 讲义或幻灯片，介绍switch语句的概念和语法；2. 编程软件，如Visual Studio等。
教学步骤：1. 引入switch语句的概念，通过简单的实例说明switch语句的应用场景，如根据用户的选择执行不同的操作。
2. 介绍switch语句的语法和使用方法，包括表达式、case和break 关键字。
3. 通过示例代码演示switch语句的基本用法，如根据用户的输入进行不同的操作。
4.要求学生自行编写代码，实现更复杂的功能，如根据用户输入的成绩判断其级别并输出相应的提示信息。
5.分组讨论，让学生分享自己编写的代码，并互相评价改进。
6. 总结switch语句的使用场景，并强调其在编程中的重要性和灵活性。
二级VB：选择结构（或称分支结构）
二级VB：选择结构（或称分支结构）二级VB：选择结构(或称分支结构)━━━━━━━━━━━━━━━━━━━━━━━━━━4.3 选择结构(或称分支结构)1. IF条件语句(1)If……Then语句（单分支结构 F）语句形式：1)If <表达式> Then语句块End If2)If <表达式> Then <语句>说明：表达式一般为关系表达式、逻辑表达式，也可以为算术表达式，非0为True，0为False；语句块可以是一句或多句，若用2）表示，则只能是一句语句，若多句，语句间需用冒号分隔，而且必须在一行上书写。
例：已知两个数x和y，比较它们的大小，使得 x大于y：方法一： if xt=xx=yy=tend if方法二： if x注意：将两个变量中的数进行交换时，必须借助于第三个变量才能实现。
(2)If……Then……Else语句（双分支结构）语句形式：1）If <表达式> Then<语句块1>Else<语句块2>End If2） If <表达式> Then <语句1> Else <语句2>例： x2 -5 x≠03x +2 x=0(3)If……Then……ElseIf语句（多分支结构）语句形式：If <表达式1> Then<语句块1>ElseIf <表达式2> Then<语句块2>……[ Else 语句块 n+1 ]End If注意：1）不管有几个分支，程序执行了一个分支后，其余分支不再执行；2）ElseIf 不能写成Else If3）当多分支中有多个表达式同时满足，则只执行第一个与之匹配的语句块例：已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。
（4）If语句的嵌套If语句的嵌套是指if 或else后面的语句块中又包含If语句。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验二十六 VBA编程——分支结构的使用
一、实验目的和要求
1. 了解分支结构的应用原理
2. 掌握两种典型的分支结构语法和流程
3. 掌握数据的输入函数InputBox()和输出函数MsgBox()的使用
二、实验内容
1. 新建一个模块，命名为模块1。功能：用户通过输入框输入一个数字后，
如大于60，则出现消息框显示及格，否则显示不及格。
操作步骤:
Sub stu_mark（）
Dim Mark As Integer
Mark = Val(InputBox("请输入学生成绩"))
If Mark >= 60 Then
MsgBox ("及格")
Else
MsgBox ("不及格")
End If
End sub
输入完毕后，单击运行按钮运行此模块。
2. 建一个窗体，含有2个标签，2个文本框，1个按钮。效果如图所示。
要求：在文本框1内输入一个百分制成绩，单击命令按钮时，可以在文本框
2中显示对应的等级（优秀、良好、中等、及格、不及格）。
提示：用IF结构做。
操作步骤：
标签“请输入成绩：”旁的文本框名称为“成绩”，标签“该成绩的等级为：”旁的文本框名
称“等级”
“判断等级”按钮的单击事件为：
Private Sub 命令4_Click()
Dim intscore As Integer
Dim strgrade As String
intscore = Me.成绩
If intscore >= 85 Then
strgrade = "优秀"
ElseIf intscore > 75 Then
strgrade = "良好"
ElseIf intscore > 60 Then
strgrade = "及格"
Else
strgrade = "不及格"
End If
Me.等级 = strgrade
End Sub
3.编写程序用select case 语句改写上题。
选做题：
1. 创建“闰年”程序。闰年的判别条件为：年份能被4整除但不能被100
整除，或者，年份能被100整除又能被400整除。
要求：单击窗体，弹出输入框输入一个年份，然后在消息框中显示出“是闰
年”或“不是闰年”的判断结果。
2. 编写一个计算个人所得税的程序。假设个人所得税的收缴标准如下：收入
少于或等于2000元，不收税；收入超过2000元的部分，按5%收税；收入超过
5000元的部分，按10%收税；收入超过1 0000元的部分，按20%收税。
提示：个人收入从inputbox（）对话框输入。计算结果输出在窗体上的一个
文本框里。
要求：使用if和select case两种方法实现。
3. 编程实现三个数的排序。要求：
①单击窗体时，利用inputbox( )接收3个数字，并将3个数分别显示在相应
标签下面。
②单击命令按钮时，将三个数按照从小到大的顺序排序；并在窗体上打印文
字“三个数从小到大为：”，后面接着显示排序后的数字。
(a) (b)