①此处的“对象名”可以是窗体名、图片框名或打印机对象（Printer），如果省略对象名，则表示当前窗体。
②用来设置或返回下一次输出位置的坐标，只能在程序代码中使用。 ③坐标是各对象以其自己的左上角为参考点的坐标，如：窗体的左上角当前输出位置的坐标为（0，0），窗体中的某个图片框的左上角的当前输出位置的横坐标和纵坐标也可为（0，0） 3）TextHeight和TextWidth方法 ［对象名．］TextHeight（字符串） ［对象名．］TextWidth（字符串）
TextHeight方法返回一个文本字符串的高度值，而TextWidth方法则返回一个文本字符串的宽度值，其单位均为Twip，对象名可以是窗体Form、图片框PictureBox或打印机对象Printer。
4）Height、Width、Top及Left属性
设置对象的大小以及在容器（如窗体）中的位置： [窗体.] [控件.]|Printer.|Screen.Height[=高度值] [窗体.] [控件.]|Printer.|Screen.Width[=宽度值] [窗体.] [控件.] Left[=距左边距离] [窗体.] [控件.] Top[=距顶边距离] 5）Cls方法 ［对象名．］Cls
功能：清除运行时由Print方法或图形方法在Form 或 PictureBox 所显示的图形和文本。而使用Picture属性设置的图形不受此方法影响，若清除Picture属性的图片应使用LoadPicture函数清除图片。
Private Sub Command1_Click() Picture1.Cls
Picture1.Picture = LoadPicture(\End Sub 6）Move方法 ［对象．］Move 左边距离［，上边距离］［，宽度］［，高度］ “对象”可以是窗体及除计数器（Timer）、菜单（Menu）外的控件。 二、数据的输入
1、InputBox函数的格式
InputBox[$](Prompt[,Tiltle][,Default][,Xpos,Ypos][,Helpfile,Context]) 功能：产生一个对话框，提示用户输入数据，光标位于对话框底部的输入区中。 该函数7个参数的含义：
1) Prompt: 必需的。作为对话框消息出现的字符串表达式。
它是一个字符串。其长度不得超过1024个字符。它是在对话框内显示的信息，用来提示用户输入。在对话框内显示Prompt时，可以自动换行。如果想按自己的要求换行，则需插入回车换行操作，即：Chr$(13)+Chr$(10) 或vbCrLf 2) Title：是字符串，它是对话框的标题，显示在对话框顶部的标题区。如果省略 title， 则把应用程序名放入标题栏中。
3) Default: 是一个字符串，用来显示输入缓冲区的默认信息。 4) Xpos，Ypos：是两个整数值，用来确定对话框与屏幕左边界的距离(Xpos)和上边界的距离(Ypos)，其单位为twip，如果省略，则对话框显示在屏幕中心线向下约1/3处。 5) Helpfile，Context：Helpfile是一个字符串，用来表示帮助文件的名字；Context
- 31 -
是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。 2、使用InputBox函数时的注意事项 1)inputbox函数返回的是字符型数据，如果没有给变量定义类型，而将函数值赋值给变量，则变量不是变体类型数据，而是字符串数据。
2）当在运行中，点击了“确定”按钮，则将文本框的数据返回；点击了“取消”按钮，则返回一个空字符串。
3）一个inputbox函数只能输入一个值，多个值的输入应该多次执行inputbox函数。 4）如果后面的参数要使用，前面的参数不使用，“，”一定要加上。
5）和其他返回字符串的函数一样，InputBox函数也可以写成InputBox$的形式，这两种形式完全等价。
例1：输入一个整数，并在文本框Text1中显示输入的整数
程序代码为：
Private Sub Form_Click()
Dim temp As String, num As Integer
temp = InputBox(\请输入一个整数:\输入窗口演示\ num = Val(temp)
Text1.Text = \你输入的数是:\End Sub
例2：编制程序，提示“下面填写工作单位，”再在下一行提示“请输入”，标题为“输入”。 Private Sub Command1_Click()
a = InputBox(\下面填写工作单位\
+ Chr(10) + vbCrLf + \请输入:\输入\宁化职专\ , , , \ Print a End Sub Ⅲ、小结
本节课我们要掌握Print方法的格式及与之相关的属性和方法，掌握VB语言中输入InputBox函数的用法。 Ⅳ、作业
P108一、1~5、10~13三、1
第29、30课时
课题： Msgbox函数、字型与颜色控制、打印机输出 教学目的:
1、掌握MsgBox函数的格式及使用 2、了解VB对字体的字型和颜色的控制 教学重难点：
MsgBox函数的格式及使用 教学方法： 多媒体教学 教学过程：
Ⅰ、复习上节内容
1、Print方法的格式及与之相关的属性和方法
- 32 -
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 -