A = MsgBox("非法数据！" + Chr(13) +Chr(10)+ " 是否继续？", vbYesNo + vbCritical, "提示信息")
第四章 基本的控制结构
Visual Basic 程序设计
信息框的返回值：
4.Msgbox的函数返回值
用于确定用户选择对话框的哪一个按钮，以作出不同的响应。 符号常量 vbOK vbCancel vbAbort vbRetry vbIgnore vbYes vbNo 返回值 对应按钮
设置属性值：[对象名.]属性=表达式 获取属性值：变量名＝对象名.属性
第四章 基本的控制结构
Visual Basic 程序设计
1.赋值语句
§4.2 顺序结构
注意：
例: Dim v As Integer Dim book As String*8 Dim sum As Double Dim Bool As Boolean v=26 v=v+12.3 sum=v*123.4+56.7 v="126" sum="123ab" v=True sum=False Bool=123 Bool=0 Bool=-123
Buttons参数值= 1 或 vbOKCancel
第四章 基本的控制结构
Visual Basic 程序设计
Buttons参数的设置
2.图标的样式
Buttons的和=按钮设置值+图标设置值+缺省按钮值
对应值 16 32 48 64
符号常量
出现的图标
vbCritical -------------------vbQuestion -------------------vbExclamation -------------vbInformation ---------------
VbDefaultButton2 VbDefaultButton3
Buttons参数值=65 ( 1+64+0) 或 vbOKCancel+ vbInformation+VbDefaultButton1
第四章 基本的控制结构
Visual Basic 程序设计
练习使用信息框 设计一个如下所示的提示框：
第四章 基本计
1.赋值语句
§4.2 顺序结构
⑶ 与用户交互函数和过程
• InputBox函数
格式：InputBox ( 提示 [,标题] [, 默认值] [, X] [, Y] )
• Msgbox函数
格式：MsgBox ( 提示内容 [, 按钮设置] [, 标题] )
两个变量的值互换： ②
x<y
V=InputBox ("请输入鸡和兔的总头数","工程1",50)
第四章 基本的控制结构
Visual Basic 程序设计
示例
Msgbox函数--信息框
1.语法
•变量 = MsgBox(提示内容[,按钮][,标题]) •MsgBox 提示内容 [, 按钮] [, 标题]
2.MsgBox 函数的常用参数的说明
Sum 执行了Sum=Sum+1后 5
第四章 基本的控制结构
Sum 6
Visual Basic 程序设计
2. 不同数据类型数据的赋值

