VB实例化教学.ppt

VB实例化教学实例化教学 主讲人：浙江省江山中学主讲人：浙江省江山中学 朱刚忠朱刚忠 ：：349526246 :13735055212高中信息技术高中信息技术学考选考要求学考选考要求册序单元课 序目 录课时备注算法与程序设计第一单元：算法及VB语言基础第一课算法的基本概念及常用表示方法1学考+选考第二课面向对象程序设计的基本思想与方法1学考+选考第三课类、对象、属性、方法、事件和事件处理的概念及应用1学考+选考第四课VB基本数据类型、常量、变量与数组1学考+选考第五课VB各类基本运算、表达式与常用的标准函数1学考+选考第六课常用VB语句1学考+选考第七课过程与自定义函数1选考第二单元：算法及程序实现第八课枚举算法及程序实现2学考+选考第九课解析算法及程序实现2学考+选考第十课排序算法及程序实现①冒泡排序②选择排序4学考+选考第十一课查找算法及程序实现①顺序查找②对分查找4学考+选考第十二课递归算法1选考第十三课VB访问Access数据库①通过ADO对象连接数据库②通过Recordset对象获取数据表中的数据4选考一、一、VB简介简介Visual Basic Visual Basic 是一种由是一种由是一种由是一种由 Microsoft Microsoft 公司开发公司开发公司开发公司开发的结构化的、模块化的、的结构化的、模块化的、的结构化的、模块化的、的结构化的、模块化的、面向对象面向对象面向对象面向对象的、包含协的、包含协的、包含协的、包含协助开发环境的助开发环境的助开发环境的助开发环境的事件驱动事件驱动事件驱动事件驱动为机制的为机制的为机制的为机制的可视化可视化可视化可视化程程程程序设计语言。

在 Visual Basic 中，可通过属性属性属性属性、方法方法方法方法和事件事件事件事件来说明和衡量一个对象的特征事件（Event）：事件是指发生在某一对象上的事情事件又可分为鼠标事件和键盘事件例如，在命令按钮（Command Button）这一对象上可能发生鼠标单击（Click）、鼠标移动（Mouse Move）、鼠标按下（Mouse Down）等鼠标事件，也可能发生键盘按下（Key Down）等键盘事件总之，事件指明了对象“什么情况下做？”，常用于定义对象发生某种反映的时机和条件方法（Method）：方法是用来控制对象的功能及操作的内部程序例如，人具有说话、行走、学习、睡觉等功能，在visual Basic中，对象所能提供的这些功能和操作，就称作“方法”以窗体为例，它具有显示（show）或隐藏（hide）的方法总之，方法指明了对象“能做什么？”，常用于定义对象的功能和操作属性（Property）：属性是指用于描述对象的名称、位置、颜色、字体等特征的一些指标可以通过属性改变对象的特性有些属性可以在设计时通过属性窗口来设置，不用编写任何代码；而有些属性则必须通过编写代码，在运行程序的同时进行设置。

可以在运行时读取和设置取值的属性成为读写属性，只能读取的属性成为只读属性总之属性指明了对象“是什么样的？”，常用于定义对象的外观有关有关有关有关VBVB的重要阅读材料的重要阅读材料的重要阅读材料的重要阅读材料对象（Object）：Visual Basic 具有“面向对象”的特性，Visual Basic 应用种程序的基本单元是对象，用 Visual Basic 编程就是用“对象”组装程序这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定因此，“对象”可以被看做 Visual Basic 程序设计的核心在 Visual Basic程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象在 Visual Basic程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象类（Class）：在 Visual Basic 中，对象是由类创建的，因此对象可以说是类的具体实例，这就好比是蛋糕和做蛋糕的模具之间的关系。

各种不同的对象分属于各种不同的种类同一类对象可能具有一些不同的特征（或是说同一类对象不一定具有完全相同的特性）；具有某些相同的特性的对象，不一定是同一类对象，这就好比是人和猴子虽然都有身高、性别等特征，但二者之间还存在着智商、语言等特性差异，这两个对象之间的特性相差很多，根本就不能算是同一类对象而男人和女人，虽然有着性别、生理等方面的差异，但他们绝大部分特性相同，可以算是同一种类由此，可以归结为一句话：同一类对象的绝大部分特性相同有关有关有关有关VBVB的重要阅读材料的重要阅读材料的重要阅读材料的重要阅读材料vb中常量分为三种，一种是文字常量，一种是符号常量，另一种是逻辑常量1·文字常量：vb文字常量分为两种，即字符串和数值 1）字符串常量：字符串常量有字符组成，可以是除双引号和回车符之外的任何chrII字符 2）数值常量：数值常量共有4中表示方式，即整数型·长整数型·货币型数和浮点数 （1）整形数：有3种形式，即十进制·十六进制和八进制 十进制数：0-9组成，取值范围-32768--32767 十六进制数：0-9及A-F组成，前面&H开头，取值范围&H0--&HFFFF。

