VisualBasic教案-程序设计基础.ppt

计算机技术基础 IVisual Basic 6.0 第二章 VB程序设计基础 面向对象程序设计基础 VB 语言基础 基本控制结构 常用函数 过程 常用算法 夯实基础 乘胜前进 计算机技术基础 IVisual Basic 6.0 一.面向对象程序设计基础 2. 对象 3. 类 4. VB中的类和对象及其应用 1）窗体和常用控件 2） VB中对象的属性设置 3） VB中对象的事件 4） VB中对象的方法 1. 程序设计方法概述 计算机技术基础 IVisual Basic 6.0 1. 1. 程序设计方法概述程序设计方法概述 2. 2. 对象的概念对象的概念 属性行为对象= 型号 颜色 功率 启动 加速 停止 对象是具有某些特征的具体事物(实体)。 是代码和数据的集合 计算机技术基础 IVisual Basic 6.0 计算机技术基础 IVisual Basic 6.0 *对象的建立和编辑 建立 选定 复制 删除 命名 计算机技术基础 IVisual Basic 6.0 对象的属性、事件和方法 属性 (Property) 事件 (Event) 事件过程（程序）和事件驱动 方法 (Method) -对象的三要素 属性用于描述对象，方法让对象做一些动作， 而对象动作时常会引起事件 3. 3. 类的概念类的概念 类是创建对象实例的模板， 是同种对象的集合与抽象。 抽象 对象1 对象2 对象n 类 汽 车 类 实际上，类是一种新的数据类型； 类的一组属性和方法定义了类的界面，它封装了用于类的全部信息。 计算机技术基础 IVisual Basic 6.0 计算机技术基础 IVisual Basic 6.0 * * 对象和类的关系对象和类的关系 数据操作 帐户类 类是对多个对象的抽象，对象是类的一个实例。 存款、取款、转帐 4. 4. VBVB中的类中的类和和对象对象 标准控 件类 控件 对象 计算机技术基础 IVisual Basic 6.0 窗体和常用控 件 计算机技术基础 IVisual Basic 6.0 窗 体 Form ： 窗体是个特例，它即是类也是对象。 常用控件： 标签 Label 文本框 Textbox 命令按钮 Command Button 1) 窗体和常用控件 计算机技术基础 IVisual Basic 6.0 A. 窗体（Form ） v Name 名称属性 v Caption 标题属性 v Height、Width、Top 和Left 大小位置属性 v BackColor ForeColor 属性 v Pictrue 属性 v MaxButton MinButton 属性 v Enabled 属性 常用属性： 常用事件： Click Dbclick Load 主要方法： Cls Move Print 计算机技术基础 IVisual Basic 6.0 v不能作为输入信息的界面； v一般不需要编写事件过程； v常用属性：Caption，Font， Left，Top等。 B. 标签（Label ） 在窗体中显示某些文本 计算机技术基础 IVisual Basic 6.0 C. 文本框（Text Box ） 常用属性：Text (无Caption) 常用事件：Change，KeyPress ，LostFocus, GotFocus 主要方法：SetFocus 形式： 对象.SetFocus ( 将焦点移到文本框) 文本的输入、编辑和显示 计算机技术基础 IVisual Basic 6.0 D. 命令按钮（Command Button） 常用属性： Caption, Style(0标准 1图形), Picture, ToolTipText（设置当鼠标在控件上停留 时显示的文本） 常用事件：Click 建立实现命令的按钮 计算机技术基础 IVisual Basic 6.0 E. 基本属性 控件的属性和设置是学习VB的主要内容之一 v Name 名称属性 v Caption 标题属性 v Height、Width、Top 和Left 大小位置属性 v Enabled 属性 v Visible 属性 v 控件默认属性 计算机技术基础 IVisual Basic 6.0 2 2）VBVB中对象的属性设置中对象的属性设置 属性是用来描述和反映对象特征的参数。对 象中的数据就保存在属性中。属性设置方法： （1）利用属性框直接设置； （2）在程序代码中通过赋值实现，格式为： 对象.属性属性值 例： label1.caption = “education for all-around development” 例：Caption素质教育 计算机技术基础 IVisual Basic 6.0 3 3）VBVB中对象的事件中对象的事件 事件就是发生在对象上的事情。在VB中，系统为每 个对象预先定义好了一系列的事件。 VB应用程序设计的主要工作就是为对象编写事件过 程中的程序代码。形式如下： Sub 对象名_事件（参数表） 事件过程代码 End Sub 控件是代表一定功能的对象，代码是实现应用程序功 能的具体过程和说明。 计算机技术基础 IVisual Basic 6.0 * *事件驱动程序设计（事件驱动程序设计（1 1） 在传统的面向过程的应用程序中，代码的执行是从 第一行开始，随着程序流执行代码的不同部分。程序执行 的先后次序由设计人员编写的代码决定，用户无法改变。 在VB中，程序等待某个事件的发生，然后执行该事 件过程，之后再等待新事件的发生。这就是事件驱动程序 设计方式。因此，应用程序每次运行时的代码路径可能都 不同。 计算机技术基础 IVisual Basic 6.0 * *事件驱动程序设计（事件驱动程序设计（2 2） VB程序的执行步骤如下： 1) 启动应用程序，装载和显示窗体； 2) 窗体（或控件）等待事件的发生； 3) 事件发生时，执行对应的事件过程； 4) 重复执行步骤 2）和 3），直至End语句。 VBVB是以是以事件驱动事件驱动作为运行机制的新一代可视化程序设计语言作为运行机制的新一代可视化程序设计语言 计算机技术基础 IVisual Basic 6.0 4 4）VBVB中对象的方法中对象的方法 当某个行为作用在对象时，称对象执行了一个方法。 方法定义了一系列的计算步骤。 在VB中，已将一些通用的过程和函数编写好并封装 起来，作为方法供用户直接调用。对象方法的调用格式： 对象.方法 参数名表 其中，若省略了对象，表示为当前对象，一般指窗体。 方法是面向对象的，调用时一定要用对象 。 方法（Method）是在对象上执行指定操作的过程和函数 计算机技术基础 IVisual Basic 6.0 常用方法常用方法PrintPrint 对象. Print Spc(n) | Tab(n) 表达式列表 ; | , 其中： 对象：可以是窗体( Form )、图形框( PictureBox )或 打印机( Printer )，若省略则为窗体。 Spc(n)函数：输出n个空格，可重复使用。 Tab(n)函数：定位于第n列。 表达式列表：若省略则输出空行，多个表达式之间用 空格、逗号、分号分隔，也可出现Spc和Tab函数。 ,标准格式与;紧凑格式 行尾符号(有，；不换行) 计算机技术基础 IVisual Basic 6.0 常用方法常用方法ClsCls Cls方法用于清除运行时 在窗体或图形框中显示的内容： 对象. Cls 注意：1）Cls方法只在运行时起作用， 设计时不清除； 2）Cls方法使用后，CurrentX, CurrentY属性被设置为0。 计算机技术基础 IVisual Basic 6.0 常用方法常用方法MoveMove Move方法用于移动窗体或控件，并可改变其大小： 对象. Move 左边距离 , 上边距离, 宽度, 高度 其中： 对象：除时钟、菜单外的所有控件 ，省略时为窗体。 移动量：以twip为单位， 1twip=1/20点=1/567厘米。 计算机技术基础 IVisual Basic 6.0 二二 . . VBVB程序设计语言基础程序设计语言基础 1. VB语言基本概念 2. 数据类型 3. 常量和变量 4. 表达式 5. 编码规则 计算机技术基础 IVisual Basic 6.0 1. VB语言基本概念 1) 1) 标识符标识符 2) 2) 运算符运算符 计算机技术基础 IVisual Basic 6.0 1) 1) 标识符标识符 标识符是为变量、常量、数据类型、过程、函数和 类定义的名字。规则如下： v必须以字母或汉字开头，后跟字母、数字、下划 线， 中间不能空格； vVB中不区分大小写； v长度不能超过255个字符； v不能和VB中已有的关键字相同。 例如：3xy；y-z; wang ping; Dim等都不可； Cos；sin等也不好，易混淆。 计算机技术基础 IVisual Basic 6.0 2) 2) 运算符运算符 Visual Basic中运算符包括: 赋值运算符 数学运算符 关系运算符 逻辑运算符。 计算机技术基础 IVisual Basic 6.0 A. 赋值运算符 ： 格式： variable = value variable可以是变量、数组的元素、变长数组或运行时可 写的对象的属性；（不能是数值、常量和表达式） value可以是 常量、变量、表达式或函数调用； 赋值号两端数据类型应匹配。 sin(x)=x+y x=y=z=1 （错误） sum=sum+1（常用） 计算机技术基础 IVisual Basic 6.0 算术运算符：, -(负) , * , / （除）, （整除）, Mod（取余）, + , （减） 结合顺序都是从左到右； 可以通过圆括号改变运算优先级和结合顺序。 将数字字符或逻辑型自动转换为数值型。 例：30True （31） （true -1, false 0） B. B. 数学运算符数学运算符 计算机技术基础 IVisual Basic 6.0 字符串运算符： 一行最多写255个字符。 3) 注释有利于程序的维护和调试 注释行以Rem开头，或用“ ”开始直接写在语言后； 也可使用“编辑”工具栏中的“设置注释块”等命令。 4) 尽量少用行号与标号 计算机技术基础 IVisual Basic 6.0 三. 基本控制结构 顺序结构 选择结构 循环结构 其它辅助控制语句 计算机技术基础 IVisual Basic 6.0 1. 顺序结构 赋值语句 人机交互函数和过程 计算机技术基础 IVisual Basic 6.0 A. 表达式类型与变量类型不同时的处理 (1)表达式为数值型而与变量精度不同时，强制转换成左边 变量的精度； n%=3.5 (4) (2)表达式是数字字符串，左边变量是数值类型，自动转换 成数值类型再赋值，但表达式有非数字字符或空串时， 则出错； n%=“123” (123) n%=“1a23” (出错) (3)当逻辑型赋值給数值型时，Ture转换成-1，False转换成 0。反之数值型赋值給逻辑型时，非0转换成True, 0转换成False。 (4)任何非字符类型赋值給字符类型，自动转换成字符类型 以左边变量类型为准 1) 赋值语句 计算机技术基础 IVisual Basic 6.0 (1)赋值号和关系运算符等于号相同，在条件表达式中出现的是等号， 否则是赋值号； (2)赋值号左边只能是变量，不能是常量 常数 符号或表达式； (3)不能在一条语句中，同时給多个变量赋值； Dim x% , y% , z% x = y = z = 1 (4)常用： Sum = Sum + x n = n + 1 B. 应用注意事项 计算机技术基础 IVisual Basic 6.0 2) 人机交互函数和过程 InputBox( )函数： InputBox(提示,标题,默认,x坐标位置,y坐标位置) 例： Dim strName As String * 40, strs1 As String * 40 strs1 = “请输入您的姓名“ + Chr(13) + Chr(10) + “然后单击确定“ strName = InputBox$(strs1, “输入框“, , 100, 100) 提示：不能省 ，为字符串表达 式。 默认：字符串 表达式，无输入 时以此为输入内 容 计算机技术基础 IVisual Basic 6.0 MsgBox( )函数和MsgBox过程： 变量%=MsgBox(提示,按钮,标题) MsgBox 提示,按钮,标题 例：MsgBox (“脚数小于头数的倍数，重新输入”) 计算机技术基础 IVisual Basic 6.0 “按钮”设置值及意义： 0 只显示“确定”按钮 1 显示“确定”“取消”按钮 2 显示“终止”“重试”“忽略”按钮 3 显示“是”“否”“取消”按钮 4 显示“是”“否”按钮 5 显示“重试”“取消”按钮 16 关键信息图标 红色STOP标志 32 询问信息图标？ 48 警告信息图标！ 64 信息图标i 1确定 2取消 3终止 4 重试 5忽略 6是 7否 MsgBox函数返回所选按钮整数值的意义 ： 资料 计算机技术基础 IVisual Basic 6.0 2. 选择结构 Select Case 语句 条件函数 If 条件语句 计算机技术基础 IVisual Basic 6.0 1) If条件语句 If Then 语句(单分支结构): 1) IfThen End If 2) IfThen 计算机技术基础 IVisual Basic 6.0 1）IfThen Else End If If Then Else 语句(双分支结构)： 2) IfThen Else 计算机技术基础 IVisual Basic 6.0 If Then ElseIf 语句(多分支结构) If 语句的嵌套 IfThen ElseIfThen Else End If 计算机技术基础 IVisual Basic 6.0 2) Select Case 语句 Select Case 变量或表达式 Case 表达式列表 1 Case 表达式列表 2 Case Else End Select “变量或表达 式”：可以是 数值型或字 符串表达式 “表达式列表I”：与“ 变量或表达式”的类型 必须相同，可以是以下 四者之一： 1.表达式 2.一组用逗号分隔的枚 举值 3.表达式1 to 表达式2 4.Is关系运算符表达式 计算机技术基础 IVisual Basic 6.0 3) 条件函数 # I I f ( ) 函数: I I f (表达式，当条件为True时的值，当条件为False时的值) 如：求x、y中大的数，放在Tmax变量中，语句为， Tmax = I I f ( xy,x,y) # Choose ( ) 函数： Choose ( 整数表达式，选项列表) 如：根据Nop是14的值，转换成 运算符的语句为， Op = Choose ( Nop, ) 计算机技术基础 IVisual Basic 6.0 3. 循环结构 For 循环语句： For 循环变量 初值 to 终值 Step 步长 Exit For Next 循环变量 循环体 计算机技术基础 IVisual Basic 6.0 Do Loop 循环语句 ： Do While /Until Exit Do Loop Do Exit Do Loop While /Until 循环的嵌套 While-条件为真 时执行循环体 ； Until -条件为假 时执行循环体 前测型 后测型 计算机技术基础 IVisual Basic 6.0 计算机技术基础 IVisual Basic 6.0 4. 其它辅助控制语句 Go To 语句： 形式：GO To 标号/行号 Exit 语句： Exit For ( Do/Sub/Function) End 语句: End If(Select/While/Type/) With 语句: With 对象 语句块 End With With MyLabel .Height=2000 .Width=2000 .FontSize=22 .Caption=“This is MyLabel” End With 计算机技术基础 IVisual Basic 6.0 四. 常用函数 数学函数 字符串函数 转换函数 日期函数 其他函数 计算机技术基础 IVisual Basic 6.0 Sin(x), Cos(x), Tan(x), Atan(x), Log(x), Exp(x), Sqr(x), Abs(x) Hex$(x), Oct$(x), Rnd(x), Int(x), Fix(x) 注意：1) Sin(x), Cos(x), Tan(x)的自变量及Atan(x)的返回值为弧度； 2) Hex$(x), Oct$(x) 分别以字符串的形式返回x的十六和八 进制值，x的值带小数时采取四舍五入的方法先变为整数； 3) 凡函数名后有$符号的，表示函数返回值为字符串数； 4) 取整函数Int(x),Fix(x)的异同： 去掉小数返回整数， 当x为负数时， Int(x)返回小于负数的负整数， Fix(x)返回大于负数的负整数。 1. 数学函数 计算机技术基础 IVisual Basic 6.0 5)随机函数Rnd(x),产生一个大于或等于0小于1的单精度数。 常用形式：Int(Rnd*范围+基数） -产生一定范围的随机整数 例如：A.产生30，50之间的随机整数（包括30，50） x = Int(Rnd*21+30) B. 产生=1且=6的随机整数 Myvalue = Int(Rnd*6+1) 也可写成：Int(upper-lower+1)*Rnd+lower) upper : 为随机整数上限 lower ：为随机整数下限 注意：包含上下限的值。为什么？ 计算机技术基础 IVisual Basic 6.0 1). InStr(起始位置，字符串1，字符串2，比较类型) 查找，返回字符串2在字符串1中第一次出现的位置； 比较类型：0或缺省区分大小写，1不区分 2). LTrim$(字符串) 3). RTrim$(字符串) 4). Trim(字符串) 去掉字符穿左、右、左右空格 5). Left$(字符串，个数) 6). Right$(字符串，个数) 取出字符串左边、右边指定个数的字符 7). Mid$(字符串，起始位置,个数 ) - 取出指定个数的字符 8). Len(字符串和字符串变量) - 一个汉字和一个字母一样为1 2. 字符串函数 计算机技术基础 IVisual Basic 6.0 举例：表4-8 P88 9). Ucase$(字符串) - 小写转大写，其它字符不变 10). Lcase$(字符串) - 大写转小写，其它字符不变 11). Space$(个数) - 返回指定个数的空字符串 12). String(个数，字符) - 返回重复字符的字符串 当“字符”为串时，用其第一个字符 计算机技术基础 IVisual Basic 6.0 Str$(数值表达式) Val(字符串) Chr(66) “B“ Asc (“B“) 66 Asc(Chr(99) 99 Chr(Asc(“K“) “K“ Ucase$(“abcdefg“) “ABCDEFG“ Chr$(N) ASCII码值转换成字符 Asc(C)字符转换成ASCII码值 例如： 3. 转换函数 计算机技术基础 IVisual Basic 6.0 4. 日期函数 Time返回系统时间、Date返回系统日期、 Now返回系统日期和时间 Hour 返回时间值 、Day返回日期值、 DateAdd（要增减日期形式，增减量，要增减的日期变量） 如：DateAdd(“ww”,2,#2/14/2000#) 结果为：#2/28/2000# DateDiff（要间隔日期形式，日期1，日期2） 如 求离你毕业还有多少天： DateDiff（“d”,date, #07/01/2007# ）假定2007年毕业 日期形式： yyyy 年 、 q 季 、 m 月、y 一年的天数、 d 日、 w 一周的日数、 ww 星期 、 h 时、 n 分、 s 秒 计算机技术基础 IVisual Basic 6.0 1) 判断函数： Iff(表达式，真部分，假部分) 2) 格式输出函数 Format$(表达式,格式字符串) 数值格式化； 日期和时间格式化；字符串格式化 3) Shell( )函数 调用应用程序 Shell(命令字符串,窗口类型) 窗口类型值为1表示正常窗口， 缺省窗口最小化为图标 5. 其它函数 计算机技术基础 IVisual Basic 6.0 Shell函数举例: i = Shell(“c:windowscalc.exe“，1) j= Shell(“c:“, 1) 计算机技术基础 IVisual Basic 6.