变量与表达式都是数值类型，系统先求出表达式 的值，再将其转换为变量类型后再赋值。 变量为字符型且表达式为数值类型(算术表达式)， 系统将把表达式的值转换为字符型再赋给变量。 变量为逻辑型且表达式为数值类型(算术表达式)， 则所有的非"0"值，系统都转换为"True"赋给变量 ；对"0"值则转换为"False" 赋给变量。
第四章 基本的控制结构
(1) 右边表达式的值强制
转换成左边变量的精度 • Boolean 数值型
True为-1；False为0
• Boolean 数值型 非0为True；0为 False (2) 若不能实现类型转换， 出现“类型不匹配”错
Visual Basic 程序设计
§4.2 顺序结构 1.赋值语句 注意： 例: Dim X As Single Dim Y As Single (3) 赋值号左侧只能出现 Dim Sum As Single 变量 X=26 √ (4) 一条赋值语句不能同 Sin(X)=X+Y × 时给 多个变量赋值 5=Sqr(X)+Y × X+Y=126 × (5) 正确理解加1语句 X=Y=Sum=1 × Sum=Sum+1
A A A
e
B
True
True 由上可知，三种基本结构的共同特点： False A e A •只有单一的入口和 单一的出口 A B e False •结构中的每个部分都可能被执行 True
•结构内不应出现永不终止的死循环。
第四章 基本的控制结构
Visual Basic 程序设计
4.2 顺序结构
顺序结构：各语句按照出现的先后次序依次执行 赋值语句 包括 输入/输出 Print方法 系统提供的交互函数或过程 1.赋值语句
⑴ 给变量赋值
格式：变量名=表达式 ⑵ 设置或获取对象的属性
如: A="VB程序设计" Text1.Text=A B＝Text2.Text
Dim v As Integer Dim book As String*8 Dim sum As Single v=26 v=v+1 book="VB程序设计" sum=v*123.4+56.7
提示内容：必要。字符表达式，即显示在对话框中的信息 <= 1024 个字符，如果文字超过一行，可用Chr(13) + 按 钮： 可选。整型表达式，缺省值为 0；指定信息框中 Chr(10) 换行。 按钮数目、类型、图标类型、缺省按钮等，形 式为c1+c2+c3+c4。 标 题： 可选。在对话框标题栏中显示的内容。 省略此项，则将应用程序名放在标题栏中
例：设置一个输入框：
提示用户输入查询学号。
示例
提示： • 若提示内容中需要换行显示： 在换行处加chr(13)和chr(10)
• 各项参数位置必须一一对应
第四章 基本的控制结构
Visual Basic 程序设计
V=InputBox (Prompt[,Title][,Default][,X][,Y] _ [,Helpfile,Context])
例： If score >= 60 Then 例： If score >= 60 Then Print score Print "祝贺你考试通过！ " Print "祝贺你考试通过！ " End If Print “继续努力！” End If 等价于： Print “继续努力！” If Score>=60 Then Print “祝贺你考试通过！” Print “继续努力!!!”
1--------------------确认 2--------------------取消 3 -------------------终止(A) 4--------------------重试(R) 5--------------------忽略(I) 6 ------------------- 是(Y) 7 ------------------- 否(N) Visual Basic 程序设计
第四章 基本的控制结构
Visual Basic 程序设计
4.3.1 If条件语句
1. If…Then结构
.
…… x%=Text1.text Y%=Text2.text If x < y Then y=x t=x x=y y=t End If Print x, y ……
例1：输入两个数，分别放在x和y变量中，比较它们大 小， 然后将大数放在x中，小数放在y中。
4.3.1 If条件语句 1. If…Then 结构 格式:(1) If 条件 Then F 条件 (A组语句) T 执行规则：若条件成立,执行A组语句; 条件不成立,跳过A组语句. A组语句 EndIf 条件：可以为逻辑变量、关系表达式 或逻辑表达式 …… 使用前提：条件成立时,A组语句中只一条执行语句 (2) If 条件 Then 语句
示例
第四章 基本的控制结构
4.3 分支结构与分支结构语句
先对条件测试，根据测试的结果选择执行不 同的分支 4.3.1 If-Then-Else-End If结构语句
4.3.2 Select Case-End Select 结构语句 4.3.3 条件函数
第四章 基本的控制结构
Visual Basic 程序设计
开始 输入M、N
举例
r = m mod n
m = n n = r T r≠0 F 输出M 结束
开始/结束
特定过程 流程线 连接点
第四章 基本的控制结构
辗 转 相 除 法
Visual Basic 程序设计
4.1 算法及程序设计基础
5.基本算法结构 •顺序结构 •分支结构 •循环结构 •当型循环 •直到型循环 False
第四章 基本的控制结构
Visual Basic 程序设计
Buttons参数的设 置
1.按钮的类型和数目的设置
Buttons的和=按钮设置值(c1)+图标设置值(c2)+缺省按钮值(c3)
值 0 1 2 3 4 5
按钮的设置 对应按钮名称 vbOKOnly---------------确定 vbOKCancel-------------确定、取消 vbAbortRetryIgnore---终止、重试、忽略 vbYesNoCancel---------是、否、取消 vbYesNo------------------是、否 vbRetryCancel----------重试、取消