教科版 信息技术 必修 第3章 简单VB程序设计课件（共62张ppt)

课件62张PPT。第3章 简单VB程序设计 众所周知，VB应用程序的执行是由事件驱动的，当用户触发某一事件时，执行相应的事件过程，这些事件过程之间并没有特定的执行次序。但在每一个事件过程内部，是有一定的执行控制流程的，这就是通常所说的三种基本结构：顺序结构、分支结构、循环结构。顺序结构是最简单的一种结构，该结构按语句排列的先后顺序执行。本章的主要内容有：VB最基本的几个对象，与顺序结构有关的语句和方法。通过本章的学习，可以进行简单VB程序设计。退出3.1 窗 体
3.2 命令按钮
3.3 标 签
3.4 文本框
3.5 赋值语句
3.6 Print方法
3.7 输入框
3.8 消息框
3.9 注释语句、结束语句
3.10 程序调试3.1 窗 体 创建VB应用程序的第一步是创建用户界面。用户界面的基础是窗体，各种控件对象必须建立在窗体上。
启动VB后，即在屏幕上显示一个窗体，如图3-1所示。
3.1.1 窗体的主要属性
窗体的属性决定了窗体的外观和操作。窗体的大部分属性可用两种方法来设置：通过属性窗口设置和通过程序代码设置。有少量的属性不能在程序代码中设置。
（1）Caption 属性
设置窗体的标题内容。标题内容应概括说明本窗体作用。
（2）MaxButton 属性和 MinButton 属性
MaxButton属性为True，窗体右上角有最大化按钮；为False时，无最大化按钮。
MinButton属性为True，窗体右上角有最小化按钮；为False时，无最小化按钮。
（3）BorderStyle 属性
决定窗体边框式样及窗体是否能调整大小。
（4）BackColor属性和ForeColor 属性
BackColor属性设置窗体的背景颜色，ForColor 属性设置窗体的前景颜色。窗体的前景颜色是执行Print方法时所显示文本的颜色。
（5）Height属性和Width属性
设置窗体的初始高度和宽度。其单位为Twip。1Twip=1/20点=1/1440英寸=1/567cm。
（6）Left属性和Top属性
用于设置窗体左边框距屏幕左边界的距离和窗体顶边距屏幕顶端的距离。其单位为Twip。
（7）Name（名称）属性
设置窗体的名称，在程序代码中用这个名称引用该窗体。新建工程时，窗体的名称缺省为 Form1；添加第二个窗体，其名称缺省为 Form2，依次类推。为了便于识别，用户通常给 Name 属性设置一个有实际意义的名称。
（8）Enabled属性
属性值为True或False，设置对象是否能够对用户产生的事件做出反应。一般在程序中设置，用于临时屏蔽对窗体或其它控件的的控制。
（9）Moveable属性
属性值为True或False，设置是否可以移动窗体。
（10）Visible属性
属性值为True或False，设置窗体是否被显示。用户可用该属性在程序代码中控制窗体的隐现。
（11）Picture属性
设置在窗体中显示的图片。单击Picture属性右边的按钮，弹出“加载图片”对话框，用户可选择一个图片文件作为窗体的背景图片。若在程序中设置该属性的值，需要使用LoadPicture函数。
（12）WindowState属性
设置窗体启动后的大小状态。
在VB中，虽然不同的对象有不同的属性集合，但有一些属性，如Name 、Enabled、Visible、Height、Width、Left、Top等，其它控件也有，且具有相似的作用。在后续的章节中，主要介绍各种控件常用的特殊属性。3.1.2 事件
窗体最常用的事件有3种：Click（单击）、DbClick（双击）、Load（装入）。
1．Click事件
程序运行后，单击窗体触发该事件。
2．DbClick事件
程序运行后，双击窗体触发该事件。3．Load事件
Load事件是窗体被装入内存工作区时触发的事件。如果这个事件过程存在，就马上执行它。Load事件过程通常用于启动程序时，对属性、变量的初始化以及装载数据等。
【例3.1】窗体上无最大化、最小化按钮，程序运行后，在窗体上装入一幅图片作为背景，当单击窗体时，窗体变宽；当双击窗体时，则退出。程序运行界面如图3-2所示。事件过程如下：
Private Sub Form_Load（）' 装入图片
Form1.Picture = LoadPicture（"c：picChangcheng.wmf"）
End Sub
Private Sub Form_click（） ' 单击窗体
Form1.Width = Form1.Width + 1000
End Sub
Private Sub Form_DblClick（） ' 双击窗体
End
End Sub
说明：上机时，可通过查找文件的方法找一个图片文件，参照本例中的格式输入即可。3.2 命令按钮 在VB应用程序中，命令按钮是使用最多的对象之一，常常用它接受用户的操作信息，触发相应的事件过程，以实现指定的功能。
3.2.1 属性
1．Caption属性
设定命令按钮上显示的文本。
2．Default属性
该属性用于设置默认命令按钮。3．Style属性和Picture属性
命令按钮上除了可以显示文字外，还可以显示图形。若要显示图形，首先应将Style 属性设置为1，然后在Picture属性中设置要显示的图形文件。
4．Value属性
该属性只能在程序运行期间引用或设置。True表示被按下，False（默认）表示未被按下。
3.2.2 事件
最常用的事件是Click事件。3.3 标 签 标签（Label）主要用于显示不需要用户修改的文本。所以，标签可以用来标示窗体及窗体上的对象，如为文本框、列表框等添加描述性的文字，或者作为窗体的说明文字。
3.3.1 属性
1．Caption属性
设置标签要显示的内容。它是标签的主要属性。
2．BorderStyle属性
默认值为0，标签无边框；设置为1时，标签有立体边框。
3．Autosize属性
该属性用于设置标签是否自动改变尺寸以适应其内容。
4．Alignment属性
确定标签中内容的对齐方式。
5．BackStyle属性
该属性用于设置背景是否透明。3.3.2 事件
常用Click，DbClick事件。
【例3.2】修改例3.1，在图片上加提示信息“请单击图片”，程序其它功能不变。程序运行界面如图3-2所示。
操作如下：在窗体上添加一个标签，将其Caption属性设置为“请单击图片”，BackStyle属性设置为0（透明），程序代码不变。
3.4 文本框 文本框（TextBox）在窗体中为用户提供一个既能显示文本又能编辑文本的区域。在文本框内，用户可以用鼠标、键盘按常用的方法对文字进行编辑，例如进行输入、删除、选择、复制及粘贴等各种操作。
3.4.1 属性
1．Text属性
设置文本框中显示的内容。
2．Locked属性
设置文本框中的内容是否可编辑。3．Maxlength属性
设置文本框中允许输入的最大字符数。
4．MultiLine属性
决定文本框是否允许接收多行文本。
5．PassWordChar属性
当MultiLine为False时，该属性可设置显示在文本框中的替代符。
6．ScrollBars属性
决定文本框中是否有滚动条。3.4.2 事件
文本框除支持Click，DbClick事件，常用的还有Change、LostFocus事件。
1．Change事件
当用户输入新内容，或程序对文本框的Text属性重新赋值，从而改变文本框的Text属性时触发该事件。
2．LostFocus事件
当用户按下[Tab]键时光标离开文本框，或用鼠标选择其它对象时触发该事件，称为“失去焦点”事件。3.4.3 方法
文本框最常用的方法是SetFocus，使用该方法可把光标移到指定的文本框中，使之获得焦点。当使用多个文本框时，用该方法可把光标移到所需要的的文本框中。其使用格式为：
1．对象.SetFocus
【例3.3】程序运行后，随着用户的输入，标签中同步显示出用户对文本框的内容更新的次数。运行效果如图3-4所示。2．编写事件过程如下：
Private Sub Text1_Change（）
Static i%
i = i + 1
Label1.Caption = i
End Sub
请思考：标签中显示的数字是文本框中显示的字符个数吗？
3.5 赋值语句 赋值语句是VB程序最常用、最基本的语句，它能为变量提供数据。另外，若要在程序代码中设置对象的属性，也要使用赋值语句。
赋值语句有两种格式：
格式1： 变量名=表达式
格式2： [对象名.]属性名=表达式
赋值语句的作用是：首先计算“=”右边表达式的值，然后将该值赋给“=”左边的变量或对象的属性。在格式2中，若对象名省略，则默认对象为当前窗体。
例如：
x=2 ' 把2赋给x
y=x*3 ' 计算x*3的值，得6，把6赋给y
x=x+1 ' 计算x+1的值，得3，把3赋给x
a$= "Hello" ' 把“Hello”赋给a$
Text1.Text="你好！" ' 把“你好！”赋给Text1的Text属性
【例3.4 】已知三角形三边a，b，c的长，求三角形的面积，输出三条边长及面积。
分析：应用程序的界面应该能让用户输入三边的长，程序在接收用户输入的数据后，利用数学公式对数据进行计算，并把结果输出到屏幕上。已知三角形三边a，b，c的长，求三角形的面积的公式为：
其中p=（a+b+c）/2。
（1）界面设计
在窗体上建立5个标签、3个文本框和1个命令按钮。设置各对象的属性，如表3-3所示。设计完成的界面如图3-5所示。
（2）编写事件过程如下：
Private Sub Command1_Click（）
Dim a!，b!，c!，p!，s!
a = Text1.Text
b = Text2.Text
c = Text3.Text
p =（a + b + c）/ 2
s = Sqr（p *（p - a）*（p - b）*（p - c））
Label5.Caption = s
End Sub
3.6 Print方法3.6.1 Print的格式及功能
格式：[对象名.]Print [表达式列表]
功能：在对象上输出表达式的值。
说明：
（1）对象名：可以是Form（窗体）、Debug（立即窗口）、Picture（图片框）、Printer（打印机）。省略此项，表示在当前窗体上输出。例如： Print "23*2="；23*2 ' 在当前窗体上输出23*2= 46
Picture1.Print "Good "
' 在图片框Picture1上输出Good
Printer.Print "Morning" ' 在打印机上输出Morning
（2）表达式列表：是一个或多个表达式，若为多个表达式，则各表达式之间用“，”或“；”隔开。省略此项，则输出一空行。
（3）用“，”分隔各表达式时，各项在以14个字符位置为单位划分出的区段中输出，每个区段输出一项；用“；”分隔各表达式时，各项按紧凑格式输出。
（4）如果在语句行末尾有“；”，则下一个Print输出的内容，将紧跟在当前Print输出内容后面；如果在语句行末尾有“，”，则下一个Print输出的内容，将在当前Print输出内容的下一区段输出；如果在语句行末尾无分隔符，则输出完本语句内容后换行，即在新的一行输出下一个Print的内容。例如：
Print 1；2；3
Print 4，5，
Print 6
Print 7，8
Print
Print 9，10
输出结果为：
1 2 3
4 5 6
7 8
9 10
（3）定位输出：在Print方法中，可以使用Tab函数对输出项进行定位。
例如：
Print Tab（10）；"姓名"；Tab（25）；"年龄"
则“姓名”和“年龄”分别从当前行的第10列和第25列开始输出。
输出结果如下：
姓名 年龄
Print方法中，还可以使用Spc函数，例如：
Print "后面有8个空格"；Spc（8）；"前面有8个空格"
输出结果如下：
后面有8个空格 前面有8个空格3.6.2 Cls方法
格式：[对象名.]Cls
功能：Cls方法清除Print方法显示的文本或在图片框中显示的图形，并把输出位置移到对象的左上角。格式中的对象可以是窗体或图片框，如果省略对象名，则清除当前窗体的显示内容。
3.7 输入框 我们知道，文本框可以接收用户的输入。输入框也可以接受用户的输入，但是其风格和用法有别于文本框。VB提供的InputBox函数可生成输入框。
例如：p$=InputBox（"请输入密码"，"密码框"）
执行该语句后，屏幕上显示如图3-6所示的输入框。
每执行一次InputBox函数，用户只能输入一个数据，另外，输入框的样式是固定的，用户不能改变。用户能改变的是输入框的“提示”和“标题”的内容，“提示”和“标题”都是字符串表达式。
InputBox函数的一般格式：
InputBox（提示[，标题][，缺省值][，x坐标位置][，y坐标位置]） 需要注意的是：各项参数次序必须一一对应，除了“提示”不能省略外，其余各项均可省略，但省略部分也要用逗号占位符跳过。
例如：f$ = InputBox（"第一行" & vbNewLine & "第二行"，，"ddd"，200，200）
运行时屏幕的显示如图3-7所示。
【例3.5】已知圆半径，求圆周长和圆面积。
（1）界面设计
在窗体上建立两个标签、两个文本框、两个命令按钮。设置各对象的属性如表3-4所示。（2）编写事件过程如下：
Private Sub Command1_Click（）
Dim r!，c!，a!
r = InputBox（"请输入半径"，"输入框"）
c = 2 * r * 3.14159
a = 3.14159 * r ^ 2
Text1.Text = c
Text2.Text = a
End Sub
Private Sub Command2_Click（）
End
End Sub
3.8 消息框 执行VB提供的MsgBox函数，可以在屏幕上出现一个消息框，消息框通知用户消息并等待用户来选择消息框中的按钮，MsgBox函数返回一个与用户所选按钮相对应的整数。
MsgBox函数的格式：
MsgBox（提示，[，按钮数值][，标题]）
例如：inta=MsgBox(“密码错”，21，“密码核对” )
执行该语句后，屏幕上显示如图3-10所示的消息框。
在MsgBox函数格式中，“提示”和“标题”的含义同InputBox函数，“按钮数值”的含义复杂一些，“按钮数值”指定按钮的数目及类型，使用的图标样式及缺省按钮是什么等，“按钮数值”的缺省值是0。本例“按钮数值”是21，其含义是：消息框中有“×”图标，有“重试”及“取消”两个按钮，缺省按钮是“重试”按钮。当用户单击消息框中的一个按钮后，消息框即从屏幕上消失。在上面的语句中，将函数的返回值赋给了变量inta，在程序中可引用inta作相应的处理。
下面对“按钮数值”作进一步的解释。
“按钮数值”是3个数值之和，这3个数值分别代表按钮的数目和类型、使用的图标样式以及缺省按钮是什么。
“按钮数值”是从上面3个表中各取一个数相加而得。注意：每个表只能取一个数。例如“按钮数值”是21，系统会自动把它分解成分别属于上面3个表中的3个值5，16，0。21=5+16+0，这种分解是唯一的。
在程序中，一般把“按钮数值”写成符号常数相加的形式，如把21写成VbRetryCancel+vbCritical+vbDefaultButton1，这样可使程序含义清楚，从而增加程序的可读性。当然，把21写成5+16+0也是允许的。
MsgBox函数的返回值是根据用户单击哪个按钮而定的，见表3-8。
通常，在程序中要根据MsgBox函数返回值的不同作不同的处理，这需要用到第4章中介绍的选择结构方面的知识。
MsgBox也可以写成语句形式，例如：MsgBox "密码错"，"密码核对"
执行此语句也产生一个消息框，如图3-11所示。
MsgBox语句没有返回值，因此常用于比较简单的信息提示。3.9 注释语句、结束语句3.9.1 注释语句
为了提高程序的可读性，通常在程序的适当位置加上必要的注释。在VB中用“'”或Rem来标识一条注释语句，格式为：
' | Rem <注释内容>例如：
Rem 2002年编写
Private Sub Form_click（）
Dim a$ ' 定义一个字符串变量
a="Visual Basic6.0中文版" ' 为变量赋值
print a ' 打印a的内容
End Sub3.9.2 结束语句
格式：End
End语句用来结束程序的执行，并关闭已打开的文件。
例如：
Private Sub Command3_Click（）
End
End Sub
该过程用于结束程序，即单击命令按钮Command3时，结束程序的运行。
3.10 程序调试 在程序中发现错误并排除错误的过程叫做程序调试。VB提供了丰富的调试手段，可以方便地跟踪程序的运行，排除程序错误。
3.10.1 程序错误
程序设计中常见的错误可分为以下3种：编译错误、运行错误和逻辑错误。
1．编译错误
编译错误指VB在编译程序过程中出现的错误。此类错误是由于不正确的构造代码而产生的，比如关键字输入错、遗漏了必需的标点符号等。
例如，Printt "hello"语句会导致编译错误。2．运行错误
运行错误指编译通过后，运行代码时发生的错误。此类错误通常是代码执行了非法操作或某些操作失败。比如，要打开的文件没找到，除法运算时除数为零，数据溢出等。
例如，print 245*1000语句。
3．逻辑错误
程序运行后，得不到应有的结果，这说明程序存在逻辑错误，逻辑错误是由于程序结构或算法错误而引起的。
例如，把语句s=s+l中的英文字母l写成了数字1。3.10.2 3种模式
VB开发环境有3种模式：设计模式、运行模式和中断模式。开发环境中的标题能够显示出当前所处的模式。
1．设计模式
2．运行模式
3．中断模式
3.10.3 调试方法
使用VB提供的调试工具与调试手段，可提高程序调试的效率。
1．逐语句执行
2．设置断点
3．使用调试窗口
VB提供了3个供用户调试程序使用的调试窗口：立即窗口、本地窗口和监视窗口。可以利用这些窗口观察有关变量的值。可单击“视图”菜单中的相应命令打开它们。
（1）立即窗口
（2）本地窗口
（3）监视窗口