计算机二级补习VB基础部分

《计算机二级补习VB基础部分》由会员分享，可在线阅读，更多相关《计算机二级补习VB基础部分（54页珍藏版）》请在装配图网上搜索。

1、单击此处编辑母版标题样式,,单击此处编辑母版文本样式,,第二级,,第三级,,第四级,,第五级,,,*,VB程序设计基础,刘鑫朝,,信管教研室,,,,第一章 VB概述,属性,(Property),：,看起来像什么？ 指对象的性质、特征。,,方法,(Method),：,能做什么？ 指对象能执行的动作。,,事件,(Event),：,对什么事有反应。指对象能识别的动作。,,程序代码中使用如下格式的语句来改变属性值：,,,对象名,.,属性 ＝ 值,(,常量、变量、表达式,),,通过如下格式为变量赋值：,,,变量 ＝ 对象名,.,属性,,使用方法的格式：控件名,.,方法,,,VB,采用事件

2、驱动的编程方式，事件过程的一般格式：,,,Private Sub,控件名,_,事件名（,[,参数表,],）,,（程序代码）,,,End Sub,,第二章 创建用户界面,窗体类的相关属性、方法和事件,属性,方法,事件,Name,,Caption,,Backcolor Forecolor,,Enabled,,Visible,,Font,,Left Top,,Width Height,Hide,,Show,,Print,,Cls,Click,,Load,,Active,,Deactive,,第二章 创建用户界面,控件类名,属性,方法,事件,文本框,,TextBox,Name,,Text

3、,,PasswordChar,,MultiLine,SetFocus,Change,,KeyPress,标签,,Lable,Caption,,AutoSize,,Click,命令按钮,,Command Button,Caption,,Enabled,SetFocus,Click,,第二章 创建用户界面,控件类名,属性,方法,事件,列表框,,ListBox,List,,ListCount,,ListIndex,,Text,AddItem,,Clear,,RemoveItem,Click,组合框,,ComboBox,Style,,Text,AddItem,,Clear,,RemoveItem,Cl

4、ick,图片框控件,,PictureBox,Picture,,Autosize,Print,,Cls,Click,,第二章 创建用户界面,控件类名,属性,方法,事件,选项按钮,,OptionButton,,复选框,,CheckBox,Caption,,Value,,Click,框架,,Frame,Caption,,,水平滚动条,,Hscrollbar,,垂直滚动条,,Vscrollbar,Value,,Max和Min,,LargeChange,,SmallChange,,Change,,计时器,,Timer,Interval,,Timer,,第三章 VB语言基础,VB应用程序,窗体文件,标准模

5、块文件,声明部分,,事件过程,,通用过程,全局声明部分,,模块声明部分,,通用过程,,,,声明部分,事件过程,,通用过程,窗体文件,标准模块文件,全局声明部分,,模块声明部分,,通用过程,,,第三章 VB语言基础,语句：,VB程序的最基本成分,,一个语句可通过,续行,符号“ _”（一个空格加一个下划线）分成多行写；,,多个语句也可通过,分行,符号“：”（冒号）写在一行上。,,,注释语句： [格式一]：Rem <,注释语句>,,[格式二]：’ <,注释语句>,,,第三章 VB语言基础,,,整型数,浮点型数,,,整型,长整型,单精度数,双精度,数,程序运行中取值始终保持不变的数据称为“常量”,,

6、数值常量：,,P,43,表,(4-1),,,,,八进制数（数字前加&O) 和 十六进制（数字前加&H),,E或D，其中以E分隔的数为单精度数，以D分隔的数为双精度数,,字符常量：用引号括起来的一串字符,,逻辑型常量：只有True（真）和False（假）两个取值,,日期型常量：用#作为界定符，mm/dd/yy表示日期， hh:mm:ss表示时间,,符号常量：以符号形式表示的常量,,[,Public,|Private] Const <,常量名> [As Type] = ,,,第三章 VB语言基础,以符号形式出现在程序中，且取值可以发生变化的数据称为,“变量”,，变量名的命名规则如下：,,必

