参考课件 msgbox函数与选择结构共31页文档
inputbox和msgbox
Buttons参数值= 1 或 vbOKCancel
Visual Basic 程序设计
Buttons参数的设置
2.图标的样式
Buttons的和=按钮设置值+图标设置值+缺省按钮值
对应值 16 32 48 64
符号常量
出现的图标
vbCritical -------------------vbQuestion -------------------vbExclamation -------------vbInformation ---------------
InputBox函数---输入框
作用：
• 打开一个对话框,等待用户输入内容。 • 单击确定，返回输入值（字符型数据）
格式：
变量名 = InputBox ( 提示[,标题][,默认值][,X][,Y])
例：设置一个输入框：
提示用户输入查询学号。
提示： • 若提示内容中需要换行显示： 在换行处加chr(13)和chr(10) 或VBCRLF • 各项参数位置必须一一对应
VbDefaultButton1
VbDefaultButton2 VbDefaultButton3
Buttons参数值=65 ( 1+64+0) 或 vbOKCancel+ vbInformation+VbDefaultButton1 Visual Basic 程序设计
练习使用信息框
设计一个如下所示的提示框：
练习
Visual Basic 程序设计
练习
编制一个帐号与密码的检验程序： 要求：① 帐号不超过6个数字，密码4个字符， 密码框中不显示实际输入字符
② 帐号不正确时，提示有关信息，
Msgbox函数用法说明
Worksheets.Add before:=Sheets("Sheet1") '在 sheet1 之前新建一个工作表
Else
'否则(表示选择了“否”)
Worksheets.Add after:=Sheets("Sheet1") '在 sheet1 之后新建一个工作表
End If
End Sub
以上过程可以弹出一个包含“是”与“否”两个按钮的信息框，当选择“是”时会在
Sub 宏()
'放置位置：模块中
MsgBox "您喜欢 VBA 吗?", vbYesNo, "提示"
End Sub
图 1 信息框中各部份与 Msgbox 函数的参数的对应关系
Msgbox 函数包含 5 个参数，都是可选参数。其中最重要的是第一参数，最简单的也是 第一参数，第一参数所指定的字符串将显示在信息框中间。
以上过程会弹出一个具有“是”和“否”两个按钮的信息框，如果用户单击了按钮“是”， 那么程序可以将活动工作表重命名为“总表”，如果用户单击了“否”则直接结束过程。下 图是 Msgbox 函数产生的选项窗口：
图 7 询问用户是否继续
Msgbox 函数的返回值只能是以下 7 种之一：
表 3 Msgbox的返回值一览表
以上过程可在信息框中提示活动工作簿的工作表数量，结果如下图所示：
图 6 提示工作簿中的工作表数量
3.提供选项
当需要向用户提供两个选项时，通常采用 Msgbox 函数弹出一个包含“是”与“否” 两个按钮的对话框，用户单击对话框中的按钮时，VBA 会将用户的选择情况回传给 Msgbox 函数，VBA 开发者可以根据函数的回传值决定下一步的操作。例如：
信息框函数MSGBOX
信息框函数MsgBox信息框是Windows应用程序中使用得较多的一种对话机制,它被广泛地用于提示、选择程序走向,是一个重要的程序控制手段。
Delphi 提供的信息框函数MessageDlg功能比较强,其最大优点是可以任意设定信息框的按钮(使用了集合类型),但其缺点也是很明显的,主要表现在标题字符串不能由用户自己设置;窗口弹出时寂静无声;按钮不能随着Windows的不同语言的版本显示不同的文字(例如无论在哪种语言版本下都只能显示"OK"、"Yes"等英文字符)。
这些优点和缺点都是由于它是Delphi自己实现的,而不是通过调用系统API函数实现的,故不能使用系统的语言环境、多媒体等资源。
这样,所开发的程序在中文版中显示信息框时与周围的窗口显得极不协调。
而VB在这方面却做得较好,所以我们按照VB的格式自定义一个信息框函数MsgBox。
下面的函数都假定是在TForml中定义的。
为了使用方便,我们首先在 Interfaces段中定义一些符号常量:const{第一组:按钮内容选择}OKOnly=0;{仅显示"确定"按钮}OKCancel=1;{显示"确定"和"取消"按钮}AbortRetryIgnore=2;{"中止""重试""放弃"}YesNoCancel=3;{"是""否""取消"}YesNo=4;{"是"和"否"}RetryCancel=5;{"重试""取消"}{第二组:显示图标选择}Critical=16;{"STOP"图标}Question=32;{"?"图标}Excalamation=48;{"!"图标}Information=64;{"i"图标}{第三组:缺省指针位置(激活状态)}DefaultButton1=0;{第一按钮}DefaultButton2=256{第二按钮}DefaultButton3=512{第三按钮}{第四组:信息框方式}ApplicationModal=0;{应用方式}SystemModal=4096;{系统方式}然后,建立函数MsgBox,由于API函数中使用的字符串必须以mull结尾,所以使用了另一个自定义的函数StrToPch来将Pascal类型字符串转换成为以mull结尾的字符串。
计算机MessageBox函数
计算机MessageBox函数函数功能：该函数创建、显示、和操作一个消息框。
消息框含有应用程序定义的消息和标题，加上预定义图标与Push（下按）按钮的任何组合。
函数原型：int MessageBox(HWND hWnd,LPCTSTR IpCaption,UINT UType);参数：hWnd:标识将被创建的消息框的拥有窗口。
如果此参数为NULL，则消息框没有拥有窗口。
IpText：指向一个以NULL结尾的、含有将被显示的消息的字符串的指针。
IpCaption：指向一个以NULL结尾的、用于对话框标题的字符串的指针。
uType：指定一个决定对话框的内容和行为的位标志集。
此参数可以为下列标志组中标志的组合。
指定下列标志中的一个来显示消息框中的按钮，标志的含义如下。
MB_ABORTRETRYIGNORE：消息框含有三个按钮：Abort，Retry和Ignore。
MB_OK：消息框含有一个按钮：OK。
这是缺省值。
MB_OKCANCEL：消息框含有两个按钮：OK和Cancel。
MB_RETRYCANCEL：消息框含有两个按钮：Retry和Cancel。
MB_YESNO：消息框含有两个按钮：Yes和No。
MB_YESNOCANCEL：消息框含有三个按钮：Yes，No和Cancel。
指定下列标志中的一个来显示消息框中的图标：标志的含义如下。
MB_ICONEXCLAMATION:MB_ICONWARNING：一个惊叹号出现在消息框。
MB_ICONINFORMATION：MB_ICONASTERISK：一个圆圈中小写字母i组成的图标出现在消息框。
MB_ICONOUESTION:一个问题标记图标出现在消息框。
MB_ICONSTOP:MB_ICONERROR：MM_ICONHAND：一个停止消息图标出现在消息框。
指定下列标志中的一个来显不缺省的按钮：标志的含义如下。
MB_DEFBUTTON1：第一个按钮为缺省按钮。
MsgBox函数用法讲解
MsgBox函数用法讲解VBA中msgbox的用法小结1、作用在消息框中显示信息，并等待用户单击按钮，可返回单击的按钮值(比如“确定”或者“取消”)。
通常用作显示变量值的一种方式。
2、语法MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])参数说明：(1)Prompt，必需的参数，为字符串，作为显示在消息框中的消息文本。
其最大长度约为1024个字符，由所用字符的宽度决定。
如果prompt的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。
(2)Buttons，可选的参数，为数值表达式的值之和，指定显示的按钮的数目及形式、使用的图标样式、缺省按钮及消息框的强制回应等，可以此定制消息框。
若省略该参数，则其缺省值为0。
设置值见下表。
(3)Title，可选的参数，表示在消息框的标题栏中所显示的文本。
若省略该参数，则将应用程序名放在标题栏中。
(4)Helpfile，可选的参数，为字符串表达式，提供帮助文件。
若有Helpfile，则必须有Context。
(5)Context，可选的参数，为数值表达式，提供帮助主题。
若有Context，则必须有Helpfile。
3、Button参数用于MsgBox函数中Button参数的常量常量值说明vbOKOnly 0 只显示“确定”按钮VbOKCancel 1 显示“确定”和“取消”按钮VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮VbYesNoCancel 3 显示“是”、“否”和“取消”按钮VbYesNo 4 显示“是”和“否”按钮VbRetryCancel 5 显示“重试”和“取消”按钮VbCritical 16 显示“关键信息”图标VbQuestion 32 显示“警告询问”图标VbExclamation 48 显示“警告消息”图标VbInformation 64 显示“通知消息”图标vbDefaultButton1 0 第一个按钮是缺省值(缺省设置)vbDefaultButton2 256第二个按钮是缺省值vbDefaultButton3 512第三个按钮是缺省值vbDefaultButton4 768第四个按钮是缺省值vbApplicationModal 0应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作vbSystemModal 4096系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作vbMsgBoxHelpButton 16384将Help按钮添加到消息框VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口vbMsgBoxRight 524288文本为右对齐vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示说明：(1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目；第二组值(16,32,48, 64)描述了图标的样式；第三组值(0,256,512,768)说明哪一个按钮是缺省值；而第四组值(0,4096)则决定消息框的强制返回性。
VB选择结构
注意:
If a>b Then
max=a
Else
max=b
End If
IIF函数的使用：
变量=IIF(条件表达式,表达式1,表达式2)
max=IIF(a>b,a,b)
3、多分支结构
（1）在Else子句之后嵌套
（2）在If子句之后嵌套
If 条件表达式1 Then
If 条件表达式2 Then
语句块1
Else
语句块2
End If
Else
语句块3
End If
If 条件表达式1 Then
语句块1
ElseIf 条件表达式2 Then
语句块2
ElseIf 条件表达式3 Then
语句块3
.......
Else
语句块n
End If
Dim i As Integer
i = MsgBox("你真的要退出吗?", vbOKCancel + vbQuestion, "退出提示框")
If i = vbOK Then
cancel=false '退出系统
else
cancel=true '不退出系统
注意：
（1）Select Case之后的表达式可以是任意表达式;
（2）Case后面的值可以采用以下形式：
a、可以是用逗号隔开的各个表达式的值
case 2,4,6,8
b、表达式值1 TO 表达式值2
case 100 to 200
case 80 to 89
Text2.Text="良好"
vb考试复习if语句PPT教学课件
Private sub form_click() Dim x as single,y as single X=val(inputbox(“please input x”)) If x>=1 then If x>3 then Y=x+3 Else Y=x^2 End if Else If x>0 then Y=sqr(x) Else Y=0 End if End if Print “y=”;y End sub
Msgbox函数与Inputbox函数 a) Inputbox函数用于让用户输入数据,返回用户输入在
数据。返回的数据是字符串类型。 语句格式: <变量名>=inputbox([<提示>][,<标题>[,<默认值>]])
s$=inputbox(“input name”,”hello”,”world”)
if nflag=0 then form1.forecolor=vbred nflag=1
elseif nflag=1 then form1.forecolor=vbgreen nflag=2
else form1.forecolor=vbblue nflag=0
end if form1.print “欢迎使用VB” End sub
9
PPT精品课件
谢谢观看
Thank You For Watching
10
后续语句
End if
<后续语句>
2020/12/09
IF语句嵌套流程图
6
选择结构之一IF结构
Dim nflag as integer Private sub form_click()
MsgBox函数之二---判断用户的选择
MsgBox函数之二---判断用户的选择上节文章中我们详细介绍了MsgBox函数的基本用法和一些示例，所以我们知道了MsgBox函数可以任意由几个按钮组成，包括：确定；取消；否，那么如何来确定用户按下的是哪一个按键呢？今天我们通过示例来了解。
示例1：打开工作簿，新建一个按钮：双击按钮，进入代码编辑模式，写入代码：1.Private Sub CommandButton1_Click()2.If MsgBox('请选择按键', 1 32, '提示') = vbOK Then3.MsgBox '你选择了确定'4.Else5.MsgBox '你选择了取消'6.End If7.End Sub这个测试是让MsgBox显示确定和取消按钮，当你选择了确定按钮系统会再弹出一个MsgBox，告知用户选择的是确定，同样的，选择了取消后系统告知选择的是取消。
示例2：把上面代码内容更换为：Private Sub CommandButton1_Click()Select Case MsgBox('请选择按钮？', 3 32, '询问')Case vbYesMsgBox '你选择了“是”'Case vbNoMsgBox '你选择了“否”'Case vbCancelMsgBox '你选择了“取消”'End SelectEnd Sub这个测试是让MsgBox显示是、否和取消按钮，当你选择了是按钮系统会再弹出一个MsgBox，告知用户选择的是，同样的，选择了取消或者否后系统告知选择的是取消或者否。
vb第四章
为-1和0；反之，当数值型赋给逻辑变量时，非0转换为 True，0转换为False。 （4）任何非字符型的值赋给字符变量时，自动转换为字符 型。
VB程序设计简明教程
14
4.1.2 数据输出和输入
1.标签和文本框控件 利用标签的Caption属性来输出数据。 利用文本框的Text属性获得用户从键盘输入 的数据，或将计算结果输出。
用试凑法 进一步考虑：按A、B、C的次序安排？
VB程序设计简明教程
7
第4章 VB控制结构
VB具有结构化程序设计的三种程序控制结构， 即顺序结构、选择结构、循环结构，是程序设计 的基础。
（1）顺序结构
各语句按出现的先后次序执行
a
A
用传统流程
图表示为
B
b
VB程序设计简明教程
本章目录
8
第4章 VB控制结构
与If 语句区别
VB程序设计简明教程
5
4.循环结构 For循环的执行流程 通过等价的IF语句为例 For循环结束后循环控制变量的值 For循环转换成Do 条件 …Loop 事先不知道循环次数，如何用For…Next实现循环？ 强行停止循环语句 Exit For Exit Do 循环嵌套最典型例子 乘法表
X+y=z
‘ 左边是表达式
VB程序设计简明教程
本章目录
13
4.1.1 赋值语句
赋值号两边数据类型不同时的处理：
（1）表达式为数值型，并与变量精度不同时，则系统强制 转换成变量的精度。 如：n%=3.5 ‘n四舍五入，结果为4
（2）表达式是数字字符串，变量是数值型，如n%=“123”， 自动转换字符串为数值类型再赋值。相当于：
MsgBox函数和语句
MsgBox函数和语句基础知识2007-07-27 10:15:46 阅读71 评论0 字号：大中小订阅MsgBox其实有两种格式：一、MsgBox函数格式：MsgBox(msg[,type][,title][,helpfile,context])该函数有5个参数，第一个是必需的，后面的都是可选的。
（1）msg：是一个字符串，长度不能超过1024个字符，超过的会被截掉。
这个字符串的内容就是在MsgBox 函数产生的对话框内显示。
如果一行显示不完，可以用"Chr$(13)+Chr$(10)”强制换行。
（2）type：是一个整数值或符号常量，用来控制在对话框内显示的按钮、图标的种类及数量。
比如说是显示“确定”、“取消”还是显示“终止”、“重试”、“忽略”等。
由于type参数的取值较多，就不一一例举了，楼主可以自己去搜搜。
（3）title：也是字符串，其内容就是对话框的标题。
（4）helpfile，context：helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名字；context 是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。
这两个参数必须同时使用或同时省略。
如果使用了这两个参数，对话框中会出现一个“帮助”按钮，单击或按F1就可以得到相关帮助信息。
二、MsgBox语句格式：MsgBox msg[,type][,title][,helpfile,context]各参数的含义与作用与上面的MsgBox函数一样的。
三、MsgBox函数与MsgBox语句的区别MsgBox函数有返回值，而MsgBox语句是没有返回值的。
例如：函数：x=MsgBox("戴草帽",vbOKOnly,"工程1")这个对话框只有一个确定按钮，返回值为1，也就是说用户如果点了这个确定，x就等于1了。
语句：MsgBox "戴草帽",vbOKOnly,"工程"这个是没有返回值的。
参考课件 msgbox函数与选择结构
1 x x 1 1 x 2 x2
y=
(1 x)( 2 x) (2 x)
If x < 1 Then y=1-x ElseIf x >= 1 And x <= 2 Then y = (1 - x) * (2 - x) Else y = -(2 - x) End If
②将百分制转换成两级制
If score > 60 Then print “过” Else print “不过” End If 单 行 书 写
单 行 书 写
If a > b Then max = a Else max = b
请回答
13
计算分段函数：
sin x x 2 1 y cos x x 3 3x
If a > b Then max = a Else max = b End If
5. Select Case语句(情况语句)
形式：
Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select
22
Select Case语句(情况语句)说明
1、<表达式列表>：与<变量或表达式>同类型的下面四种形式之一：
17
18
例： 已知变量strC中存放了一个字符，判断该字符是字母字 符、数字字符还是其他字符。 用多分支结构实现: If Ucase(strC) >="A" And Ucase (strC) <="Z" Then Print strC + "是字母字符" ElseIf strC >="0" And strC <="9” Then Print strC + "是数字字符" Else Print strC + "其他字符" End If 不管有几个分支，依次判断，当某条件满足，执行相应的语句， 其余分支不再执行；若条件都不满足，且有Else子句，则执行该 语句块，否则什么也不执行。. ElseIf不能写成 Else If。
第七讲信息函数Msgbox
第七讲信息函数Msgbox本节主要内容：●Msgbox函数的功能及作用●Msgbox函数的语法●Msgbox函数的限制今天的课程内容是信息函数Msgbox,本来打算和Inputbox一起讲的后来发现信息函数Msgbox的内容也比较多,所以今晚只讲信息函数Msgbox.。
输入输出语句是VBA中应用最广也是最简单的两种语句，本课时主要介绍两种输出语句的语法和思路，下一课时则介绍两种输入语句的语法和应用思路。
本课时内容摘自《Excel VBA程序开发自学宝典(第2版)》第10章。
7.1 Msgbox函数的功能及作用VBA最常见的信息输出方式是使用Msgbox函数，在任何VBA的书籍中，它所出现的频率都是最高的，在英文中，Msg表示Message，即消息，而Msgbox 则表示信息框。
顾名思义，Msgbox是用于在屏幕中显示某些信息的对话框，告诉用户需要做什么，或者提示程序的运算结果，或者某操作的步骤说明等，它的作用极其广泛。
站在VBA开发者立场，对Msgbox函数的功能可做以下分类：7.1.1 返回运算结果告诉用户VBA的运算结果通常有三种模式：存入工作表、打印到文件和利用消息框返回结果。
通常对于临时性的、不需要储存的信息可以利用对话框来展示，它的特点是关闭窗口后就完全消失，不占用任何内存空间。
7.1.2 询问执行方式对于某些有多种执行选项的操作，例如“隔行着色工作表”工具，它可以对奇数行着色，也可以对偶数行着色，为了体现程序的通用性和灵活性时，往往弹出一个提示框让用户选择执行方式，这是最佳的程序开发思路。
例如上图中，用户单击不同按钮时，VBA会执行不同的着色方式。
7.1.3 提示执行步骤在设计VBA程序时，如果后续需执行的操作较复杂，应该通过一个消息框来提示用户。
包括该程序大概有多少步骤，各步骤中需要注意哪些问题，或者在什么情况下需要跳过什么步骤等，从而减少程序出错的机率。
7.1.4 告知错误原因终端用户在执行VBA程序时，总会有或多或少的错误产生。
vb窗体及msgbox
7．BackColor属性和ForeColor属性 BackColor属性用于返回或设置对象的背景颜色， ForeColor属性用于返回或设置在对象里显示图片和 文本的前景颜色。它们是十六进制长整型数据 在程序代码中可用Windows 运行环境的红-绿-蓝 (RGB) 颜色方案，使用调色板或在代码中使用 RGB 或 QBColor
3．Icon 控制图标属性：
返回或设置窗体左上角显示或最小化时显示的图标。 注意：此属性必须在ControlBox属性设置为Ture才有效
4．Picture图片属性： 设置窗体中要显示的图片。加载图片操作同Icon 控制 图标属性。 5. BorderStyle：边框风格
通过改变 BorderStyle 属性，可以控制窗体如何调整大小。
6. WindowsState属性 0：Normal：正常窗口状态，有窗口边界； 1：最小化状态，以图标方式运行；
2：最大化状态，无边框，充满整个屏幕。
7. AutoRedraw属性
该属性决定窗体被隐藏或被另一窗口覆盖之后重新显
示，是否重新还原该窗体被隐藏或覆盖以前的画面。即是 否重画如Circle、Line、Pset和Print等方法的输出。
当为True时，重新还原该窗体以前的画面。
当为False时，则不重画AutoRedraw属性。
二、事件
最常用的事件
1. Click / Dbቤተ መጻሕፍቲ ባይዱClick：单击 / 双击窗体触发。
2. Load：窗体被装入时触发的事件。该事件通 常用来在启动应用 程序时对属性和变量进行初始 化。 3. Unload事件 卸载窗体时触发该事件。
MsgBox函数用法讲解
MsgBox函数用法讲解VBA中msgbox的用法小结1、作用在消息框中显示信息，并等待用户单击按钮，可返回单击的按钮值(比如“确定”或者“取消”)。
通常用作显示变量值的一种方式。
2、语法MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])参数说明：(1)Prompt，必需的参数，为字符串，作为显示在消息框中的消息文本。
其最大长度约为1024个字符，由所用字符的宽度决定。
如果prompt的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。
(2)Buttons，可选的参数，为数值表达式的值之和，指定显示的按钮的数目及形式、使用的图标样式、缺省按钮及消息框的强制回应等，可以此定制消息框。
若省略该参数，则其缺省值为0。
设置值见下表。
(3)Title，可选的参数，表示在消息框的标题栏中所显示的文本。
若省略该参数，则将应用程序名放在标题栏中。
(4)Helpfile，可选的参数，为字符串表达式，提供帮助文件。
若有Helpfile，则必须有Context。
(5)Context，可选的参数，为数值表达式，提供帮助主题。
若有Context，则必须有Helpfile。
3、Button参数用于MsgBox函数中Button参数的常量常量值说明vbOKOnly 0 只显示“确定”按钮VbOKCancel 1 显示“确定”和“取消”按钮VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮VbYesNoCancel 3 显示“是”、“否”和“取消”按钮VbYesNo 4 显示“是”和“否”按钮VbRetryCancel 5 显示“重试”和“取消”按钮VbCritical 16 显示“关键信息”图标VbQuestion 32 显示“警告询问”图标VbExclamation 48 显示“警告消息”图标VbInformation 64 显示“通知消息”图标vbDefaultButton1 0 第一个按钮是缺省值(缺省设置)vbDefaultButton2 256第二个按钮是缺省值vbDefaultButton3 512第三个按钮是缺省值vbDefaultButton4 768第四个按钮是缺省值vbApplicationModal 0应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作vbSystemModal 4096系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作vbMsgBoxHelpButton 16384将Help按钮添加到消息框VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口vbMsgBoxRight 524288文本为右对齐vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示说明：(1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目；第二组值(16,32,48, 64)描述了图标的样式；第三组值(0,256,512,768)说明哪一个按钮是缺省值；而第四组值(0,4096)则决定消息框的强制返回性。
visual basic教案：3 消息框MsgBox.doc
msg = MsgBox("请确认输入的数据是否正确！", 3 + 32 + 0,
"数据检查")
参数1——出现按钮
值
常量
说明
0
vbOKOnly
确定按钮
1
vbOKCancel
确定和取消按钮
2
vbAbortRetryIgnore
终止、重试和忽略按钮
3
vbYesNoCancel
是、否和取消按钮
4
vbYesNo
是和否按钮
5
vbRetryCancel
重试和取消按钮
回答教师提出的问题
注意听讲老师讲解
课后作业
作业：记住按钮组合
教学反思
本节课主要是给同学们详细讲解了msgbox函数的语法格式及格式中注意的问题，并学会了消息框的按钮的组合有几种，调试情况良好。
课时教案
课题
4.4.2消息框MsgBox
课时教案
课题
4.4.2消息框MsgBox
课时
1
授课时间
教学目标
让同学们掌握消息框MsgBox的语法格式及格式中注意的问题，并能理解消息框的用处
教学重点
消息框MsgBox的语法格式
教学难点
消息框MsgBox
课型
复习课
教法
讲授、课件演示
教学过程
学生活动
一、回顾复习
输入框是？
什么时候使用输入框为好？
二、新课
回答教师提出的问题
注意听讲老师讲解
课后作业
作业：看着大屏幕打出相关代码
教学反思
本节课主要是给同学们详细讲解了消息框MsgBox的图标类型和默认按钮的设计，同学们调试完成的非常好。
MsgBox消息函数
1.0了解MsgBox 函数1.1 MsgBox 函数在对话框中显示消息，用户单击按钮，并返回一个Integer 告诉用户单击哪一个按钮。
语法：MsgBox(prompt[, buttons] [, title] [, helpfile, context])MsgBox 函数的语法具有以下几个命名参数：●Prompt必需的。
字符串表达式，作为显示在对话框中的消息。
prompt的最大长度大约为1024 个字符，由所用字符的宽度决定。
如果prompt的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10)) 或是回车与换行符的组合(Chr(13) & Chr(10)) 将各行分隔开来。
●Buttons可选的。
数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。
如果省略，则buttons 的缺省值为0。
●Title可选的。
在对话框标题栏中显示的字符串表达式。
如果省略title，则将应用程序名放在标题栏中。
●Helpfile可选的。
字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。
如果提供了helpfile，则也必须提供context。
●Context可选的。
数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。
如果提供了context，则也必须提供helpfile。
1.2 MsgBox 常数可在代码中的任何地方使用下列常数代替实际值：MsgBox 参数常数值描述vbOKOnly0只有OK 按钮（缺省值）vbOKCancel 1 OK 和Cancel 按钮vbAbortRetryIgnore 2Abort、Retry，和Ignore 按钮vbYesNoCancel 3Yes、No，和Cancel 按钮vbYesNo 4Yes 和No 按钮vbRetryCancel5Retry 和Cancel 按钮vbCritical 16关键消息vbQuestion 32警告询问vbExclamation 48警告消息vbInformation 64通知消息vbDefaultButton10第一个按钮是缺省的（缺省值）vbDefaultButton2256第二个按钮是缺省的vbDefaultButton3 512第三个按钮是缺省的vbDefaultButton4 768第四个按钮是缺省的vbApplicationModal0应用程序形态的消息框（缺省值）vbSystemModal4096系统强制返回的消息框vbMsgBoxHelpButton16384添加Help按钮到消息框VbMsgBoxSetForeground65536指定消息框窗口作为前景窗口vbMsgBoxRight524288文本是右对齐的vbMsgBoxRtlReading1048576指定在希伯来语和阿拉伯语系统中，文本应当显示为从右到左读MsgBox 返回值常数值描述vbOK1按下OK 按钮vbCancel2按下Cancel 按钮vbAbort3按下Abort 按钮vbRetry4按下Retry 按钮vbIgnore5按下Ignore 按钮vbYes6按下Yes 按钮vbNo7按下No 按钮2.0 MsgBox 函数实例2.1 MsgBox 函数常规使用实例MsgBox "这是一个消息框函数演示实例！", vbOKOnly + vbInformation, "江羽实例："2.2 MsgBox 函数返回值实例If MsgBox("提供返回值实例！", vbYesNo, "江羽实例：") = vbYes ThenDebug.Print "你点的是按钮！"ElseDebug.Print "你点了否按钮！"End If2.3 MsgBox 函数所有参数完整实例Dim Msg, Title, Help, CtxtDim Style As VbMsgBoxStyleDim Response As VbMsgBoxResultMsg = "消息框函数完整实例演示！" ' 定义消息信息内容。
messagebox函数
常用函数
n=messagebox("确定退出吗？",32+4+256, "提示钮 1 确定 thisform.release 2 取消 3 放弃 endif
4 5 6 7 重试 忽略 是 否
对话框类型
指定对话框中的按钮和图标、显示对话框时的默认按钮以及对话框的行为。 可以是三个值的和,从下面每个表中选一个值。 nDialogBoxType 数值 对话框按钮 0 仅有“确定”按钮 1 “确定”和“取消”按钮 • MESSAGEBOX() 2 “放弃”、“重试”和“忽略”按钮 3 “是”、“否”和“取消”按钮 4 – 格式： “是”、“否”按钮 5 MESSAGEBOX(对话框中显示的文本[,对话框类型[,标题栏文本]]) “重试”和“取消”按钮 数值 图标 – 显示一个用户自定义对话框。 16 “停止”图标 32 – 示例： 问号 48 惊叹号 MESSAGEBOX("是否重来",4+32+256,"错") 64 信息 数值 默认按钮 0 第一个按钮 256 第二个按钮 512 第三个按钮