2、InputBox函数的用法。 Ⅱ、新课
一、Msgbox函数
1、MsgBox 函数的语法格式为：
[Variable=]MsgBox(Prompt[, Buttons] [,Title][Helpfile, Context]) 1) Variable：用于接收MsgBox函数的返回值。
2) Prompt：字符串表达式，显示在对话框中的提示消息,不可以省略。Prompt 的最大长度大约为1024个字符, Chr(13) & Chr(10)将各行分隔。
3) Title：字符串变量或常量，其内容将显示在对话框标题栏
4) [Helpfile ,Context ]：一个字符串变量或表达式表示帮助文件的名称 , Context帮助目录号选项
5) Buttons：对话框样式，可以由4项数值相加而得。 <按钮>[+<图标>][+<默认按钮>][+<模式>]
数值 符号常量 只显示“确定”按钮 显示“确定”及“取消”按钮 显示“是”、“否”及“取消”按钮 显示“是”及“否”按钮 显示 “重试”及“取消”按钮 Stop Sign对极其重要的问题提醒用户 × Question Mark增亮没有危险的问题 ？ Exclamation Mark强调警告用户必须知道的事情 ！ Information Mark可以使乏味的信息变得有趣 i 第一个按钮缺省 第二个按钮缺省 第三个按钮缺省 第四个按钮缺省 意义 0 vbOKOnly 1 vbOKCancel 3 vbYesNoCancel 4 vbYesNo 5 vbRetryCancel 16 vbCritical 32 vbQuestion 48 vbExclamation 64 vbInformation 0 vbDefaultButton1 256 vbDefaultButton2 512 vbDefaultButton3 768 VbDefaultButton4 2 vbAbortRetryIgnore 显示“终止”、“重试”及“忽略”按钮 2、MsgBox函数的返回值
MsgBox函数的返回值是整形数。
返回值 1 2 3 4 含义 选择“确定”按钮 选择“取消”按钮 选择“终止”按钮 选择“重试”按钮 返回值 5 6 7 含义 选择“忽略”按钮 选择“是”按钮 选择“否”按钮 例：编制程序，使用消息框提问“是否继续？”，然后使用Print命令打印到窗体上“是”或“否”。
Private Sub Command1_Click() Dim iAnswer As Integer
iAnswer = MsgBox(\是否继续？\提问\ If iAnswer = 6 Then Print \是\
- 33 -
Else
Print \否\ End If End Sub
二、MsgBox语句
MsgBox Prompt[, Buttons] [,Title] [Helpfile, Context]
各参数的含义及作用与MsgBox函数相同，由于MsgBox语句没有返回值，因而常用于较简单的信息显示。例如：
MsgBox \工程保存成功\
三、字型与颜色控制 1、字体类型
[窗体名.] [控件名.] | Printer.FontName［=“字体类型名”］ Textl.FontName=“隶书” 2、字体大小
[窗体名.[控件名.] |Printer.FontSize［=点数］ 3、字体修饰属性
1) 粗体属性 FontBold ［窗体名.］［控件名.］|Printer.FontBold［=布尔值］ 2) 斜体属性 FontItalic ［ 窗体名.］［控件名.］|Printer.FontItalic［=布尔值］ 3) 加删除线 FontStrikethru ［窗体名.］［控件名.］|Printer.FontStrikethru［=布尔值］ 4) 加下划线FontUnderline
［窗体名.］[ 控件名.］| Printer.FontUnderline［=布尔值］ 5) 重叠显示属性FontTransparent ［窗体名.］［图片框名.］FontTransparent［=布尔值］ 4、颜色控制 1）使用RGB函数
返回一个Long整数，用来表示一个RGB颜色值 RGB(Red, Green, Blue)
Form1.BackColor=RGB(0,0,255) '设定背景为蓝色 2）使用QBColor函数
返回一个Long值，用来表示所对应颜色值的 RGB颜色码 QBColor(Color) 'Color：0~15 3）使用系统定义的颜色常数
vbRed 、vbGreen 、vbBlack 、vbYellow、vbBlue 等 4）直接使用颜色设置值；＆HBBGGRR Forml．BackColor=＆HFF0000 Ⅲ、小结
本次课我们要掌握MsgBox函数的格式及使用及了解VB对字体的字型和颜色的控制、打印机输出。 Ⅳ、作业
P109一、14 二、1~3，6，7 三、3
- 34 -
第31、32课时
实验三 简单程序设计 一、实验目的：
1、掌握窗体的概念和用途、PRINT方法、INPUTBOX函数、MSGBOX函数的用法。 2、掌握应用程序开发的一般方法 二、实验内容
1、调试课本中的题目
2、使用INPUTBOX函数
题:用INPUTBOX函数输入你的基本情况。 3、使用MSGBOX函数
题：利用MSGBOX函数，输出各种不同的样式。 4、PRINT方法
题：在窗体上显示出一个标签控件的字体变化。
第33～36课时
课题：控件（一） 教学目的:
1、掌握文本控件的属性、事件、方法 2、应用文本控件 教学重难点：
1、标签控件的常用属性
2、文本框控件的常用属性、事件、方法 教学方法： 多媒体教学 教学过程： Ⅰ、引入
控件是组成VB应用程序界面的基本元素，只有掌握了控件的属性、事件、方法，才能编写出界面美观，便于操作的程序。Visual Basic 中的控件分为三类：标准控件（内部控件）、ActiveX 控件（外部控件）、可插入对象，VB工具箱中列有标准控件（20个）。本节课重点讲解文本控件。 Ⅱ、新课 一、文本控件
（一）标签（Label）
标签控件用于显示文本(输出)信息，不能作为输入信息的界面。在程序运行中用户不能编辑或修改标签中显示的文本。 1、基本属性
Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等与窗体的使用相同。 2、常用属性 1) Alignment
决定Caption属性值内容的对齐方式。
- 35 -
有三个值可以选择：
0-靠左对齐（默认） 1-靠右对齐 2-居中对齐 2) AutoSize
设置/返回标签控件是否能够自动调整大小以显示所有内容，有两个值： True 标签控件能够自动调整大小。
False 标签控件不能够自动调整大小(默认)
若将该属性设置为False，如果标签控件中的文本太长，则只能显示其中一部分 3）BorderStyle属性
控件周围是否有边框。 0-无(默认) 1-有 4) Caption
该属性用来设置/返回标签控件中显示的文本，是一个字符串。Caption属性允许文本的长度最多为1024字节。
若需要让文本在需要的地方换行，可以在设置标签控件的Caption属性时，在文本中需要换行的地方加上回车换行符号vbCrLf，但只能在运行时才可以，
Label1.Caption=\5）BackStyle
控制控件是否透明。
0-透明,标签后的背景和图形可见 1-不透明（默认），标签后的背景和图形不可见 6）WordWrap
设置/返回标签控件自动调整大小时的方向，有两个值可以选择：
True 标签控件只在垂直方向上调整大小，以显示所有文本。 *有输入汉字才会换行 False 标签控件在水平方向上调整大小，以显示所有文本（默认）。
为了使WordWrap起作用，应把AutoSize属性设置为True。 2、标签控件的事件
标签经常接收的事件有：单击(Click)，双击(DblClick)和改变(Change)。但通常标签仅起到在窗体上显示文字作用，因此，一般不需编写事件过程。 例1：标签属性的设置。
默认控件名Name Form1 Label1 Label2 Label3 Label4 Label5 标题Caption 有关属性设置 颜色、对齐、鼠标属性例 MousePointer=99，MouseIcon=zg.ico 左对齐 居中 自动 背景白 前景红 Alignment=0，BorderStyle =1 Alignment=2，BorderStyle =1 AutoSize=True，WordWarp=False，BorderStyle =1 BackColor= &H00FFFFFF&，BorderStyle =0 ForeColor= &H000000FF&，BorderStyle =0
- 36 -