大计第4章vb程序设计

1、1/59本 章 概 要1. VB程序设计语言简介：VB特点及使用VB编写 应用程序的步骤。2. 窗体设计：窗体的常用属性、事件和方法。3. 控件设计：常用控件的用法。 4. 表达式：数据类型、常量、变量和表达式。5. 分支程序设计：VB中的两种分支语句。6. 循环程序设计：VB中的三种循环语句。7. 子程序设计：子程序的设计方法。2/59 1.V B语言简介 Visual Basic(简称VB)是MicroSoft公司推出的Windows环境下基于对象的可视化程序设计语言，适用于开发Windows环境下的各种程序，可以处理文本、图像、动画和声音等多媒体数据，因而被计算机界称为“最富有创新精神的

2、编程工具之一”。3/59VB的主要特点可视化程序设计方法结构化程序设计方法 利用Windows资源 开放式数据库连接 VB的主要特点：通过事件驱动机制调用系统提供的方法和执行实现具体功能的事件代码，通过结构化程序设计的方法实现比较复杂的功能。动态数据交换（DDE）技术实现与其他程序的信息交换和通信；对象链接与嵌入（OLE）技术设计多媒体应用程序;调用动态链接库（DLL）函数和Windows提供的应用程序接口（API）函数。能够访问多种数据库，如Access、Visual FoxPro和Paradox等；通过开放式数据库连接（ODBC），可以访问SQL Server、Oracle和Sybase等

3、数据库。 4/59创建应用程序的步骤创建应用程序的步骤：1. 创建一个工程文件：启动VB，在新建工程对话框中选择标准EXE，单击打开按钮。2. 在窗体中添加对象：拖动工具箱中的图标，在窗体中添加所需对象。3. 设置对象属性：通过属性窗口设置对象的属性值。4. 编写事件代码：为相关控件编写事件代码。5. 运行调试程序：单击运行菜单启动，或者单击工具栏中的启动按钮，运行程序。4.2.2 程序的构成1.对象属性、事件、方法2.控制过程顺序、分支、选择3. 函数功能独立的一段程序代码，结果为一个数4.表达式用于完成计算5.变量和常量6/59 2.窗体设计 窗体（Form）也称窗口，是Windows环境

4、下应用程序的主要界面形式。 创建窗体的方法： 方法1：单击工程菜单添加窗体，再双击窗体选项。方法2：从工程资源管理器的右击菜单中选择添加添加窗体，双击窗体选项。7/59窗体设计对象的属性用于描述对象的特征，可以设置和引用属性的值。修改对象的属性值可以改变对象的特征；引用属性的值，对象之间可以实现信息交换。 常用属性： 1. Caption:字符串型，窗体标题栏上的文字内容 2. Enabled:逻辑型，是否可以操作对象。值为True表示可以操作对象。 “确定”按钮的Enbaled属性为True“取消”按钮的Enbaled属性为FALSE，故显示为灰色，表示暂不可用。8/59窗体设计3. Hei

5、ght：数值型，窗口的高度。4. Icon：字符串型，控制菜单图标文件名（ICO）。5. Left：数值型，左上角列坐标。6. MaxButton：逻辑型，最大化按钮。值为True表示窗口有最大化按钮。7. MinButton：逻辑型，最小化按钮。值为 True表示窗口有最小化按钮。9/59窗体设计8. Name（名称）: 字符串型，窗体的名称。 9. StartUpPosition：数值型，窗口的开始位置。如，0手动；2屏幕中心位置 。10. Top：数值型，左上角行坐标。11. Visible：逻辑型，是否隐藏对象。12. Width：数值型，窗口的宽度。13. WindowState：数

