1VB程序设计基础.ppt

《1VB程序设计基础.ppt》由会员分享，可在线阅读，更多相关《1VB程序设计基础.ppt（60页珍藏版）》请在三一办公上搜索。

1、Visual Basic程序设计基础,【考点一】窗口,一、标题栏和菜单栏 1.标题栏标题栏是屏幕顶部的水平条，它显示的是应用程序的名字。2.菜单栏在标题栏的下面是集成环境的主菜单。二、工具栏Visual Basic 6.0提供了4种工具栏，包括编辑、标准、窗体编辑器和调试，并可根据需要定义用户自己的工具栏。,【考点一】窗口,考查一些识记的东西，一般包括设计器窗口、属性窗口、工程资源管理器窗口、工具箱窗口、代码窗口和立即窗口。【经典试题】（2008-09-11）在设计窗体时双击窗体的任何地方，可以打开的窗口是（）。A）代码窗口 B）属性窗口C）工程资源管理器窗口 D）工具箱窗口,【考点二】程序的

2、保存和装入,【考点内容】一、保存程序Visual Basic应用程序可以用4种类型的文件保存。第一类是单独的窗体文件，扩展名为.frm;第二类是公用的标准模块文件，扩展名为.bas；第三类是类模块文件，扩展名为.cls(本书不涉及类模块文件)；第四类是工程文件，这种文件由若干个窗体和模块组成，扩展名为.vbp。,【考点二】程序的保存和装入,【经典试题】（2008-04-11）以下叙述中错误的是（）。A）标准模块文件的扩展名是.basB）标准模块文件是纯代码文件C）在标准模块中声明的全局变量可以在整个工程中使用D）在标准模块中不能定义过程,【考点三】常量和变量,【考点内容】一、常量Visual

3、Basic中的常量分为两种，一种是文字常量，一种是符号常量。二、变量1.命名规则变量是一个名字，给变量命名时应遵循以下规则：(1)名字只能由字母、数字和下划线组成；(2)名字的第一个字符必须是英文字母，最后一个字符可以是类型说明符；(3)名字的有效字符为255个；(4)不能用Visual Basic的保留字作变量名，但可以把保留字嵌入变量名中；同时，变量名也不能是末尾带有类型说明符的保留字。,数据类型,标准数据类型,返回,用户自定义数据类型 一组不同类型变量的集合。相当于C语言中的结构类型；Pascal中的记录类型。1.自定义类型的定义 形式如下：Type 自定义类型名元素名(下标)As 类型

4、名 元素名(下标)As 类型名 End Type 例如以下定义了一个有关学生信息的自定义类型：Type StudType No As Integer 学号 Name As String*20 姓名 Sex As String*1 性别 Total As Single 总分 End Type,元素名：表示自定义类型中的一个成员。下标：表示是数组。类型名：为标准类型。,注意：(1)自定义类型一般在标准模块(.BAS)中定义，默认是Public；在窗体必须是Private。(2)自定义类型中的元素类型可以是字符串，但应是定长字符串。(3)不要将自定义类型名和该类型的变量名混淆，前者表示了如同Inte

5、ger、Single等的类型名，后者VB根据变量的类型分配所需的内存空间，存贮数据。(4)自定义类型一般和数组结合使用，简化程序的编写。2自定义类型变量的声明和使用(1)声明形式：Dim 变量名 As 自定义类型名 例 Dim Student As StudType(2)引用 形式：变量名.元素名 例 表示Student变量中的姓名，第4门课程的成绩，则表示如下：Student.Name，Student.Mark(4)可以用with使程序简化 with student.no=1057.name=“张三”.sex=“男”end with,变量与常量,一.变量和常量 变量：在程序运行中其存储的值可

6、以改变。常量：在程序运行中其值不可以改变。命名规则：1.以字母或汉字开头，后可跟汉字、字母、数字或下划线组 成，长度小于等于255个字符；2.不要使用VB中的关键字；3.VB中不区分变量名的大小写.4.为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。x1 x xm lng_o intons,下列变量名是否正确：b+y 6yu cheng xu dim,不允许出现加号,数字不可以开头,不允许出现空格,Vb 中的关键字,二.变量声明 1.用Dim语句显式声明变量 形式:Dim 变量名 AS 类型 As类型：可以省略，省略为变体型 例 Dim iCount As integ

