第4章：Visual Basic的基本控制结构
合集下载
VB第4章
数据输入输出
例1：MsgBox "请确认交易金额",33,"交易 确认"
例2：MsgBox "请确认交易金额",52,"交易 确认"
MsgBox按钮设置
分组
内部常数 VBOkOnly VBOkCancel VBAboutRetryIgnore VBYesNoCancel VBYesNo VBRetryCancel VBCritical
数据输入输出
1、标签和文本框 说明：标签利用它的Caption属性；文本框利 用它的Text属性。 例如： a%=Val（Text1） ’完成数据输入 c！=5/9*（a-32） Text2=c ’完成数据输出 Label1.Caption=3.14*r*r
数据输入输出
2、输入对话框InputBox函数 功能:打开一个对话框，等待用户输入，返回 字符串类型的输入值。 例: InputBox("请输入数值")
If 条件语句
2、双分支结构
形式： （1）If <表达式> Then <语句块1> Else <语句块2> End if
（2）If <表达式> Then
T 表达式 F
语句块 1
语句块 2
<语句1>
Else
<语句 2>
例：下列哪一段代码是正确的？
1) if a>1 then k=0 else k=1 2) if a>1 then k=0 end if 错误 3) if a>1 then k=0 else k=1
Visual Basic 程序设计教程
第四章 VB控制结构
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
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
第4章VB控制结构
…
2.表达式列表形式如下 ：
[Case Else
•表达式
例: "A"
语句块n+1] End Select
•一组用逗号分隔的枚举值2,4,6 •表达式1 To 表达式2
60 To 100
•Is 关系运算符表达式 Is < 60
2021/2/22
23
Select Case语句例
将例4.7 改用 Select Case 语句实现：
14
4.2 选择结构
▪ VB中提供了多种形式的条件语句来实现选 择结构，有If条件语句和Select情况语句等。 它们都是对条件进行判断，根据判断结果， 选择执行不同的分支。
2021/2/22
15
4.2.1 If条件语句
1. If…Then语句(单分支结构) If <表达式> Then
F 表达式
F 表达式列表 1
T 语句块
T 有 Exit Do
F 语句块
先判断后执行，有可能一次也不执行
Do While…Loop
2021/2/22
29
4.3.2 Do…Loop循环语句
形式2： Do
语句块 [Exit Do 语句块] Loop { While|Until} <条件>
先执行后判断，至少执行一次
语句块（可以是一句或多句语句） T
End If
语句块
或 If <表达式> Then <语句>
▪ 表达式：关系表达式、逻辑表达式，算术表达式。 表达式值按非零为True，零为False进行判断。
▪ 该语句的作用是当表达式的值为True，执行Then 后面的语句块，否则不做任何操作。
VB语言程序设计课件第4章 VB程序控制结构
精选PPT
3
算法的特性
1.可行性:算法中的每一个步骤都应当能有效地执行，并得到确 定的结果。“比如除数不能为0”
2.确定性:算法中的每一个步骤都应当是确定的，而不应当是含 糊的、模棱两可的。
3.有穷性:一个算法应包含有限的操作步骤，而不能是无限的。 4.输入性(有零个或多个输入):是指在执行算法时需要从外界取
用于将指定的值赋给变量或对象属性. n=n+1 将变量n的值加1后的结果再赋给变
量n Text1.fontsize=text1.fontsize+5 变量或对象属性类型应与表达式类型相容
(x%=11/4 y%=“123.45”). 相容时,将表达式的结果转换为变量的类型,
然后再赋给左边的变量.P58课下自行实践 *建议自己写程序时尽量不要出现左右类型不符
【例2】 输出两整数中的较大数。
精选PPT
23
3.多分支块结构
假如中了50万那么
买辆雅阁本田
另外假如中了100万那么
买辆宝马
另外假如中了400万那么
买辆法拉利 另外、反之（没中奖）
天天电动车
结束假如
精选PPT
24
多分支块结构
应用时根据需要 对条件进行增减
ห้องสมุดไป่ตู้
假如中了50万那么
买辆雅阁本田
另外假如中了100万那么
精选PPT
7
顺序 结构
选择结构，或称选取结构，或称分支结 构。A或B中可以有一个是空的。
Te
F
选
A
B
择 结
构
精选PPT
8
补全下面的流程图 ----开始(结束)输入(输出)
精选PPT
9
Visual Basic第4章 Visual_Basic程序控制
4.3选择结构程序设计
选择结构又称为分支结构，根据条件有选择执行某一
分支。VB中用于选择结构的语句有IF语名和SELECT语句。
4.3 选择结构程序设计
◆If 语句是选择结构主要使用的语句。 ◆If 语句有三种形式：行If语句, 块If语句,多路分 支If语句。 1）行结构的 If 语句 格式： If <条件 > Then < 语句 1>[ Else < 语句 2>] 功能：如果条件成立，执行Then后面的语句，否则执 行Else后面语句或下一条语句。
4.2 顺序结构程序设计
InputBox 函数中，若处于中间位置上的某个参数被省略 时，分隔参数的逗号不能省略。 InputBox 函数的返回值是字符串类型在实际应用中，常 用赋值语句来调用 InputBox 函数。例如语句：。 X=InputBox(" 输入变量 X 的值", "输入数据",20)4.2 顺序结构程序设计
2 ）消息框函数 MsgBox 和 MsgBox 语句 （ 1 ） MsgBox 函数 用于发布和接收简单的用户信息。 一般格式： MsgBox(<提示字符串>[,按钮][,消息框标题]) 功能： MsgBox 函数产生一个对话框来显示消 息，当用户单击其中的某个按钮后，将返回一个整型 数，以确定用户单击了哪个按钮。 消息框按钮组合及按钮返回值见教材表 4.2 与表 4.3
例 4.1 用赋值语句修改控件的属性。 要求：单击 Command1 ，标签中显示 "计算机" ； 单击 Command2 ，则标签中显示 "计算机" 界面 设置如图所示。
4.2 顺序结构程序设计
本例事件过程：
《Visual Basic程序设计》第4章-邵洁主编-第四版
省略此项，则将应用程序名放在标题栏中
Visual Basic 程序设计
MsgBox参数的设置
1.按钮的类型和数目的设置
设置参数=按钮设置值 + 图标设置值+ 缺省的活动按钮
值 0 1 2 3 4 5 按钮设置 对应按钮名称 vbOKOnly---------------确定 vbOKCancel-------------确定、取消 vbAbortRetryIgnore---终止、重试、忽略 vbYesNoCancel---------是、否、取消 vbYesNo------------------是、否 vbRetryCancel----------重试、取消
设置参数值= 1+64 或 vbOKCancel+ vbInformation
Visual Basic 程序设计
Msgbox参数的设置
3.说明哪一个是缺省按钮
设置参数=按钮设置值 + 图标设置值+缺省的活动按钮
对应值
0
符号常量
VbDefaultButton1
缺省的活动按钮
256
512
VbDefaultButton2
4.2 选择结构
先对条件测试，根据测试的结果选择执行不同的分支
1.If语句 2.Select Case 结构
Visual Basic 程序设计
1. If…Then 结构 （单分支结构）
格式: If 条件 Then (A组语句) EndIf …… 条件
T
F
A组语句
执行规则：若条件成立,执行A组语句; 例： If score >= 60 Then 条件不成立,跳过A组语句. Print score Print "祝贺你考试通过！ " End If Print “继续努力！”
VB语言程序设计教程第04章 Visual Basic程序控制结构
图4-3 循环结构流程图
4.1 顺序结构程序设计
4.1.2 顺序结构中的常用语句
1．赋值语句Let
格式： ［Let］ 变量名= 表达式 或 对象.属性=表达式 功能：将赋值号右边表达式的值赋给左边的变量。 说明：
（1）关键字Let可以省略，赋值语句先计算右边表达式的值， 再将结果赋给左边的变量。 （2）赋值号左边可以是变量，也可以是对象的属性，但不能 是常量、函数、表达式等。例如：
4.1 顺序结构程序设计
3．卸载语句Unload
格式：Unload 对象名 功能：从内存卸载某个对象。
例如：Unload me ' 卸载当前窗体，当前窗体不再显示
4．响铃语句Beep
格式：Beep
功能：通过计算机喇叭发出声音。
4.1 顺序结构程序设计
5．暂停语句Stop 格式：Stop 功能：暂停程序的执行。 说明： （1）当执行Stop 语句时，将自动打开“立即”窗口。Stop 语 句的主要作用是把解释程序设置为中断（Break）模式，以 便对程序进行检查和调试。 （2）一旦VB应用程序通过编译并能运行，生成可执行文件之 前，应删去代码中的所有Stop语句。 6．结束语句 End 格式：End 功能：结束程序的执行，关闭打开的文件，清除变量，返回 操作系统或VB环境。
图4-1 顺序结构流程图
4.1 顺序结构程序设计
② 选择结构：选择结构通常是根据一个条件是否成立来选择下 一步应该执行哪一种处理，如图4-2所示。
图4-2 选择结构流程图
4.1 顺序结构程序设计
③ 循环结构：循环结构根据条件是否成立来判断是否重复执行 某些语句，通常有两种结构形式，一种是“先判断后执行” ，如图4-3（a）所示；另一种是“先执行后判断”，如图4-3 （b）所示。
Visual Basic 6程序设计教程第4章 程序设计的3种基本结构
N
A>Max
Y
Max =A
打印Max
打印Max
N=N+1
N—S流程图
结束
传统流程图
4.1 算法及算法的表示
下面是例4.1的计算机 程序，即为用计算机语言表示算法： A=Val(InputBox("A=?")) B=Val(InputBox("B=?")) C=Val(InputBox("C=?")) If A>B then Max=A Else Max=B End If If C>Max then Max=C Print " Max=";Max
每 个部分承担一定功能，称为“功能模块”
例：给100个整数，打印输出其中的素数
4.1 算法及算法的表示
输入100个数存入 X1，x2,……x100 让x1， x2,……x100中的 非素变为0 打印x1…..x100中 不等于0的数 N—S流程图 S1 i=1 当i<=100 输入xi i=i+1
4.1 算法及算法的表示
三种基本结构的特点：
（1）只有一个入口 （2）只有一个出口 （3）不存在死语句
（4）不存在死循环
例： 例4.2输入10个数，打印输出其中的最大的数的流程图
4.1 算法及算法的表示
开始
从10个数中选出最大的数 的算法流程图
输入A Max =A N=1
N<10
Y
再输入给A
N
N
1、传统流程图中的基本符号
起止框 I/O框 判断框
处理框
流程线
连接点
4.1 算法及算法的表示
2、三种基本结构的表示
chap4 Visual Basic基本语句与结构
这是标题
这是提示信息 格式参数
VB
第4章 Visual Basic基本语句与结构 章 基本3]我们仍以例 为例进行 例 我们仍以例4-2为例进行 语句的应用。 我们仍以例 为例进行MsgBox语句的应用。 语句的应用 Private Sub Form_Activate() Label2.FontBold = True Label2.FontName = "隶书 隶书" 隶书 Label2.FontSize = 20 Command2.FontBold = True Command2.FontName = "隶书 隶书" 隶书 Command2.FontSize = 20 Me.BackColor = RGB(255, 255, 0) Label2.BackStyle = 0 Dim name As String name = InputBox("请输入姓名：", "小练习 "哈利 4000, 4500) 请输入姓名： 小练习", 哈利", 请输入姓名 小练习 哈利 MsgBox "您输入的姓名是" & name, 48, "姓名确认" Label2.Caption = "欢迎 & name & "光临 世界 欢迎" 光临VB世界 欢迎 光临 世界!" End Sub 注意： 注意： 上面的MsgBox语句的结果没有赋值给变量，说明我们不需要返回 语句的结果没有赋值给变量， 上面的 语句的结果没有赋值给变量 值进行处理，只需要进行一下说明。 值进行处理，只需要进行一下说明。
VB
第4章 Visual Basic基本语句与结构 章 基本语句与结构
这是提示信息 格式参数
VB
第4章 Visual Basic基本语句与结构 章 基本3]我们仍以例 为例进行 例 我们仍以例4-2为例进行 语句的应用。 我们仍以例 为例进行MsgBox语句的应用。 语句的应用 Private Sub Form_Activate() Label2.FontBold = True Label2.FontName = "隶书 隶书" 隶书 Label2.FontSize = 20 Command2.FontBold = True Command2.FontName = "隶书 隶书" 隶书 Command2.FontSize = 20 Me.BackColor = RGB(255, 255, 0) Label2.BackStyle = 0 Dim name As String name = InputBox("请输入姓名：", "小练习 "哈利 4000, 4500) 请输入姓名： 小练习", 哈利", 请输入姓名 小练习 哈利 MsgBox "您输入的姓名是" & name, 48, "姓名确认" Label2.Caption = "欢迎 & name & "光临 世界 欢迎" 光临VB世界 欢迎 光临 世界!" End Sub 注意： 注意： 上面的MsgBox语句的结果没有赋值给变量，说明我们不需要返回 语句的结果没有赋值给变量， 上面的 语句的结果没有赋值给变量 值进行处理，只需要进行一下说明。 值进行处理，只需要进行一下说明。
VB
第4章 Visual Basic基本语句与结构 章 基本语句与结构