6、值型，窗口初始状态。0表示正常；1表示最小化；2表示最大化。 10/59窗体设计常用属性： lefttop11/59窗体设计设置对象的属性： 1.静态设置：在设计窗体时设置属性的值。 2. 动态设置：在程序运行过程中，通过执行语句修改对象的属性值。 方法：右击对象“属性窗口”，在“属性”窗口中设置对应的属性值。 12/59事件及其代码编写事件代码： 在事件代码编辑窗口中编写对象的事件代码，方法：在窗体上双击对象（或从对象选择框中选择对象名），再从事件选择框中选择事件名，然后在系统生成的开始语句（Private Sub ）和结束语句（End Sub）之间编写事件代码。事件对象代码13/59事件及

7、其代码窗体的常用事件： （1） Activate：窗体变为活动窗口时触发。（2）Click： 单击对象时触发。（3）DblClick：双击对象时触发。（4）Deactivate：由活动窗口变为非活动 窗口时触发。（5）GotFocus：对象获得焦点（变为活 动窗口）时触发。14/59事件及其代码（6）Load：调用（运行）窗体时触发。（7）LostFocus：对象失去焦点（由活动 窗口变为非活动窗口）时触发。（8）Resize：窗口大小发生变化（最大化、 最小化、还原或拖动边框）时触发。（9）Unload：关闭窗口时触发。15/59方法及其调用对象的方法是一种依附于对象的子程序，调用方法时对对

8、象执行操作。 Circle (x ,y),：以（x, y）为圆心画彩色圆。 CLS：清除窗口上显示的图形或文字。 Hide：隐藏窗口，即将窗口的Visible的值设为False。 Print：在窗口上显示文字。 SetFocus：使对象得到焦点。 Show：装载和显示窗口，使之成为活动窗口。16/59方法及其调用方法的调用：格式：.例如：Form1.Hide 将隐藏窗口Form1Command1.SetFocus 将焦点移到命令按钮command1上 17/593.控件设计控件是通过VB工具（基类）添加到窗体中的对象。控件和窗体都是程序中的对象，与窗体相似，每个控件也有各自的属性、事件和方法。

9、 添加控件使用工具箱。 系统默认工具箱随着窗体设计窗口一同打开，也可以单击视图菜单工具箱，打开工具箱。18/59控件设计向窗体中添加控件的方法：单击（选定）工具箱中的工具，随后在窗体上适当位置拖动鼠标，即可“画”出一个控件。在窗体上拖动控件可以改变其位置，拖动尺寸控点，可以改变其大小。其他操作：19/59基本控件及其作用1. 标签（Labe1）:主要通过其Caption属性显示文字。X2.线条（Line）用于设计线条。常用属性有： X1和Y1：为线条的起点。 X2和Y2：为线条的终点。 BorderColor：为线条的颜色，在程序中可以通过RGB函数设置颜色。 BorderWidth：为线条的

10、宽度。20/59基本控件及其作用3.图像（Image）用于显示图像。常用属性： picture：为图像文件名（BMP、GIF或JPG格式）。 Stretch：为逻辑型数据，值为True表示按控件大小自动调整图像。21/59基本控件及其作用X4.形状（Shape）用于显示图形。常用属性： Shape：用于设置图形的形状，0为矩形，1为正方形，2为椭圆形，3为圆形，4为圆角矩形，5为圆角正方形。 FillStyle：设置图形内填充样式，0为实线，1为透明（不填充），2为水平直线，3为垂直线等。 FillColor：设置图形内填充的颜色。22/59基本控件及其作用5. 命令按钮（CommandBut

11、ton）用于实现各种控制功能。常用属性事件： Caption属性：用于设置按钮上的显示文字。 Click事件：编写命令按钮完成控制功能的程序代码。23/59基本控件及其作用6.文本框（TextBox）主要用于显示和输入数据。常用属性：MultiLine：逻辑型，True表示允许显示和输入多行文本，False表示只允许一行。Text：字符串型，值为文本框上显示和输入的数据。Alignment：数值型，设置文本框上数据的对齐方式。0为左对齐，1为右对齐，2为居中。24/59基本控件及其作用文本框（TextBox）的常用事件：Change事件：当文本框中数据发生变化时触发。KeyPress事件：当键