7、er,sAllsum As single 等价于 Dim iCount%,sAllsum!对于字符串 根据其存放字符串长度是否固定：dim 字符串变量名 As String(长度不固定)dim 字符串变量名 As String*字符数(长度固定)例：dim str as string dim str as string*47,就近原则：Dim I,J As Integer，则J为整型，而I则为变体型。,2.隐式声明 未进行上述的声明而直接使用,其类型为 Variant 类型 建议不使用.注意:在通用声明处加 Option Explicit 语句来强制显式声明变量。二、变体型变量1）用 dim

8、x as variant2）省略类型 dim x,三.常量1.直接常量 6、78&、234.8，&HABCD2.用户声明常量 形式：Const 常量名 AS 类型=表达式 省略 AS 类型,常量的类型由表达式值的类型决定 为使与变量名区分，一般常量名使用大写字母例 Const MAX as integer=100 Const MAX=100 Const MAX%=100 常量一旦声明，在其后的代码中只可以引用，不能改变，即只能出现在赋值号右边不可以出现在其左边,3.系统提供的常量 系统定义常量位于对象库中,可通过“对象浏览器”查看.例:vbRed vbMinimized、vbCrLf等 前面两

9、个字母代表对象在哪个对象库中 vb：表示VB和VBA中的常量 Xl：表示EXCEL中的常量 db：表示Date Access Object库中的常量,【考点三】常量和变量,2.变量的类型和定义任何变量都属于一定的数据类型，包括基本数据类型和用户定义的数据类型。在Visual Basic中，可以用下面几种方式来规定一个变量的类型：(1)用类型说明符来标识。(2)在定义变量时指定其类型(3)用DefType语句定义(4)用类型说明符定义的变量，在使用时可以省略类型说明符。,【考点三】常量和变量,三、变体类型变量1.Variant变量的定义Variant变量可以用普通数据类型变量的格式定义，也可以默

10、认定义2.Variant变量值的内部表示Variant变量所存放的值都有一个内部表示，在执行比较等操作时，Variant变量根据其内部表示确定如何操作。向Variant变量赋值时，Visual Basic以最紧凑(需最小存储空间)的表示方式存储该值，并可根据需要改变表示方式。3.Variant变量中的数值在Variant变量中存放数值时，Visual Basic以尽量紧凑的方式存储。,【考点三】常量和变量,4.Variant变量中的字符串在对存放字符串的Variant变量进行操作时可能会产生歧义。当用“+”运算符对两个Variant变量进行运算时，如果两个变量都是数值，则执行数值相加运算；如果

11、两个变量中存放的都是字符串，则执行字符串连接操作。如果一个变量中是数值而另一个变量中是字符串，则情况就复杂了。Visual Basic先试着将字符串转换为数值，如果转换成功则进行相加运算，不成功则把另一个数值转换成字符串，然后对两个字符串进行连接，形成一个新的字符串。,【考点三】常量和变量,5.Variant变量中的空值(Empty)：Variant变量在被赋值前为空值(内部表示为Empty或0)，它不同于数值0，不同于空字符串()，也不同于Null(见下)。通过IsEmpty函数可以测试一个变量自建立以来是否被赋过值。,【考点三】常量和变量,6.Variant变量中的Null值。Varian

12、t变量可以取一个特殊值Null，该值通常在数据库应用程序中用来指出未完成或漏掉的数据。Null值具有以下一些特性；(1)“蔓延性”。如果表达式中任一部分为Null，则整个表达式的值即为Null。(2)如果向函数传送Null、值为Null的Variant变量或结果为Null的表达式，则会使大多数函数返回Null值。(3)Null值会在返回Variant变量的内部函数中蔓延。,【考点三】常量和变量,【考点分析】考查命名规范、定义的关键字 Dim、变量的类型、使用前是否定义等。【经典试题】(2009-03-11)执行语句 Dim X,Y As Integer 后,A)X和Y均被定义为整型变量B)X和

13、Y均被定义为变体类型变量C)X被定义为整型变量,Y被定义为变体变量D)X被定义为变体类型变量,Y被定义为整型变量,【考点三】常量和变量,（2008-09-12）若变量a 未事先定义而直接使用（例如：a=0），则变量a 的类型是（）。A）Integer B）String C）Boolean D）Variant,【考点三】常量和变量,（2008-09-13）为把圆周率的近似值3.14159 存放在变量pi 中，应该把变量pi 定义为（）。A）Dim pi As Integer B）Dim pi(7)As IntegerC）Dim pi As Single D）Dim pi As Long（2008