八进制数：0-7组成，前面&或&0开头，取值范围&00--&0177777 （2）长整形数：也有三种 十进制数：0-9组成，取值范围-32768--32767 十六进制数：0-9及A-F组成，前面&H开头，以&结尾，取值范围&H0--&HFFFF八进制数：0-7组成，前面&或&0开头，以&结尾，取值范围&00--&0177777 （3）货币型：也称定点数 （4）浮点数：也称实数，分为单精度浮点数和双精度浮点数 浮点数：由尾数·指数符号和指数3部分组成 注：类型说明符 %整数 &长整数 !单精度浮点数 #双精度浮点数 @货币型 $字符串型 2·符号常量 1）在vb中，可以定义符号常量，用来代替数值或字符串一般格式为： const 常量名=表达式[,常量名=表达式]...... 2）在使用符号常量时，应注意以下几点： （1）在声明符号常量时可以在常量名后面加上类型说明符，例如： const one&=1 const two&=2 （2）当程序引用符号常量时，通常省略类型说明符 （3）类型说明符不是符号常量的一部分，定义符号常量后，再定义变量时要慎重。

3·逻辑常量：只有两种，即true和false有关有关有关有关VBVB的铺垫知识（的铺垫知识（的铺垫知识（的铺垫知识（常量））））1·命名规则 变量是一个名字，给变量命名时应遵循以下规则： （1）名字只能由字母、数字、下划线组成 （2）名字的第一个字母必须是英文字母，最后一个字符可以是类型说明符 （3）名字的有效字符是255个 （4）不能用vb的保留字作为变量名，但可以把保留字嵌入便两中；同时变量名也不能是末尾带有类型说明符的保留字 （5）vb不区分变量名和其他名字中字母的大小写，习惯上，符号常量一般用大写字母定义有关有关有关有关VBVB的铺垫知识（的铺垫知识（的铺垫知识（的铺垫知识（变量））））可以说可以说可以说可以说变量变量变量变量是程序在内存开辟的一定大小的是程序在内存开辟的一定大小的是程序在内存开辟的一定大小的是程序在内存开辟的一定大小的存储存储存储存储空间，用来保存一个空间，用来保存一个空间，用来保存一个空间，用来保存一个常量常量常量常量VB允许不定义变量就使用，但我们要养成先定义变量再使用，可以使用语句强制变量要先定义再使用：option explicitoption explicit 2·变量的类型和定义 1）用类型说明符来标示。

2）在定义变量时指定其类型 定义变量的格式：Dedare 变量名 as 类型 这里的Dedare可以是dim、Public、static as是关键字类型”可以是基本数据类型或用户定义类型 ①dim：用于在标准模块、窗体模块中定义变量和数组 用as string可以定义变长字符串变量，也可以定义定长字符串变量变长字符串变量本身的长度取决于赋给它的字符串常量的长度，定长字符串变量的长度通过加上“*数值”来确定注意：当在一个dim语句中定义多个变量时，每个变量都要用as子句声明其类型，否则该变量被看做是变体类型 ②static：用于在过程中定义静态变量及数组变量与dim不同，如果用static定义了一个变量，则每次引用该变量时，其値会继续保留而当引用dim定义的变量时，变量值会被重新设置（数值变量重新设置为0，字符变量被设置为空）通常把由dim定义的变量称为自动变量，而把static定义的变量称为静态变量 ③Public：用来在标准模块中定义全局变量或数组3）用DefType语句定义 ①用DefType语句可以在标准模块·窗体模块的声明部分定义变量，一般格式为：DefType 字母范围 ②Type是类型标志，可以是Int ·Lng ·Sng ·Dbl ·Cur ·Str ·Byte ·Bool ·Date ·Obj ·Var，分别表示整形·长整形·单精度·双精度·货币型·字符串型·字节型·布尔型·日期型·对象型·变体型。