12、盘按键时触发，通过参数KeyASCII得到按键的ASCII值。例如，空格键的值为32；回车键的值为13等。SetFocus将焦点移至文本框上。文本框（TextBox）的常用方法：25/59基本控件及其作用7.框架（Frame）起容器的作用。先添加框架，再向框架内添加其他控件，作为一组控件使用。通过Caption属性设置框架上的显示文字。8.复选框（CheckBox）允许从多个选项中进行选定,可以选择多项。Caption属性用于显示复选框上的文字；Value属性用于确定是否选定复选框，选定为 1，未选定为 0 。26/59基本控件及其作用9.选项按钮（OptionButton）允许从一组选项中选

13、定一项。直接添加在窗体中的所有选项按钮是一组，通过添加框架可以对选项按钮进行有效分组。选项按钮Caption属性的作用与复选框相同。Value 属性的值为逻辑型，True 表示选定，False表示未选定。27/59基本控件及其作用X10.水平滚动条（HScrollBar）水平放置，通过拖动滚动条输入某个范围的数据。 常用属性：Min为范围的下限，Max为上限；Value为滚动条当前位置表示的数值。 常用事件：当滚动条的位置发生变化时触发Change事件。X11.垂直滚动条（VScrollBar）与水平滚动条相似，其Min、Max、Value属性和Change事件的作用与水平滚动条基本相同，只是

14、控件垂直放置。28/59基本控件及其作用12. 计时器:运行窗体时系统隐藏计时器（Timer）控件，它主要用于设计按一定时间间隔重复执行某些操作的程序。Interval属性：用于设置触发Timer事件的时间间隔，单位为毫秒（1秒=1000毫秒）。Interval为0时，不触发Timer事件。Timer事件：按Interval属性设定的时间间隔，重复执行Timer事件的程序代码。设计界面运行界面13 列表框常用属性List:用于设置或读取列表内容Listcount：列表框中列表项的数量Listindex: 最后选中列表项位置序号Text：最后选中文本内容常用事件Click 、Dbclick常用方

15、法AddItem、RemoveItem、Clear 14组合框属性、事件与方法和列表框相同，可以输入数据31/594.表 达 式 表达式是程序中完成运算的工具和手段，常量、变量、对象的属性和函数本身都是简单的表达式，用运算符将表达式正确连接起来又构成更复杂的表达式。 32/59数 据 类 型 数据是程序处理的对象，是程序进行运算的基础。为了便于存储和运算数据，计算机语言都对数据进行分类管理。根据数据的运算性质、数据范围和存储方式，VB有数值、字符、日期和逻辑等多种基本数据类型。 33/59数 据 类 型常用数据类型: 数据类型关键字字节数范 围整型Integer2-3276832767长整型L

16、ong4-21474836482147483647单精度实数Single4-3.402823E383.402823E38双精度实数Double8-1.79769313486232E3081.79769313486232E308字节Byte10255字符串型String与内容有关065535个字符日期型Date81/1/100 12/31/9999逻辑型Boolean2True 或 False34/59常量的表示形式常量是程序处理的初始数据，是程序运行过程中不发生变化的量，有常数和符号常量两种形式。 常数（1）整型：由数字和正（+）负（-）号组成。 （2）长整型：在数的最后添加“&”表示。（3）

17、单精度型：末尾为“!” 和E指数形式的数都是单精度型常数。（4）双精度型：末尾为“#”、D指数形式和直接写带小数点的数都是双精度型常数。 35/59常量的表示形式（5）字符串型：是半角双引号引起来的一串字符，其内容可以是字母、数字、汉字及标点符号等。当字符串数据中有双引号时，其双引号用连续两个双引号表示。 （6）日期型：用一对“#”将表示日期和时间数据括起来。 （7）逻辑型：只有两个值：True和False。36/59常量的表示形式2. 符号常量为了便于阅读程序，经常将一些特殊的常数用符号表示。例如，用PI表示3.1415926，用E表示2.71828等。定义符号常量的语句： Const As