14、-04-13）以下选项中，不合法的Visual Basic 的变量名是（）。A）a5b B）_xyz C）a_b D）andif,【考点四】运算符与表达式,一、算术运算符1.幂运算2.浮点数除法与整数除法3.取模运算4.算术运算符的优先级5.字符串连接,运算符和表达式,一.运算符 1.算术运算符 例：5+10 mod 10 9/3+2 2 结果：,Ia=3,10,注意：算术运算符两边的操作数应该是数值型，若是数字 字符或逻辑型则自动转换成数值型后在运算 50-false+true=50-0+(-1)=49 66+”6”=72,【考点四】运算符与表达式,二、关系运算符与逻辑运算符1.关系运算符2

15、.逻辑运算符,3关系运算符 将两个操作数进行大小比较,结果为逻辑量。字符串比较,则按字符的ASCII码值从左到右一一比较,直到出现不同的字符为止.。例：ABCDE ABRA 结果为 False,男字 女字 按汉字的拼音字母比较,关系运算符优先级相同,汉文字符大于西文字符,Like运算符与通配符结合在一起使用，用于模糊查询。通配符“？”：任意单一字符；“*”：零个或多个字符；“#”任何一个数字；！字符列表：不在字符串列表中的任何单一字符。找姓名变量中姓张的学生：姓名like”张*”例：找分数为90分以上的学生包括90分,4.逻辑运算符 将操作数进行逻辑运算，结果是逻辑值 条件表达式1 And 条

16、件表达式2 条件表达式均为T 结果为T 条件表达式1 Or 条件表达式2 条件表达式有一个T 结果为T,例：用人单位招聘秘书：年龄小于40岁，女性，学历专科或本科 年龄40 性别=“女”(学历=“专科”学历=“本科”)And And Or考虑：若分别写成：年龄40 And 性别=“女”And(学历=“专科”And 学历=“本科”)年龄40 Or 性别=“女”Or(学历=“专科”Or 学历=“本科”)例：表示算术表达式：正确的VB表达式：3=x And x=7 错误的VB表达式：3=x=7 或 3=x Or x=7,比a小，比b大 用 Or,a小数,b大数,a小数,b大数,比a大，比b小 用 A

17、nd,【考点四】运算符与表达式,三、表达式的执行顺序。一个表达式可能含有多种运算，计算机按一定的顺序对表达式求值。一般顺序如下：(1)首先进行函数运算；(2)接着进行算术运算，其次序为：幂()取负(-)乘、浮点除(*、/)整除()取模(Mod)加、减(+、-)连接(&)(3)然后进行关系运算(=、=)；(4)最后进行逻辑运算，顺序为：NotAndOrXorEqvImp,二.表达式 1.组成 变量、常量、函数、运算符和圆括号 2.书写规则（1）运算符不能相邻。例a+-b是错误的。（2）乘号不能省略。例x 乘以y 应写成：x*y（3）括号必须成对出现，均使用圆括号。（4）表达式从左到右在同一基准上

18、书写，无高低、大小。3.不同数据类型的转换 运算结果的数据类型向精度高的数据类型靠.Integer=字符运算符关系运算符逻辑运算,注意:最好对表达式加上圆括号 若选拔优秀学生的条件为：年龄小于19岁，三门课总分高于285，其中一门课为100,age285 and mark1=100 or mark2=100 or mark3=100,age285 and(mark1=100 or mark2=100 or mark3=100),为什么有错？,【考点四】运算符与表达式,【经典试题】(2009-03-12)以下关系表达式中，其值为True的是A)XYZXYzB)VisualBasicvisualb

19、asicC)the=thereD)IntegerInt,【考点四】运算符与表达式,(2009-03-13)执行以下程序段a$=Visual Basic Programmingb$=C+C$=UCase(Left$(a$,7)&b$&Right$(a$,12)后,变量C$的值为A)Visual BASIC ProgrammingB)VISUAL C+ProgrammingC)Visual C+ProgrammingD)VISUAL BASIC Programming,【考点四】运算符与表达式,（2008-09-14）表达式2*32+4*2/2+32 的值是（）。A）30 B）31 C）49 D）

