VB程序设计第四章-基本的控制结构精品PPT课件
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
函数有返回值，过程没有返回值。 （第六章）
函数： InputBox()， MsgBox()
过程： MsgBox
1 InputBox函数
语法： 变量名＝InputBox(提示[,标题][,默认] [,x坐标位置][,y坐标位置])
其中： 提示：字符串表达式，显示信息。如果 要显示多行，则在每行未加上回 车Chr(13)和换行Chr(10)，或者， 加上VB系统常数vbCrLf。
InputBox函数的作用
打开一个标准对话框，等待用户输入内容， 用户单击“确定（OK）”或者按回车键， 则该函数返回输入的值，其类型为字符型。
例如：
Dim strName As String * 40, strS1 As String strS1 = "请输入你的姓名" + vbCrLf + "然后回车确定" strName = InputBox(strS1, "输入框", , 100, 100)
第四章 基本的控制结构
Summary
1. 顺序结构（Sequence） 2. 选择结构（Selection） 3. 循环结构（Repetition） 4. 其它辅助控制语句 5. 常用算法（一）
4.1 顺序结构
顺序结构
– 按照各语句出现的先后顺序执行 – 包括：
赋值语句 输入 / 输出语句
标题：字符串表达式，在对话框的标题 显示。如果省略，则显示应用程 序的名称。
默认：字符串表达式。当对话框中没有 输入时，则该默认值作为输入的 内容。
x坐标位置，y坐标位置：整数表达式， 确定对话框左上角在屏幕上的位 置，屏幕左上角为坐标原点，单 位：twip。1000 twip = 1 inch。
– 给变量赋值 – 给控件的属性赋值
例如： sngRate! =0.1 ‘将0.1赋给单精度变量
sngRate txtName.Text = “Hu”
赋值处理
当赋值等号左右数值类型不相同时，强制转换成 左边变量的类型（精度） n%=3.5 ‘结果为4（四舍五入）
当赋值等号左边是数值类型，而右边表达式是数 字字符串，则VB自动转换成数值类型再赋值，如 表达式不是数字字符串，则出错。
区别： Msgbox()函数返回所选按钮的整数值； Msgbox过程没有返回值。
例题：
编程实现账号和密码的输入程序，要求： （1）账号不超过6位数字，密码为4位字符，
假设为“Gong” （2）密码输入时，不显示输入的字符，用
“*”代替。 （3）输入不正确，显示有关信息。单击“重
试”，则清除原来输入的内容，等待重新 输入；单击“取消”，终止程序运行。
注意：
尽量采用转换函数进行转换，避免VB 系统自动转换。这样能避免出现意想 不到的错误。
VB系统会自动判断赋值符号“=“ 和 关系运算符等于符号”=“。
赋值符号”=“左边只能是变量，不 能是常量、或者表达式。
赋值语句： intX = intX + 1
2 人机交互函数和过程
VB与用户之间的数据交互通过两个 函数和一个过程完成。
n%=“123” ‘结果为123，与n%=Val(“123”)效 果一样
n%=“1a23” ‘出现“类型不匹配”错误
当逻辑类型赋值给数值类型时，True 转换为－1，False转换为0； 反之，当数值型赋值给逻辑类型，则 非零转换为True，0转换为False。
任何非字符类型赋值给字符类型，自 动转换为字符类型。
1 赋值语句
赋值语句是任何程序设计的最基本语句。 语法结构：
变量名 ＝ 表达式
其中： 变量名：已经定义（声明）的变量名称 表达式：任何类型表达式（算术、逻辑、 函数等等），类型与变量名的 类型一致。
赋值语句的作用： 先计算等号右边表达式的值，然后赋给等
号左边的变量。 VB赋值语句的两项任务
vbOk vbCancel vbAbort vbRetry vbIgnore vbYes VBNo
1
确定
2
取消
3
终止
4
重试
5
忽略
6
是
7
否
3 MsgBox过程
语法： MsgBox(提示[,按钮][,标题])
其中： 提示、标题、 按钮：与MsgBox函数相同
作用： Msgbox()函数和Msgbox过程的作用都是打开 一个信息框，等待用户选择一个按钮。
vbCritical vbQuestion vbExclamation vbInformation
16 红色STOP标志 32 询问信息图标 ？ 48 警告信息图标 ！ 64 信息图标 i
默 认 vbDefaultButton1
vbDefaultButton2 按 钮 vbDefaultButton3
2 MsgBox()函数
语法： 变量名＝MsgBox(提示[,按钮][,标题])
其中： 提示：与InputBox函数相同 标题：与InputBox函数相同 按钮：整数表达式，决定信息框按钮的 数目和类型及其图标类型。参见 P77，表1.4.1
表1.4.1 “按钮”设置值及其意义
分组
内部常数 按钮值
I=MsgBox(“密码错误”,53,”输入密码”)
模式：若应用模式建立对话框，则必须响应对 话框才能继续当前的应用程序，但可以切换到 其它应用程序。若应用系统模式建立对话框， 则所有的应用程序都被挂起，直到用户响应对 话框为止。
表1.4.2 MsgBox函数返回值意义
内部常数
按钮值
被单击的按钮
描述
vbOkOnly
0
按 钮 vbOkCancel
1
vbAbortRetryIgnore 2
数 目 vbYesNoCancel
3
vbYesNo
4ห้องสมุดไป่ตู้
vbRetryCancel
5
“确定” “确定”、“取消” “终止”、“重试”, “忽略” “是”、“否”、“取 消” “是”、“否” “重试”、“取消”
按钮 类型
0 第一个按钮为默认 256 第二个按钮为默认 512 第三个按钮为默认
模式
vbApplicationMode 0 应用模式
vbSystemMode
4096 系统模式
注意：
四组方式可以组合使用。一般采用内部常数形 式，而不采用按钮值形式。
例如：
I=MsgBox(“密码错误”,vbRetryCancel+vbExclamation,”输入密 码”)
函数： InputBox()， MsgBox()
过程： MsgBox
1 InputBox函数
语法： 变量名＝InputBox(提示[,标题][,默认] [,x坐标位置][,y坐标位置])
其中： 提示：字符串表达式，显示信息。如果 要显示多行，则在每行未加上回 车Chr(13)和换行Chr(10)，或者， 加上VB系统常数vbCrLf。
InputBox函数的作用
打开一个标准对话框，等待用户输入内容， 用户单击“确定（OK）”或者按回车键， 则该函数返回输入的值，其类型为字符型。
例如：
Dim strName As String * 40, strS1 As String strS1 = "请输入你的姓名" + vbCrLf + "然后回车确定" strName = InputBox(strS1, "输入框", , 100, 100)
第四章 基本的控制结构
Summary
1. 顺序结构（Sequence） 2. 选择结构（Selection） 3. 循环结构（Repetition） 4. 其它辅助控制语句 5. 常用算法（一）
4.1 顺序结构
顺序结构
– 按照各语句出现的先后顺序执行 – 包括：
赋值语句 输入 / 输出语句
标题：字符串表达式，在对话框的标题 显示。如果省略，则显示应用程 序的名称。
默认：字符串表达式。当对话框中没有 输入时，则该默认值作为输入的 内容。
x坐标位置，y坐标位置：整数表达式， 确定对话框左上角在屏幕上的位 置，屏幕左上角为坐标原点，单 位：twip。1000 twip = 1 inch。
– 给变量赋值 – 给控件的属性赋值
例如： sngRate! =0.1 ‘将0.1赋给单精度变量
sngRate txtName.Text = “Hu”
赋值处理
当赋值等号左右数值类型不相同时，强制转换成 左边变量的类型（精度） n%=3.5 ‘结果为4（四舍五入）
当赋值等号左边是数值类型，而右边表达式是数 字字符串，则VB自动转换成数值类型再赋值，如 表达式不是数字字符串，则出错。
区别： Msgbox()函数返回所选按钮的整数值； Msgbox过程没有返回值。
例题：
编程实现账号和密码的输入程序，要求： （1）账号不超过6位数字，密码为4位字符，
假设为“Gong” （2）密码输入时，不显示输入的字符，用
“*”代替。 （3）输入不正确，显示有关信息。单击“重
试”，则清除原来输入的内容，等待重新 输入；单击“取消”，终止程序运行。
注意：
尽量采用转换函数进行转换，避免VB 系统自动转换。这样能避免出现意想 不到的错误。
VB系统会自动判断赋值符号“=“ 和 关系运算符等于符号”=“。
赋值符号”=“左边只能是变量，不 能是常量、或者表达式。
赋值语句： intX = intX + 1
2 人机交互函数和过程
VB与用户之间的数据交互通过两个 函数和一个过程完成。
n%=“123” ‘结果为123，与n%=Val(“123”)效 果一样
n%=“1a23” ‘出现“类型不匹配”错误
当逻辑类型赋值给数值类型时，True 转换为－1，False转换为0； 反之，当数值型赋值给逻辑类型，则 非零转换为True，0转换为False。
任何非字符类型赋值给字符类型，自 动转换为字符类型。
1 赋值语句
赋值语句是任何程序设计的最基本语句。 语法结构：
变量名 ＝ 表达式
其中： 变量名：已经定义（声明）的变量名称 表达式：任何类型表达式（算术、逻辑、 函数等等），类型与变量名的 类型一致。
赋值语句的作用： 先计算等号右边表达式的值，然后赋给等
号左边的变量。 VB赋值语句的两项任务
vbOk vbCancel vbAbort vbRetry vbIgnore vbYes VBNo
1
确定
2
取消
3
终止
4
重试
5
忽略
6
是
7
否
3 MsgBox过程
语法： MsgBox(提示[,按钮][,标题])
其中： 提示、标题、 按钮：与MsgBox函数相同
作用： Msgbox()函数和Msgbox过程的作用都是打开 一个信息框，等待用户选择一个按钮。
vbCritical vbQuestion vbExclamation vbInformation
16 红色STOP标志 32 询问信息图标 ？ 48 警告信息图标 ！ 64 信息图标 i
默 认 vbDefaultButton1
vbDefaultButton2 按 钮 vbDefaultButton3
2 MsgBox()函数
语法： 变量名＝MsgBox(提示[,按钮][,标题])
其中： 提示：与InputBox函数相同 标题：与InputBox函数相同 按钮：整数表达式，决定信息框按钮的 数目和类型及其图标类型。参见 P77，表1.4.1
表1.4.1 “按钮”设置值及其意义
分组
内部常数 按钮值
I=MsgBox(“密码错误”,53,”输入密码”)
模式：若应用模式建立对话框，则必须响应对 话框才能继续当前的应用程序，但可以切换到 其它应用程序。若应用系统模式建立对话框， 则所有的应用程序都被挂起，直到用户响应对 话框为止。
表1.4.2 MsgBox函数返回值意义
内部常数
按钮值
被单击的按钮
描述
vbOkOnly
0
按 钮 vbOkCancel
1
vbAbortRetryIgnore 2
数 目 vbYesNoCancel
3
vbYesNo
4ห้องสมุดไป่ตู้
vbRetryCancel
5
“确定” “确定”、“取消” “终止”、“重试”, “忽略” “是”、“否”、“取 消” “是”、“否” “重试”、“取消”
按钮 类型
0 第一个按钮为默认 256 第二个按钮为默认 512 第三个按钮为默认
模式
vbApplicationMode 0 应用模式
vbSystemMode
4096 系统模式
注意：
四组方式可以组合使用。一般采用内部常数形 式，而不采用按钮值形式。
例如：
I=MsgBox(“密码错误”,vbRetryCancel+vbExclamation,”输入密 码”)