18、 = 例Const PI As Double =3.1415926 Const xm=“zhang3”Const HJS#=0.61837/59变量及其赋值变量是在程序运行过程中可以随时改变的量，通常用于存储程序处理的原始数据或中间结果。在VB中，变量有两种形式，即内存变量和对象属性变量(如Caption和Value等)。 38/59变量及其赋值变量命名：每个变量必须有符合规定的名称，在VB中为变量命名的规则如下。（1）变量名必须以字母或汉字开头，由英文字母、汉字、数字或下划线组成，字母不区分大小写，变量名最大长度为255个字符。（2）不能用VB的保留字作为变量名。39/59变量及其赋值变量声

19、明：声明变量就是为变量命名及说明数据类型。声明变量的语句格式如下： Dim As ， As 例Dim X As Integer, Y As String X = 10Y = “zhang3”40/59变量赋值-使变量存储数据或修改变量中存储的数据。格式如下： = . = 语句的功能是将赋值号“=”右侧表达式的计算结果赋值（存储）给左侧的变量或对象的属性。具体说明如下：(1) 赋值号左侧只能是变量名或对象属性名的形式。(2) 当赋值号两侧的数据类型不一致时，对于已经声明（用Dim语句）的变量或对象属性，系统自动按变量或对象属性的数据类型转换表达式的值；对于未声明的变量，系统按表达式值的数据类型确

20、定变量的数据类型。41/59 例：变量赋值。 Dim X3 As Integer，Y3 As String X3 = 16.7 X4 = 16.7 Y3 = 16.7 Y4=#2011-10-1# 在VB中，允许一行写多条语句，但语句之间要用半角冒号“：”分隔。例如，本例中的前3行赋值语句可以写成一行：X3 = 16.7：X4 = 16.7：Y3 = 16.7。42/59变量及其赋值 当程序中需要处理多个有联系的数据时，可以用数组减少变量个数。 数组是使用一个名字同时定义多个同类型的变量，每一个变量称为一个数组元素。例Dim Score(99) as Integer 定义数组Score，其含有

21、100个元素，即Score(0), Score(1),，Score(99)43/59表 达 式算术运算：+(加)、(减)、*(乘)、/(除)、Mod(求余数)和(乘方)等，运算优先级别遵循数学中的规定。字符运算：&或+将两个字符串连接成一个字符串。日期运算：主要有如下两种格式。 - ：两个日期相减，得到相隔天数。 ：得到日期n天后或n天前的日期。VB常用基本运算符号有如下几类：44/59表 达 式关系运算：运算结果为逻辑型数据。运算符号有：=(等于)、(不等)、(大于)、=(大于或等于)。逻辑运算：AND(并且)、OR (或者)、NOT(否定)。运算优先级NOT最高，OR最低。标准函数：是程序

22、设计语言提供的内部函数，供人们设计程序时调用。VB常用基本运算符号有如下几类：45/595.分支程序设计 语句的执行顺序与操作的数据和程序的控制结构有关。程序有顺序、分支(选择)和循环(重复)3种控制结构。 顺序结构是按照程序的编写顺序执行的一种控制结构。 语句1语句246/59分 支 结 构分支结构是一种根据条件(逻辑值表达式)确定程序执行取向的控制结构，也称选择结构。 VB有简单分支和多分支两种结构。47/59简单分支结构语句格式1：If Then Else 语句格式2： If Then Else End If表达式可以是关系、逻辑或算术表达式。算术表达式的值0为False，非0为True