20、48（2008-09-19）设a=4，b=5，c=6，执行语句Print ab And bc 后，窗体上显示的是（）。A）True B）False C）出错信息 D）0,【考点四】运算符与表达式,（2008-04-12）在Visual Basic 中，表达式3*25 Mod 3 的值是（）。A）1 B）0C）3 D）出现错误提示,【考点四】运算符与表达式,（2007-09-27）下列程序执行时，在窗体上显示的是（）。Private Sub Command1_Click()Dim a(10)For k=1 To 10a(k)=11-kNext kPrint a(a(3)a(7)Mod a(5)E

21、nd SubA）3 B）5C）7 D）9,【考点四】运算符与表达式,（2007-09-9）下列程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。如输入7685，则输出5 8 6 7；输入1000，则输出0 0 0 1。请填空。Private Sub Command1_Click()Dim x As Integerx=InputBox(请输入一个正整数)While x【11】Print x Mod 10;x=x10WendPrint【12】End Sub,【考点五】常用内部函数,【考点内容】一、转换函数1.取整函数Int和Fix2.数制转换函数3.类型转换函数4.格式输出函数

22、,3.转换函数Asc(c):将字母转换成ascII码值Chr(n):将ascII码值转换成相应的字母Fix(n):取整。Fix(-4.8)=-4，Fix(4.8)=4Int(n):取小于n或者等于n的最大整数 int(-4.4)=-5，int(4.8)=4Round(n):四舍五入取整。Round(-4.4)=-4，Round(4.8)=5Cint（n）：将小数位四舍五入取整后返回整数部分 Cint（34.789）=35Ccur（n）:将数值转化成货币型.Ccur（34.789567）=34.7896Str(n):数字转化为字符串。Str(78.09)-”78.09”Val(c):数字字符串转

23、化为数字。Val(“457.dd”)-457Lcase(c)大写字母转小写字母Ucase(c)小写字母转大写字母 Chr(66)“B“Asc(“B)66 Asc(Chr(99)99 Chr(Asc(“K”)“K”Ucase(abcdefg)“ABCDEFG,【考点五】常用内部函数,二、数学函数1.三角函数2.绝对值函数(Abs)3.符号函数(Sgn)4.平方根函数(Sqr)5.指数和对数函数(Exp、Log),1.数学函数 Abs(n):取绝对值。Abs(-9)=9 cos(n):余函数，n为弧度。Sqr(n):平方根。Sqr(4)=2 SGN(N):返回参数符号 负数:-1；0:0；正数:1

24、 EXP（N）：以e为底的幂,【考点五】常用内部函数,三、日期和时间函数1.Microsoft Windows的计时系统2.日期函数3.时间函数4.日期/时间数值化函数5.日期/时间运算函数6.用变体类型表示日期,4.日期函数Time 返回系统时间 time-3:00:00pm Now 返回系统时间和日期 now-2004/03/01 2:30:00pm Date()返回系统日期 字符串型DateSerial(year,month,date)产生日期 DateSerial(2005,3,18)=2005-3-18DateValue(字符串)产生日期 DateValue(“0,1,20”)=20

25、00-1-20 日期型Day(日期字符串)计算日期值 Day(“2005,3,18”)=18Mounth(日期字符串)计算月份值 整型MounthName(数字或者字符串)提取月份的名字 字符型 MounthName(9)=MounthName(“9”)九月Year(数字或者字符串)提取年份的名字 year(“2005,3,18”)=2005Weekday(数字或者字符串)星期值 Weekday(“2005,3,18”)=6Weekdayname(数字)星期的名字 Weekdayname(4)=星期三,【考点五】常用内部函数,四、随机数函数(1).随机数函数Rnd(2).Randomize语句

26、【考点分析】常用的转换、数学、日期时间函数的用法等。,2、随机函数 Rnd 函数返回0和1（包括0但不包括1）之间的双精度随机数.每次运行时，要产生不同序列的随机数，执行Randomize 语句.Randomize number 例产生1-100的随机数:Int(Rnd*100)+1 因此产生一定范围内的整数：Int(Rnd*范围)+基数,【考点五】常用内部函数,（2008-04-26）窗体上有一个名称为Text 1 的文本框，一个名称为Command1 的命令按钮。窗体文件的程序如下：Private Type xa As Integerb As IntegerEnd TypePrivate

27、Sub Command1_Click()Dim y As xy.a=InputBox()If y.a 2=y.a/2 Theny.b=y.a*y.a,Elsey.b=Fix(y.a/2)End IfText1.Text=y.bEnd Sub对以上程序，下列叙述中错误的是（）。A）x 是用户定义的类型B）InputBox 函数弹出的对话框中没有提示信息C）若输入的是偶数，y.b 的值为该偶数的平方D）Fix(y.a/2)把y.a/2 的小数部分四舍五入，转换为整数返回,【考点六】字符处理与字符串函数,1.删除空白字符函数(1)Ltrim$(字符串)：去掉“字符串”左边的空白字符；(2)Rtrim

28、$(字符串)：去掉“字符串”右边的空白字符；(3)Trim$(字符串)：去掉“字符串”两边的空白字符；2.字符串截取函数,用来截取字符串的一部分，可以从字符串的左部、右部截取。(1)左部截取格式：Left$(字符串，n),Right$(字符串，n),5.字符串编码和函数(1)字符串编码 Windows系统对字符采用了DBCS编码,中文2字节,西文1字节 VB中字符Unicode编码,任何字符2字节.Len(“中国good”)为8 LenB(“中国good”)为12 StrConv()进行DBCS与Unicode之间转换.,(2)字符串函数 Mid$(ABCDEFG,2,3)space(5)S=

29、Split(123,56,ab,)Join(S,“)Replace(ABCDABCD,CD,123)left(“sdfasfadf”,2)ltrim(“ddd”)rtrim(“ddd”)trim(“ddd”),S(0)=123”,S(1)=56”,S(2)=ab,“”,BCD,123 56 ab,“AB123AB123”,“sd”,“ddd”,“ddd”,“ddd”,String(4,”ETYUUUI”),“EEEE”,StrReverse(“ABCD”),“DCBA”,Len(“AB高等教育”)=LenB(“AB高等教育”)=InStr(2,“ABEfCDEFG,EF“,0)=InStr(2

30、,“ABEfCDEFG,EF“,1)=InStrRev(“ABEfCDEFG,EF”)=“0”或者省略:区分大小写“1”：不区分大小写,6,12,7,3,7,【考点六】字符处理与字符串函数,3.字符串长度测试函数格式：Len(字符串)Len(变量名)4.String$函数格式：String$(n,ASCII码)String$(n，字符串)5.空格函数格式：Space$(n),【考点六】字符处理与字符串函数,6.字符串匹配函数在编写程序时，有时候需要知道是否在文本框中输入了某个字符串，这可以通过InStr函数来判断。格式：InStr(首字符位置，字符串1，字符串2，n)7.字母大小写转换格式：U

31、case$(字符串)Lcase$(字符串)8.插入字符串语句Mid$格式：Mid$(字符串，位置,L),【考点六】字符处理与字符串函数,【考点分析】常用函数的用法等【经典试题】(2009-03-17)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c=1234c1=Trim(Str(c)Fori=1To4Print_NextEndSub,程序运行后,单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c

32、1,i,1),【考点六】字符处理与字符串函数,（2008-09-33）假定有以下函数过程：Function Fun(S As String)As StringDim s1 As StringFor i=1 To Len(S)s1=LCase(Mid(S,i,1)+s1Next iFun=s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：,Private Sub Command1_Click()Dim Str1 As String,Str2 As StringStr1=InputBox(请输入一个字符串)Str2=Fun(Str1)Print Srt2End Sub程序运

33、行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（）。A）ABCDEFG B）abcdefg C）GFEDCBA D）gfedcba,【考点六】字符处理与字符串函数,（2008-09-6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1 和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()S$=InputBox(请输入一个字符串)Text1.Text=S$End SubPrivate Sub Text1_Change()Label1.Caption=U

34、Case(Mid(Text1.Text,7)End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【6】。,【考点六】字符处理与字符串函数,（2008-09-7）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()a$=National Computer Rank Examinationn=Len(a$)s=0For i=1 To nb$=Mid(a$,i,1)If b$=n Thens=s+1End IfNext iPrint sEn

35、d Sub程序运行后，单击命令按钮，输出结果是【7】。,【考点六】字符处理与字符串函数,（2008-04-33）设窗体上有一个文本框Text1 和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click()Dim s As String,ch As Strings=For k=1 To Len(Text1)ch=Mid(Text1,k,1)s=ch+sNext kText1.Text=sEnd Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1 中显示的是（）。A）Basic B）cisaB C）BASIC D）CISAB,B,【考点六】字符处理与字符串函数,（2007-09-30）下列程序的输出结果是（）。Private Sub Command1_Click()ch=ABCDEF proc ch Print chEnd SubPrivate Sub proc(ch As String)s=“For k=Len(ch)To 1 Step-1s=s&Mid(ch,k,1)Next kch=sEnd SubA）ABCDEF B）FEDCBAC）A D）F,B,