注意：Def和类型标志之间不要有空格字母范围”用“字母—字母”形式表示 3·记录类型变量 在一般情况下，记录类型应在标准模块中定义；如果在窗体模块中定义，则必须在“Type”关键字前面加上“Private”有关有关有关有关VBVB的铺垫知识（的铺垫知识（的铺垫知识（的铺垫知识（变量））））二、赋值语句二、赋值语句赋值是把常量放入一个变量中赋值是把常量放入一个变量中或把表达式运算后得到的值放或把表达式运算后得到的值放入一个变量中入一个变量中A=100B=2000C=558.75D=100+400E=“I LOVE YOU”F=trueA=A+1 ’累加语句赋值是把常量放入一个对象的赋值是把常量放入一个对象的属性中或把表达式运算后得到属性中或把表达式运算后得到的值放入一个对象的属性中的值放入一个对象的属性中变量＝表达式变量＝表达式变量＝表达式变量＝表达式Form1.caption=“运动的小球”Command1.caption=“开始”Shape1.shape=3 ‘圆Timer1.enbled=true对象对象对象对象. .属性名＝属性值属性名＝属性值属性名＝属性值属性名＝属性值VB表达式中出现的运算符及其优先级顺序算术>比较>逻辑算术比较逻辑指数运算(^)相等(=)不等于(<>)大于(>)大于或等于(>=)小于或等于(<=)Notandor负数(-)乘除(* /)整除(\)求模(mod)加减(+ －)VB常用标准函数函数名函数名函数名函数名功能功能功能功能示例示例示例示例备注备注备注备注Int(x)Int(x)返回不大于自变量的最大整数返回不大于自变量的最大整数返回不大于自变量的最大整数返回不大于自变量的最大整数Int(-2.9)=-3 int(2.9)=2Int(-2.9)=-3 int(2.9)=2Int(5)=5Int(5)=5注意两者的区别注意两者的区别注意两者的区别注意两者的区别Fix(x)Fix(x)去掉一个浮点数的小数部分去掉一个浮点数的小数部分去掉一个浮点数的小数部分去掉一个浮点数的小数部分, ,保留其整数部保留其整数部保留其整数部保留其整数部 Fix(-2.9)=-2 fix(2.9)=2Fix(-2.9)=-2 fix(2.9)=2Fix(5)=5Fix(5)=5asc(x)asc(x)返回字符串中第一个字符的返回字符串中第一个字符的返回字符串中第一个字符的返回字符串中第一个字符的ascIIascII码码码码 asc(‘A’)=65 asc(‘a’)=97asc(‘A’)=65 asc(‘a’)=97Asc(‘0’)=48Asc(‘0’)=48互为反函数互为反函数互为反函数互为反函数Chr(x)Chr(x)把值转换为相应的把值转换为相应的把值转换为相应的把值转换为相应的ascIIascII字符字符字符字符 chr(65)=‘A’ chr(97)=‘a’chr(65)=‘A’ chr(97)=‘a’chr(48)=‘0’chr(48)=‘0’Str(x)Str(x)把数值转换为一个字符串把数值转换为一个字符串把数值转换为一个字符串把数值转换为一个字符串（数值有符号位）（数值有符号位）（数值有符号位）（数值有符号位）Str(123.45)=‘ 123.45)Str(123.45)=‘ 123.45)A=10 str(a)=‘ 10’A=10 str(a)=‘ 10’正数转换后左边会出正数转换后左边会出正数转换后左边会出正数转换后左边会出现一个空格现一个空格现一个空格现一个空格Sqr(x)Sqr(x)返回自变量返回自变量返回自变量返回自变量x x的平方根，自变量必须大于或的平方根，自变量必须大于或的平方根，自变量必须大于或的平方根，自变量必须大于或等于等于等于等于0 0Sqr(4)=2 Sqr(4)=2 sqr(2)=1.414….sqr(2)=1.414….Sqr(-1)Sqr(-1)运算出错运算出错运算出错运算出错注意值存储变量类型注意值存储变量类型注意值存储变量类型注意值存储变量类型为实数型为实数型为实数型为实数型RndRnd（）（）（）（）产生一个产生一个产生一个产生一个0~10~1之间的单精度随机数之间的单精度随机数之间的单精度随机数之间的单精度随机数常与常与常与常与RandomizeRandomize语句语句语句语句配合使用配合使用配合使用配合使用Len(Len(字符串字符串字符串字符串) )Len(Len(变量变量变量变量) )测试字符串的长度测试字符串的长度测试字符串的长度测试字符串的长度测试变量的存储空间测试变量的存储空间测试变量的存储空间测试变量的存储空间Len(‘abc’)=3 len(‘Len(‘abc’)=3 len(‘你好你好你好你好’ ’)=2)=2A=10 len(str(a))=3A=10 len(str(a))=3一个汉字长度为一个汉字长度为一个汉字长度为一个汉字长度为1 1MidMid（字符串，（字符串，（字符串，（字符串，p p，，，，n n））））在字符串中从第在字符串中从第在字符串中从第在字符串中从第P P个字符开始，向后截取个字符开始，向后截取个字符开始，向后截取个字符开始，向后截取n n个字符（个字符（个字符（个字符（P>0P>0，，，，n≥0n≥0）。