23、。True语句序列1False不使用Else短语True表达式语句序列2语句序列1False使用Else短语表达式48/59步骤：启动VB，创建标准EXE工程。设计程序界面。编写求解按钮的Click事件代码。单击标准工具栏中的启动图标，查看程序执行效果。简单分支结构例：求解一元二次方程 ax2+bx+c=0的解。Dim A As Single, B As Single, C As SingleA = Text1.Text : B = Text2.Text : C = Text3.Text If B2 -4*A*C 0 Then Text4.Text = (-B+Sqr(B2-4*A*C)/(2

24、*A) Text5.Text = (-B-Sqr(B2-4*A*C)/(2*A) Text5.Visible = TrueElse Text5.Visible = False If B2-4*A*C = 0 Then Text4.Text = -B/(2*A) Else Text4.Text = 无解 End IfEnd If49/59简单分支结构分支函数：在一些程序中充分利用分支函数iif代替if结构，可以简化程序。格式： IIf(, , )说明：如果表达式的值为True，则IIf函数的值为表达式1的值，否则，函数的值为表达式2的值。例：判断一元二次方程的根的情况：Text4.Text =

25、IIf( B2-4*A*C = 0 , -B/(2*A) ,无解)50/59简单分支结构MsgBox对话框函数在执行程序过程中，经常弹出对话框，根据用户单击对话框上的按钮，程序进行适当的处理。函数格式： MsgBox(, ,)。MsgBox (是否关闭窗口,292, 询问) 292=256+4+32 其中：256 默认第2个按钮 4 使用“是”和“否”两个按钮 32 问号图标例51/59多分支结构多分支可以使用SelectCase多分支语句或If语句的嵌套格式实现，用来进行多种可能取值的判断。52/59多分支结构多分支If语句格式为：If Then ElseIf Then ElseIf The

26、n Else End If表达式1True语句序列1False表达式2语句序列2FalseTrueFalse表达式n语句序列nFalseTrueElse语句序列n+153/59多分支结构多分支Select Case语句:适用于可能出现的多种取值判断,其使用格式如下:Select Case Case Case Case Case Else End Select表达式列表1之一为True语句序列1全为False语句序列2语句序列nCase Else语句序列n+1表达式列表2表达式列表n之一为True之一为True全为False全为False全部为False表达式表达式可以是数值或字符串表达式。执行

27、到Select Case语句时，首先计算表达式的值，然后从Case 开始，将表达式列表i中各个表达式的值与表达式比较。 允许多个比较表达式，之间用逗号“，”分隔 可以使用Is 运算; 可以使用 To 运算。54/596.循环程序设计循环结构又称为重复结构，根据判断条件确定是否重复执行某段程序代码，将重复执行的程序段称为循环体。重复结构可以简化程序，适用于有规律变化的重复计算或操作。循环体的重复执行次数由循环控制条件决定。一般有当型和直到型两种循环结构。55/59循环程序设计For循环是一种当型循环结构，主要用于设计循环步长固定的程序。语句格式：For = To Step Next 循环变量也称

28、循环控制变量。初值、终值和步长都是数值型表达式，它们决定了循环体的执行次数。当型循环首先判断循环条件，如果条件为True，则执行循环体，之后再转而判断条件，重复这个过程；如果条件为False，则终止循环语句，如果第一次判断条件即为False，则直接跳出循环，执行后续语句。 FalseTrue表达式循环体56/59步骤： 1. 启动VB，创建标准EXE工程。 2. 设计程序界面。 3. 编写计算按钮的Click事件代码。 4. 单击标准工具栏上的启动按钮，查看程序的运行效果。循环程序设计例：计算阶乘。Dim M As Long, N As Long, S As LongS = 1N = Text1.Text For M = 1 To N S = S * MNextText2.Text = S 57/59循环程序设计Do While循环也是一种当型循环结构，主要用于设计循环步长不确定的程序。语句格式： Do While LoopDim M As Long, N As Long, S As LongS = 1N = Text1.Text Do While M=N S = S * M :