VB课件第4章分支结构
合集下载
Visual Basic程序设计VB语言第4章 程序控制结构
d=20 End Select
Select Case months Case 1, 3, 5, 7, 8, 10, 12 days = 31 Case 4, 6, 9, 11 days = 30 Case 2 If years Mod 400 = 0 Or (years Mod 4 = 0 And years Mod 100 <> 0) Then days = 29 Else days = 28 End If
For…Next 语句
❖ For…Next 语句
在循环次数已知的情况下，采用 For…Next语句实现循环 结构是比较合适的选择。For…Next语句的格式如下： For <循环变量>=初值 To 终值 [Step 步长]
<语句>
[Exit For] <语句> Next <循环变量> 例：计算累加和：S=1+2+3+4+…+n (P75) 例：计算水仙花数 (P77) 如153，153=13+53+33 例：判断素数 (P77) for 2 to sqr(n) 例：计算Fibonacci数列 (P78) if i mod 5=0 then print
VbNo
MsgBox函数的返回值
Private Sub Command1_Click() Dim expS1$, expS2$, expN%, Response% expS1 = "是否继续?" expN = vbYesNo + vbCritical + vbDefaultButton2 expS2 = "MsgBox 信息显示窗口" Response = MsgBox(expS1, expN, expS2) If Response = vbYes Then Text1.Text = "您按下的按钮是""是""" Else Text1.Text = "您按下的按钮是""否""" End If
Select Case months Case 1, 3, 5, 7, 8, 10, 12 days = 31 Case 4, 6, 9, 11 days = 30 Case 2 If years Mod 400 = 0 Or (years Mod 4 = 0 And years Mod 100 <> 0) Then days = 29 Else days = 28 End If
For…Next 语句
❖ For…Next 语句
在循环次数已知的情况下，采用 For…Next语句实现循环 结构是比较合适的选择。For…Next语句的格式如下： For <循环变量>=初值 To 终值 [Step 步长]
<语句>
[Exit For] <语句> Next <循环变量> 例：计算累加和：S=1+2+3+4+…+n (P75) 例：计算水仙花数 (P77) 如153，153=13+53+33 例：判断素数 (P77) for 2 to sqr(n) 例：计算Fibonacci数列 (P78) if i mod 5=0 then print
VbNo
MsgBox函数的返回值
Private Sub Command1_Click() Dim expS1$, expS2$, expN%, Response% expS1 = "是否继续?" expN = vbYesNo + vbCritical + vbDefaultButton2 expS2 = "MsgBox 信息显示窗口" Response = MsgBox(expS1, expN, expS2) If Response = vbYes Then Text1.Text = "您按下的按钮是""是""" Else Text1.Text = "您按下的按钮是""否""" End If
my第4章VB基本控制结构2
If 表达式1 Then
语句块1
ElseIf 表达式 Then
语句块2
执值行，过为程真：则如执表行[E达 语l语se式 句句If 块1块表为23达真；] 式依则3次执T类行he推语n 至句找块到1；一否个则值测为试真表的达表式达2式的 则执行相应的语…句…块；若都不为真时，执行Else后语句块内容 。
块if语句中的end if能否省略？ 将块if语句改为结单束 行if语句怎么改？
4.2 选择结构
【例】
AP=riInntpAu,tBBox(“A值”时) : B应所=注I以n意p用ut循B文o序x本(":B框值输") 入输出
If A < B Then 输入 a=text1.text
T=A
A=B B=T
界面设计：
4.2 选择结构
编写代码：
Private Sub Command1_Click() Dim user As String Dim psw As String user = Text1.Text psw = Text2.Text
If user =“abc" And psw = "123456" Then
2. 给计算按钮添加程序代码： Dim x, y As Single Cls x =Val(InputBox(" 输入 X 的值 ：")) If x < 0 Then
y=3*x+2 Else
y=2*x-1 End If Print: Print: Print: Print Print “ x=”; x; “时： y= ”; y (输出结果应该是什么)
说明：
[Else
表达式最终的语值句必块须n]为逻辑型，即取值是真或者是假；
VB程序设计第四章 基本的控制结构
4.2 选择结构
选择结构作用
– 对条件进行判断，根据判断结果，选择
执行不同的分支。
If 条件语句 Select case语句 条件函数
4.2.1 If 条件语句
If 条件语句有多种形式
– 单分支
– 双分支
– 多分支
1 单分支结构
If …Then 语句
（1） If < 表达式 > Then < 语句块> End If （2）If < 表达式 > Then < 语句>
例题：
编程实现账号和密码的输入程序，要求： （1）账号不超过6位数字，密码为4位字符， 假设为“Gong” （2）密码输入时，不显示输入的字符，用 “*”代替。 （3）输入不正确，显示有关信息。单击“重 试”，则清除原来输入的内容，等待重新 输入；单击“取消”，终止程序运行。
分析 账号
– 账号不超过6位数字，则将文本框的
第四章
基本的控制结构
Summary
1. 顺序结构（Sequence） 2. 选择结构（Selection） 3. 循环结构（Repetition） 4. 其它辅助控制语句 5. 常用算法（一）
4.1 顺序结构
顺序结构
– 按照各语句出现的先后顺序执行
– 包括： 赋值语句 输入 / 输出语句
按钮值
描述 “确定” “确定”、“取消” “终止”、“重试”, “忽略” “是”、“否”、“取 消” “是”、“否” “重试”、“取消”
按钮 数目
0 1 2 3 4 5
按钮 类型
vbCritical vbQuestion vbExclamation vbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbApplicationMode vbSystemMode
课件：VB第4章
通用过程
2021/6/23
类模块：本书不涉及
17
1. 局部变量（Dim, Static定义） 在过程内定义的变量，作用域为所在过 程(子程序)
2021/6/23
18
2. 模块变量（Dim, Private定义） 作用域为该窗体或该标准模块 3. 全局变量(Public, Global定义) 作用域为该工程中的所有模块
Const PI# = 3.1415926535 Const PI As Double = 3.1415926535 Private: 私有的，表明该常量只在本过程或窗体中使用。 Public: 公共的，表明该常量可在多个模块中公用，必须在标
准模块中定义。
2021/6/23
13
3. 系统常量
VB中预定 义的，一 般以vb字 母开头， 可在对象 浏览器中 查看。
2021/6/23
14
4.2.2 变量
1. 命名规则
同C语言，不同点：
• 最后一个字符可以是类型说明符
• 不区分大小写
Var1$，Var2％，Var3!
var1 = “abc”, var2 = 5, var3 = 3.25
2. 变量的类型和定义
• 用类型说明符: Var2％
• Dim: Dim 变量名 As 类型,Dim Var2 As
Integer
• Static: Static Var2 As Integer
• Public: Public Var3 As Single
2021/6/23
15
2021/6/23
16
4.3变量的作用域
4.3.1局部变量与全局变量
VB应用程序
窗体模块 标准模块
2021/6/23
类模块：本书不涉及
17
1. 局部变量（Dim, Static定义） 在过程内定义的变量，作用域为所在过 程(子程序)
2021/6/23
18
2. 模块变量（Dim, Private定义） 作用域为该窗体或该标准模块 3. 全局变量(Public, Global定义) 作用域为该工程中的所有模块
Const PI# = 3.1415926535 Const PI As Double = 3.1415926535 Private: 私有的，表明该常量只在本过程或窗体中使用。 Public: 公共的，表明该常量可在多个模块中公用，必须在标
准模块中定义。
2021/6/23
13
3. 系统常量
VB中预定 义的，一 般以vb字 母开头， 可在对象 浏览器中 查看。
2021/6/23
14
4.2.2 变量
1. 命名规则
同C语言，不同点：
• 最后一个字符可以是类型说明符
• 不区分大小写
Var1$，Var2％，Var3!
var1 = “abc”, var2 = 5, var3 = 3.25
2. 变量的类型和定义
• 用类型说明符: Var2％
• Dim: Dim 变量名 As 类型,Dim Var2 As
Integer
• Static: Static Var2 As Integer
• Public: Public Var3 As Single
2021/6/23
15
2021/6/23
16
4.3变量的作用域
4.3.1局部变量与全局变量
VB应用程序
窗体模块 标准模块
第四章vb计算机
注意：
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
2013年7月17日星期三
n%=“12a3”
Visual Basic程序设计
符号 0 作 用 用0填充不足的位置 表达式 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
#
， %
位置不足时不填充0
千分位 数值乘以100，加百分号
1234.567
1234.567 1234.567
"#####.####"
"##,##0.000" "####.##%"
2013年7月17日星期三
Visual Basic程序设计
3. If…Then…ElseIf语句(多分支结构) 形式： If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If 注意: 1) 此处Else和If之间不能有空格，否则程序出错。 2)“表达式1-n”都是逻辑表达式。 3)不管有几个分支,程序执行了满足条件的一个分支后,其余分支不再执行。 4) 一个多分支结构中只有一个End If语句。 5)当多分支中有多个表达式同时满足时，只执行第一个与之匹配的语句块。 注意多分支中表达式的书写顺序。 6) 块结构的条件语句可以嵌套 。
4) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；如 果省略，则对话框显示在屏幕中心线向下约1/3处。
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
2013年7月17日星期三
n%=“12a3”
Visual Basic程序设计
符号 0 作 用 用0填充不足的位置 表达式 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
#
， %
位置不足时不填充0
千分位 数值乘以100，加百分号
1234.567
1234.567 1234.567
"#####.####"
"##,##0.000" "####.##%"
2013年7月17日星期三
Visual Basic程序设计
3. If…Then…ElseIf语句(多分支结构) 形式： If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If 注意: 1) 此处Else和If之间不能有空格，否则程序出错。 2)“表达式1-n”都是逻辑表达式。 3)不管有几个分支,程序执行了满足条件的一个分支后,其余分支不再执行。 4) 一个多分支结构中只有一个End If语句。 5)当多分支中有多个表达式同时满足时，只执行第一个与之匹配的语句块。 注意多分支中表达式的书写顺序。 6) 块结构的条件语句可以嵌套 。
4) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；如 果省略，则对话框显示在屏幕中心线向下约1/3处。
VB第04章
第四章算法基础及VB的基本语句的知识点习题考点详细分析1、能写一些简单的算法，明白算法即是一解题步骤2、赋值语句和input和msgbox函数注意不同类型数据的赋值转换，俩函数的参数3、分支结构与分支结构语句if语句的三种转换形式select-case-end select结构语句的使用4、循环结构与循环结构语句do-loop结构语句（当型与直到型在条件不满足时区别）for-next结构语句（注意循环控制参数）循环嵌套（初值的位置、随机函数的使用）（关于算法）明白算法就是给出解决问题的步骤给出下列题目的算法：1、给出一个求一元俩次方程根的算法（ax2+bx+c=0）2、求一个圆的周长和面积3、根据个人工资给出交税数目4、设计一个判断某正整数是一个回文数的算法。
（回文数：该数的左右数字完全对称的自然数，如121、1551等）（关于赋值语句和俩函数）1、赋值语句的一般形式__变量名=表达式__2、当系统执行一个赋值语句时，先求出“=”_右边表达式______的值，然后再把该值保存到“=”___左边变量___中，这就是“赋值”分析：基本概念答案：右边表达式左边变量3、针对语句 If I=1 then J=1，下列说法正确的是__C__ (03春)A.I=1 和J=1均为赋值语句B.均为关系表达式C.I=1为关系表达式，J=1为赋值语句D.I=1为赋值语句，J=1为关系表达式分析：基本结构语句答案：C4、运行下面的程序，单击命令按钮command1，则立即窗口上显示的结果是__A__(03春)private sub command1_click()dim A as integer,B as Boolean,C asInteger,D as integerA=20/3:B=true:C=B:D=A+CDebug. Print A, D,；A=A + CEnd subA、7 6 FalseB、6 6 FalseC、7 6 A=6D、7 8 A=8分析：不同数据类型赋值问题答案：A5、在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有__B______可使文本框Text3中显示46。
VB4第4章
本书目录
本章目录
7
赋值语句注意点
“=”符号有两个意义
赋值号、关系运算符等号 赋值号左边只能是变量，不能是常量、常数符 号、表达式。下面均为错误的赋值语句： Now()=x+y
5=sqr (s)+x+y
形式相同,系统会根据所处的位置判断符号意义。
'左边是表达式(函数)
' 左边是常量
x+y=z
VB程序设计教程
VB程序设计教程
本书目录 本章目录
21
例：已知两个数x和y，比较它们的大小，使得x 大于y。 x y If x<y Then t=x x=y t y=t End If 或 If x<y Then t=x: x=y: y=t 注意：简单If形式无End If时，只能是一句语句 或语句间用冒号分隔，而且必须在一行上书写。
4.2 选择结构和控件
计算机要处理的问题往往是复杂多变的，
If(Label1.Top>Height) Then Label1.Top=0
仅采用顺序结构是不够的。必须利用选择结
构等来解决实际应用中的各种问题。
VB 中主要通过 If 条件语句和 Select情况语
句来实现。它们都是对条件进行判断，根据
按钮：决定信息框按钮的数目、名称及图标。 返回结果：返回所按的按钮值 此两项均为整型表达式
VB程序设计教程
本书目录 本章目录
12
MsgBox按钮设置
VB程序设计教程
本书目录
本章目录
13
MsgBox所选按钮返回值
例 4.3 编一账号和密码输入的检验程序，当输入不 正确，如账号为非数字字符，密码不正确等，显示有 关信息，再输入。
第4次课课件(第3章分支结构)
例6
5.选择结构的嵌套 5.选择结构的嵌套
嵌套是指在一个控制结构中插入另一个控制结构。 嵌套是指在一个控制结构中插入另一个控制结构 。 下面是IF结构嵌套的2种常用形式： IF结构嵌套的 下面是IF结构嵌套的2种常用形式： 条件1 If 条件1 Then 条件2 If 条件2 Then …… End If
ELSE
条件1 If 条件1 Then ……
ELSE
条件2 If 条件2 Then …… End If End If
…… End If
计算机软件技术基础 Visual Basic 程序设计
在IF语句的Then分支和Else分支中也可以完整 IF语句的Then分支和Else分支中也可以完整 语句的Then分支和Else 地嵌套一个Select Case语句 同样Select 语句， 地嵌套一个Select Case语句，同样Select Case语句每一个Case分支中都可嵌套另一个 语句每一个Case分支中都可嵌套另一个IF Case语句每一个Case分支中都可嵌套另一个IF 语句或另一个Select Case语句 语句。 语句或另一个Select Case语句。 注意：只要在一个分支内嵌套，不出现交叉，满 注意：只要在一个分支内嵌套，不出现交叉， 足结构规则，其嵌套的形式将有很多种， 足结构规则，其嵌套的形式将有很多种，嵌套层 次也可以任意多。对于多层IF嵌套结构中， IF嵌套结构中 次也可以任意多。对于多层IF嵌套结构中，要特 别注意IF Else的配对关系 一个Else必须与IF IF与 的配对关系， Else必须与 别注意IF与Else的配对关系，一个Else必须与IF 配结，配对的原则是： 配结，配对的原则是：在写含有多层嵌套的程序 建议使用缩进对齐方式， 时，建议使用缩进对齐方式，这样容易阅读和维 护。
5.选择结构的嵌套 5.选择结构的嵌套
嵌套是指在一个控制结构中插入另一个控制结构。 嵌套是指在一个控制结构中插入另一个控制结构 。 下面是IF结构嵌套的2种常用形式： IF结构嵌套的 下面是IF结构嵌套的2种常用形式： 条件1 If 条件1 Then 条件2 If 条件2 Then …… End If
ELSE
条件1 If 条件1 Then ……
ELSE
条件2 If 条件2 Then …… End If End If
…… End If
计算机软件技术基础 Visual Basic 程序设计
在IF语句的Then分支和Else分支中也可以完整 IF语句的Then分支和Else分支中也可以完整 语句的Then分支和Else 地嵌套一个Select Case语句 同样Select 语句， 地嵌套一个Select Case语句，同样Select Case语句每一个Case分支中都可嵌套另一个 语句每一个Case分支中都可嵌套另一个IF Case语句每一个Case分支中都可嵌套另一个IF 语句或另一个Select Case语句 语句。 语句或另一个Select Case语句。 注意：只要在一个分支内嵌套，不出现交叉，满 注意：只要在一个分支内嵌套，不出现交叉， 足结构规则，其嵌套的形式将有很多种， 足结构规则，其嵌套的形式将有很多种，嵌套层 次也可以任意多。对于多层IF嵌套结构中， IF嵌套结构中 次也可以任意多。对于多层IF嵌套结构中，要特 别注意IF Else的配对关系 一个Else必须与IF IF与 的配对关系， Else必须与 别注意IF与Else的配对关系，一个Else必须与IF 配结，配对的原则是： 配结，配对的原则是：在写含有多层嵌套的程序 建议使用缩进对齐方式， 时，建议使用缩进对齐方式，这样容易阅读和维 护。