7、须以字母开头,,长度不超过,255,个字符,,在,作用域,内必须唯一,,字符串内不得包含,点号,和用于类型说明的符号,％、,,,&,、！、＃、,@,、,$,，,也不能有空格,,不得使用系统,保留字,（如,End Private Sub,）,,第三章 VB语言基础,变量的说明语句,,局部变量,(,包括静态变量）,——,在过程中声明,,,Static,|Dim,,<,变量名,> [,As <,类型,>],,窗体,/,模块级变量,——,在模块的“通用”部分声明,,,,Private,|Dim,,<,变量名,> [,As <,类型,>],,,全局变量,——,在模块的“通用”部分声明,,,Publi

8、c,,<,变量名,> [,As <,类型,>],,第三章 VB语言基础,变量初始值,：当对一个变量进行说明后，系统会自动为其赋一个默认的初始值。,,数值,型数据的初值为0；,,字符型数据的初值为空串“”；,,逻辑型数据的初值为,False,；,,日期型数据的初值为,0,：,00,：,00,,一条语句声明多个变量,：必须对每个变量都逐个声明,,例：,Dim x, y as Integer,,第三章 VB语言基础,变量的赋值：,变量名 = 表达式,,隐式说明,——类型说明符(P47，表3-4),,例：k,%,= 1 ：Country,$,= “China”,,定长字符串的说明：,,Private|

9、Dim|Static|,Public,<,变量名,>,As String,*,<,长度,>,,,,例：,Public String1 As String,*,10,,第三章 VB语言基础,Option Explicit语句,,功能：系统自动检查模块中所有未加,显式说明,的变量，一旦发现便产生出错信息提示使用者改正错误。该语句应在模块的通用说明部分输入。,,强制显式说明的好处：,,一个变量如果不被定义，会被当作,变体类型,来进行处理，从而降低程序的效率；,,变量定义之后，若事后使用了错误的变量名，则系统检测到错误的变量名时会发现其没有被声明，便会提示用户输入错误。,,第三章 VB语言基础,算术运

10、算符,,加（,+,）、减（,-,）、乘（*）、除（,/,）、整除（,\,）、取余（,Mod,）、乘方（,^,）、字符串连接（,&,）,,优先级,：,^, -,（负号） *和,/ \ Mod +,和,- &,,关系运算符：＝、,>,、,<,、,>=,、,<=,、,,,逻辑运算符：非（,Not,）、与（,And,）、或（,Or,）、异或（,Xor,）,,优先级,：,Not And Or ,Xor,A/B,,A\B,,Fix(A/B),,Int(A/B),,第三章 VB语言基础,运算规则：,,先,算术运算,，再,关系运算,，最后,逻辑运算,,（）可用来改变运算的优先顺序,,不同数据

11、类型的数据进行运算：结果为,存储长度较长,的数据类型，但,除法运算的结果都为双精度型,,要注意表达式可能溢出的情况,X >Y+3>2 (,结果,T/F,？,),,第三章 VB语言基础,公共函数：,VB,系统已预先定义好的完成某特定功能的程序段，公共函数可供编程者直接调用使用。,,算术函数（,P52,表,4-6,）,,字符函数（,P53,表,4-7,）,,转换函数（,P54,表,4-8,）,,日期与时间函数（,P55,表,4-9,）,,,第三章 VB语言基础,格式化函数,format [$] (,fmt$),,[格式控制字符]：,,,数位控制符,： #、0,,,标点控制符,： . 、 ，,

12、,,指数输出控制符,： E+、E-,,,符号控制符,： %、$、-、+,,例,：,X = 123456.78,,Print Format(x,”00000000.0000”),,Print Format(x,”###，###，###.#”),,00123456.7800,,123,456.8,四舍五入考法？？？？？,,除了Cint，其他的都是直接五入？,,第四章 算法基础及VB的基本语句,任何算法都可由以下三种基本结构实现：顺序结构、分支结构、循环结构,语句1,语句2,条件满足?,语句块1,语句块2,True,False,语句块,True,False,条件,,第四章 算法基础及VB的基本语句,

13、分支结构,,If,条件表达式成立,Then,,[A,语句,组,],,Else,,[B,语句,组,],,End If,注意：,,语句体为语句组时，语句体和,Then,或,Else,不能够写在同一行,,2.,当分支结构中,A,组或者,B,组语句仅有一条时，可省略“,End If”,，但必须将所有语句写在同一行：,,第四章 算法基础及VB的基本语句,If,条件表达式成立,Then Else ,,,,If,条件表达式成立,Then ,,,If,条件表达式成立,Then,,[A,语句,组,],,End If,,第四章 算法基础及VB的基本语句,多分支结构,,If,条件1,Then,,语句块1,,,El

14、seIf,,条件2,Then,,语句块2,,……,,,ElseIf,条件n,Then,,语句块n,,,Else,,语句块n+1,,End If,Select Case,测试表达式,,,Case,测试项1,,语句块1,,,Case,测试项2,,语句块2,,……,,,Case Else,,语句块n＋1,,End Select,P,66,,第四章 算法基础及VB的基本语句,条件？,循环体,T,F,条件？,循环体,F,T,,Do,While <条件,>,,<,循环体>,,,Loop,Do,,<,循环体>,,Loop,While <条件,>,“当(while)型”循环——条件成立时，执行循环体,,,

15、第四章 算法基础及VB的基本语句,条件？,循环体,F,T,条件？,循环体,T,F,“直到(Until)型”循环——条件成立时，结束循环,,Do,Until <条件,>,,<,循环体>,,,Loop,Do,,<,循环体>,,Loop,Until <条件,>,,第四章 算法基础及VB的基本语句,For-Next循环,,,,For,<计数变量,>=<,初值>,To,,[Step,,],,,循环体,,,Next,,,,注意：,,计数变量应为,整型或单精度型,，初值、终值和步长值为相应类型的表达式；,,步长值可以为正，也可为负，省略时,默认步长值为,1,；,,表达式1,表达式2,表达式3,计数变量

16、= 计数变量 + 步长,,第四章 算法基础及VB的基本语句,Exit Do 用于直接(无条件)退出循环，可在任意Do-Loop结构的循环体中出现，一般形式为：,,,If,条件表达式成立,Then,Exit Do,,,循环体中可出现,Exit For,语句，用于,直接(无条件),退出循环,,例如：求前N项的和、素数、……,,,,,,,,,2010年秋：利用下列公式求函数Cos(x)的近似值，规定通项的绝对值<=10,-6,时结束计算。,,,Option Explicit,,Private Sub Command1_Click(),,Dim S As Single, T As Single, K

17、As Integer, x As Single,,Const eps As Single = 0.000001,,x = Val(Text1),,,,S = 1,,T = 1,,Do,,T =,,S = S + T,,K = K + 1,,Loop While,,Text2 = S,,End Sub,K = 1,T * (-1) * x ^ 2 / ((2 * K - 1) * (2 * K)),Abs(T) < eps,Abs(T) <= eps,Abs(T) > eps,,第四章 算法基础及VB的基本语句,赋值语句的一般形式为：,,var = ,,其中：var表示某个,变量名或属

18、性名,,赋值语句的,左边不能是表达式或常量,,第四章 算法基础及VB的基本语句,变量（数值型）＝ 表达式（数值型）,,将表达式值类型先转换为变量类型再赋值,,变量（字符型）＝ 表达式（数值型）,,将表达式值先转换为,数字,字符,再赋给变量,,变量（逻辑型）＝ 表达式（数值型）,,,非零值,转换为,True,赋给变量，,0,值,转换为,False,赋给变量,,变量（数值型）＝ 表达式（逻辑型）,,,True,转换为,－,1,赋给变量，,False,转换为,0,赋给变量,,变量（字符型）＝ 表达式（逻辑型）,,,True,转化为“,True”,赋给变量，,False,转化为“,False”,赋给变

19、量,,变量（数值型）＝ 表达式（字符型）,,将表达式的值类型转换为数值类型再赋值，如果,转换不成功,则报错,,第四章 算法基础及VB的基本语句,InputBox函数,,v = InputBox[$]([,][,][,]),,MsgBox函数,P,58 表（4-10）（4-11）,,,MsgBox[(Prompt[,Button][,Title][,HelpFile,Context])],,1. 函数在此等同为一个,过程(sub),使用,不加括号；,,例： MsgBox "非法数据！", , "警告 ",,2. 使用Print 方法打印函数返回值,,,例:,,Print,,MsgBox("

20、非法数据！", , "警告"),,3.需要用户的响应结果，将函数返回结果(P59,表4－11）赋给一个变量,,例：Response=MsgBox("真删除吗？",,,4+48, "提示信息"),,,第五章 数组,数组：一组具有,相同类型,的,有序,变量的集合,,数组必须,先定义后使用,。数组的定义:,,Public|Private|Static|Dim 数组名([ To],,[，[ To],…]),As 类型,,说明：,,<,下界,> TO <,上界,>,决定了每一维的大小，下界指下标的最小值，上界指下标的最大值，默认下界是从,0,开始，若想使下标从,1,开始，可在模块的“通用”部分中使用语

21、句“,Option Base 1”,,上、下界必须是,常量,或,常量表达式,，,不得是变量，,上、下界应是整数，若不是，则自动四舍五入,,第五章 数组,返回上、下界函数：,,,UBound,(,数组名[,,第几维,],）：返回数组某维的维上界值,,,LBound,(,数组名[,,第几维,],）：返回数组某维的维下界值,,Erase,：初始化,固定大小数组,的元素（根据数组类型给元素赋初值），或释放,动态数组,的存储空间。,,第五章 数组,数组元素的赋值,,通过循环逐一给数组元素赋值（用,InputBox,函数）,,通过循环逐一给数组元素赋值（用,Int,函数）,,数组元素的输出,,按矩阵格式输

22、出数组 （,Print,方法的使用）,,输出到窗体（图片框）,,输出到文本框,,数组元素的引用,,通过数组名和下标来引用，但元素的下标一定要在定义的上下界范围之内，否则便会报出“下标越界” 的错误。,,第五章 数组,动态数组,,Dim 数组名() as 类型,,ReDim [,Preserve,] <数组名,>(维界定义),,控件数组：由一组具有相同名称的同类型控件组成，每个控件共享,同一,事件过程,,控件数组中的每个控件都由其下标属性,Index,标识,,控件数组的第一个元素下标为0,,,第五章 数组,Load,object(index,),,Unload,object(index,)

23、,,用于添加和删除控件数组中的控件，但添加和删除控件只能针对现有控件数组操作,,index,可以跳序；,,Unload,语句只能删除由,Load,语句添加的控件；,,由,Load,语句添加的控件，其,Visible,属性为,False,,所以要在程序中将刚装载控件的,Visible,属性设置为,True,，才能在窗体上可见；另外，新控件的大小、位置与原控件一样，隐藏在其背后，所以还要重新设置它的,Top,、,Left,等属性；,,第五章 数组,排序,,选择法排序,,冒泡排序,,查找,,直接查找,,二分法查找,,第五章 数组,选择法排序：,,For i=1 to N-1,,For j

24、= i+1 to N,,If,A(i) < A(j),Then,,TEMP=A(i),,A(i)=A(j),,A(j)=TEMP,,End If,,Next j,,Next i,,,第五章 数组,冒泡排序,,For N=1 to n-1,,For M=1 to n-N,,If,a(M) < a(M+1),Then,,TEMP=A(M),,A(M)=A(M+1),,A(M+1)=TEMP,,End If,,Next M,,Next N,*需要冒了多少次？,,每次冒需要比较几次？,,[分析]：二分查找是一种快捷有效的查找方法，使用二分查找的前提是数据序列已排好序。,

25、,假设有n个数已经按照从小到大的顺序排列，并存放在数组A中，设Left为查找区间的下界——下标，初值为1；Right为查找区间的上界，初值为n；设需要查找的数为x；二分查找的算法如下：,,（1）求出查找区间的中间位置Mid=Int((Left+Right)/2),,（2）若A（Mid）=x，则找到，结束比较,,（3）若A（Mid）x，则表明x在A（Left）到A（Mid-1）区间内，查找区间缩小一半，设置Right=Mid-1,,（5）重复执行以上操作,,（6）结束循

26、环的条件有两个：已经找到；,找不到--Left>Right,二分查找,,3,4,1,11,10,5,9,6,7,8,x=8,Left,Right,Mid,Left,Right,Mid,Right,Left,Mid,2,3,1,11,10,4,9,6,7,8,x=5,Left,Right,Mid,Mid,Right,Left,Mid,Left,Left,Mid,Left,Mid,1 2 3 4 5 6 7 8 9 10,1 2 3 4

27、 5 6 7 8 9 10,,Left =,LBound(a),,Right =,UBound(a),,x = InputBox("请输入要查找的数据"),,Do While,Left <= Right,,Mid = Int((Left + Right) / 2),,If a(Mid) = x Then,,,Exit Do,,ElseIf a(Mid) < x Then,,Left = Mid + 1,,Else,,Right = Mid - 1,,End If,,Loop,,If,Left <= Right,Then,,Print "要查找的"; x; "

28、是A（"; Mid; ")",,Else,,Print "没找到！"; x,,End If,二分查找,,第八章 过程,过程,Sub过程,Function过程,事件过程,通用过程,窗体事件过程,控件事件过程,公有过程,私有过程,公有过程,私有过程,,第八章 过程,窗体事件过程的一般形式如下：,,Private Sub Form_事件名（[参数列表]）,,[局部变量和常数声明],,语句块,,End Sub,,,,,窗体事件过程,,Initialize Load Activate Gotfocus,,窗体的事件过程名中不使用其具体名称，而固定用Form,窗

29、体事件固定为“Private”，说明它是模块级的,,第八章 过程,控件事件过程的一般形式如下：,,Private Sub 控件名_事件名（[参数列表]）,,[局部变量和常数声明],,语句块,,End Sub,控件的事件过程名中必须使用其具体名称,控件事件固定有“Private”关键字，说明它是模块级的,,第八章 过程,通用过程,,[Private|Public] [Static] Sub ([]),,,,End Sub,,缺省作用域声明时，系统默认为,Public,；,,在一个窗体模块中调用另一窗体模块的公有过程时，需以“窗体名,.,公有过程名”的形式调用；,,Exit Sub,可以提前退出过

30、程调用,,过程不能嵌套定义,,第八章 过程,Function过程的特点是返回一个值，,Function过程的形式如下：,,[Private|Public] Function <,函数名>([参数列表]) [As ],,,,End Function,,函数体中一定要有对函数名赋值的语句——,,函数名=表达式,,函数体内可有Exit Function语句——无条件退出函数过程,,,第八章 过程,Sub过程的调用,,,Call,,(,[实参1[，实参2，……]],),,过程名 [实参1[，实参2，……]],,调用Function过程的一般形式如下：,,var =,（[实在参数表]）,,Call,,,

31、（,[实在参数表],）,, [实在参数表],,第八章 过程,形参：,指过程定义时出现在过程或函数名后括号中的参数,,形参为ByVal，指明参数传递方式是传值；,,形参为 ByRef，指明参数传递方式是传地址或称为“引用”,,实参：,指调用过程函数时，出现在过程的函数名后括号中的参数,,在调用一个有参数的过程时，首先进行“形实结合”，实参按,“位置”,向形参传值或传地址;,,实在参数和形式参数，要求,个数相同，位置对应，类型一致,，否则会出错；,,,第八章 过程,若调用过程时实参为,常量或表达式,，则无论形参定义的是按值传递还是按地址传递，系统都是按,传值方式,传递,,调用函数或过程时，将单个

32、变量转换成表达式的方法：将变量放在一对括号中。,,,第八章 过程,数组作为形式参数，声明数组的格式为：,,,<,数组名,>,（）,As <,数据类型,>,,数组参数只能,按地址传递,，即不能用,ByVal,来说明数组参数,,定义数组形参时不能说明数组的维数和下标变化范围；,,调用过程时，对应的实参也必须是数组，但只需要数组名，无须后跟括号，且数据类型也要一致；,,第八章 过程,递归过程：在过程中通过调用自身,“和自身相同的过程”,来完成某一特定任务的过程,,递归过程的执行过程：逐层调用，逐层返回,此处要加递归样例程序讲解？？？,,第八章 过程,变量的作用域,作用域,关键字,声明位置,全局变量,Public,在模块的通用部分,模块级变量,Private和Dim,在模块的通用部分,局部|过程级变量,Dim,在过程中,静态变量,Static,在过程中,,