Mid(‘abcdefg’,2,3)=‘bcd’Mid(‘abcdefg’,2,3)=‘bcd’在VB内部提供了大量函数，这些函数有些是通用的有些则与某种操作有关的大体分成五类，分别是：转换函数、数学函数、日期函数、时间函数和随机函数 赋值语句例子赋值语句例子A=a+1 ‘累加语句，每执行一次变量A的值增加1B=b+10 ‘同样，该语句每执行一次，变量B的值增加10牢记：变量最终是获得一个常量值，表达式牢记：变量最终是获得一个常量值，表达式牢记：变量最终是获得一个常量值，表达式牢记：变量最终是获得一个常量值，表达式“ “＝＝＝＝” ”右边不是常量则运算成常量右边不是常量则运算成常量右边不是常量则运算成常量右边不是常量则运算成常量例例例例1:1:走光了走光了走光了走光了对象名对象名对象名对象名. .属性名＝表达式属性名＝表达式属性名＝表达式属性名＝表达式变量＝表达式变量＝表达式变量＝表达式变量＝表达式定时器对象定时器对象 timer定时器的两个重要属性及事件1、enabled 是否有效 2、inteval 时间间隔 定时器只有一个事件timer定时器对象一旦有效定时器对象一旦有效定时器对象一旦有效定时器对象一旦有效(enabled(enabled属性值为属性值为属性值为属性值为true)true)，，，，它就会以它就会以它就会以它就会以intervalinterval指定的时间间隔自动运行，间隔为指定的时间间隔自动运行，间隔为指定的时间间隔自动运行，间隔为指定的时间间隔自动运行，间隔为0 0，则定时器停止，则定时器停止，则定时器停止，则定时器停止Private Sub Timer1_Timer() Shape1.Left = Shape1.Left - 100End Sub‘timer1一旦有效，则对象对象对象对象shape1shape1就会以一定的时间间隔往左移动就会以一定的时间间隔往左移动就会以一定的时间间隔往左移动就会以一定的时间间隔往左移动100100If 语句语句小球碰到边框弹回来，如何实现？用条件语句用条件语句用条件语句用条件语句在左移动过程中如果碰到左边框，那么不能再向左而要向右移动块if语句的格式If 条件判断 then 条件判断成立要让它做的事Else 条件判断不成立要让它做的事End if行if语句的格式If 条件判断 then 条件判断成立要让它做的事 Else 条件判断不成立要让它做的事例例例例2:2:乒乓乒乓乒乓乒乓循环语句－－循环语句－－for/next现实生活中我们会重复做某件事，比如你无聊时会不断地画圆圈、画直线；每个星期重复一次功课表；上学的日子早上6：20分起床，7：50第一节课，11：50开始吃饭，。

circle x,y,r,rgb(255,0,0) ‘在窗体中画一个圆心坐标为x,y处半径为r的红色圆circle 500,1000,100,rgb(255,0,0) ‘在窗体中画一个圆心坐标为500，1000处半径为100的红色圆例例例例3 3：质数表、水仙花数：质数表、水仙花数：质数表、水仙花数：质数表、水仙花数例：随机产生50个1－100之间不同的整数循环语句－－循环语句－－for/next现实生活中我们会重复做某件事，比如你无聊时会不断地画圆圈、画直线；每个星期重复一次功课表；上学的日子早上6：20分起床，7：50第一节课，11：50开始吃饭，例：小学数学出题系统控件数组的操作控件数组的操作控件数组的操作控件数组的操作循环语句－－循环语句－－do while/loop要实现For循环，需要有一个很重要的前提，那就是已经循环的初值、终值与步长，但有时我们并不知道初值、终值与步长是多少，这时利用for循环来达成目标就有点困难了Do while/loop当循环或条件循环可以实现这种情况例例例例5 5：对分查找：对分查找：对分查找：对分查找VB中几个算法中几个算法1、枚举算法、枚举算法2、解析算法、解析算法3、排序（冒泡排序、选择排序）、排序（冒泡排序、选择排序）4、查找（顺序查找、对分查找）、查找（顺序查找、对分查找）5、递归、递归例：循环例：循环求最大公约数求最大公约数求最大公约数求最大公约数递归算法递归算法1 1、文本文件、文本文件、文本文件、文本文件VB操作文件操作文件2 2、数据库文件、数据库文件、数据库文件、数据库文件。