Visual Basic程序设计教程(应用型本科信息大类专业“十二五”规划教材/21世纪普通高等教育优秀教材) PDF下载

编辑推荐

　　《Visual Basic程序设计教程》这本书是各位参与编写的老师多年对Visual Basic程序设计课程的教学经验的总结，对Visual Basic软件的相关知识面做了详细和全面的介绍，并配以大量的例题和练习题，在全书的*后还附上了计算机二级考试的真题，使读者在学习完相关的知识点之后可以很快的吸收掌握，是一本不可多得的好书。

；

内容简介

　　《Visual Basic程序设计教程》的内容主要包括Visual Basic6.0中文版开发环境、语言基础、用户界面、程序设计、数据库应用、文件操作等。本书在讲解完一个知识点后都配上了实例，每章之后都配有习题，习题主要训练编程能力和帮助掌握基本概念。《Visual Basic程序设计教程》层次清晰，内容既相互联系又相互独立，并且依据教学特点精心编排，方便读者根据自己的需要进行选择。为了方便教学，本书还配有电子课件，任课教师和学生可以登录我们爱读书网（www.ibook4us.com）免费注册下载。《Visual Basic程序设计教程》系统性强、内容实用，不仅可作为大学本、专科相关课程的教材，也适合于各类培训和自学参考用书。

作者简介

王平，伊犁师范学院电子与信息工程学院计算机教研室主任，主讲过多年的程序设计的课程，包括C语言程序设计、Visual Basic程序设计等，并且长期对学生参加计算机二级考试进行辅导，有丰富的教学和科研经验，并且出版过多本教材。

Visual Basic程序设计教程(应用型本科信息大类专业“十二五”规划教材/21世纪普通高等教育优秀教材) PDF下载

第1章 Visual Basic概述 1.1 Visual Basic简介 1.2 Visual Basic：6.O集成开发环境 1.3 Visual Bask：6.0应用程序开发步骤习题1 第2章对象与基本控件 2.1 Visual Basic中对象的概念 2.2 控件及其通用属性 2.3 窗体 2.4 标签、文本框 2.5 命令按钮 2.6 单选按钮、复选框 2.7 定时器习题2 第3章 Visual Basic程序设计基础 3.1 数据类型 3.2 常量和变量 3.3 不同类型数据的转换 3.4 运算符与表达式 3.5 常用内部函数习题3 第4章 visual Basic语言的基本控制结构 4.1 算法与结构化程序设计 4.2 顺序结构 4.3 选择(分支)结构 4.4 循环结构 4.5 应用程序举例习题4 第5章数组与自定义类型 5.1 数组的概念 5.2 数组操作 5.3 控件数组 5.4 自定义数据类型习题5 第6章过程与函数 6.1 Sub过程 6.2 Function过程 6.3 参数传递 6.4 嵌套调用与递归调用 6.5 变量与过程的作用范围，习题6 第7章界面设计 7.1 常用内部控件 7.2 鼠标与键盘 7.3 通用对话框 7.4 菜单设计 7.5 工具栏设计习题7 第8章文件管理与操作 8.1 文件系统的概念 8.2 文件系统控件 8.3 文件存取操作 8.4 文件系统对象模型习题8 第9章数据库编程 9.1 数据库基础 9.2 Data控件 9.3 可视化数据管理器 9.4 ADO对象模型与数据环境设计器 9.5 开放数据库互联习题9 附录A 参考文献

前沿

1991年，微软公司推出了Visual Basic1.0版。这在当时引起了很大的轰动。这个连接编程语言和用户界面的进步被称为Tripod（有些时候叫做Ruby），最初的设计是由阿兰·库珀（AlanCooper）完成的。许多专家把VisualBasic的出现作为软件开发史上的一个具有划时代意义的事件。在Windows操作系统中，VisualBasic作为一门计算机语言，其功能非常强大，而且简单易学。Visual Basic提供可视化设计工具，编程人员可利用VisualBasic提供的控件轻松地“画”出应用程序的友好界面，VisualBasic拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易地使用DAO、RDO、ADO连接数据库，或者轻松地创建ActiveX控件。程序员可以轻松地使用VisualBasic提供的组件快速建立一个应用程序，因此比较容易入门，入门以后就有能力进一步学习难度更大的编程语言了。VisualBasic作为编程人员的首选程序设计语言，有如下特点。（1）VisualBasic是开发Windows应用程序的强有力的工具，拥有最先进的程序设计思想，能轻而易举地开发出符合Windows规范和风格的应用程序。（2）VisualBasic在科学计算、多媒体软件开发、网络应用等方面都有强大的功能，尤其在数据库开发方面，提供了许多控件，便于连接、查询和显示查询结果。现在很多管理软件，包括一些大型软件，都是利用VisualBasic开发的。（3）VisualBasic改变了传统程序的机制，采用“事件驱动”方式，用户操作产生不同的事件，程序根据这些事件去分别执行不同的子程序。编程人员可以分别编写出这样一些子程序，使编程难度大大降低。全书共9章，其中第1章至第8章是全国计算机考试大纲规定的必修内容，参考学时54学时（讲授30学时+上机24学时），第1章为概述，第2章至第7章主要讲述对象与基本控件、VisualBasic程序设计基础、VisualBasic基本控制结构、数组、过程、界面设计，第8章、第9章主要讲述文件系统、使用数据控件访问数据库等知识。本书主要面向VisualBasic语言程序设计的初学者，理论联系实际，以程序设计为主线，通过实例讲述VisualBasic的程序设计方法和应用。全书依据教育部公布的《全国计算机等级考试大纲》(2011年版）中二级（VisualBasic语言程序设计）考试大纲的要求，在内容编排、例题题型和讲解、习题布置及本教材实验指导书的实验内容等各个方面都作了精心的设计。本书由伊犁师范学院王平、王俊岭担任主编；石家庄铁道大学四方学院的闫爱平、李娜、刘宝静，重庆大学的尹云飞，西北师范大学知行学院的刘艳慧，哈尔滨远东理工学院的王颖分别担任副主编；北京联合大学刘琨，黑龙江旅游职业技术学院王硕宁担任参编。其中，华中科技大学的王仲东教授审阅了全书，并提出了宝贵的修改意见，在此表示感谢。本书可作为应用型、技能型人才培养的各类教育相关专业的学生学习VisualBasic语言程序设计的教材，也可作为各类水平考试、全国计算机等级考试的自学辅导用书及学习计算机程序设计的培训教材及参考书。本书还配有电子课件，任课教师和学生可以登录我们爱读书网（www.ibook4us.com）免费注册下载。因时间仓促，尽管在本书出版前我们对全部内容进行了仔细校对，但不足之处仍在所难免，恳请广大读者指正。编者2012年5月

免费在线读

第5章数组与自定义类型在程序中处理数据时，对于输入的数据、参加运算的数据、运行结果等临时数据，通常使用变量来保存，由于变量在一个时刻只能存放一个值，因此当数据不太多时，使用简单变量即可解决问题。但是，有些复杂问题，利用简单变量进行处理很不方便，甚至是不可能的。例如以下几个问题。（1）输入50个数，按逆序打印出来。（2）输入100名学生某门课程的成绩，要求把高于平均分的那些成绩打印出来。（3）统计高考中各分数段的人数。（4）某公司有近万名职工，要求做一个职工工资报表。（5）窗体上的几个同类型控件，有着某种关系。这就需要我们构造新的数据结构——数组。5.1数组的概念数组是具有相同类型的有序变量的集合，可用于存储成组的有序数据。根据数组的定义，我们必须明确以下几点。（1）数组的命名与简单变量的命名规则相同。（2）数组中的元素是有序排列的。（3）数组的元素个数是有限的，数学中的无限数组不能表示。（4）数组的类型也就是该数组的下标变量的数据类型。在VisualBasic中，可以说明任何基本数据类型的数组（包括用户自定义类型），但是一个数组中的所有元素应该具有相同的数据类型，只有当数组的数据类型为Variant时，各个元素的数据类型可以不同。5.1.1数组的声明 1.数组的声明数组必须先声明后使用，声明的格式如下。 Dim | Private | Public |static 数组名（<；维数说明>；）［As类型］对数组进行声明应该包括数组名、维数、大小、类型及作用域。数组的命名规则和变量的命名规则一致。Dim：用于在过程（Procedure）、窗体模块（Form）或标准模块（Module）中声明数组变量。在过程中使用Dim时，所声明的数组变量的作用域为过程级（作用范围为数组声明所在过程）、在窗体模块或标准模块的通用声明段中使用Dim时，所声明的数组变量的作用域为模块级（作用范围为数组声明所在模块）。Private：用于在窗体模块、标准模块的通用声明段中声明一个模块级的私有数组变量，其作用域为模块级。在窗体模块或标准模块的通用声明段使用Private和使用Dim的作用效果相同。Public：用于在标准模块中声明公用数组变量，所声明的数组变量的作用域为整个应用程序。在VisualBasic中，允许在窗体模块中使用Public声明公用简单变量，但是不允许在窗体模块中使用Public声明公用数组变量。Static：用于在过程中声明静态数组变量，所声明的静态数组变量的作用域为该过程。2.数组元素和下标数组声明后，仅仅表示在内存中分配了一段连续的存储空间。对数组进行操作，一般是针对某个元素进行操作。数组元素是带有下标的变量，是数组的一个成员，其一般形式如下。数组名（下标1［，下标2，……］）如：A（2）B（2+2,1）C（1*2,3,1）D（i）下标表示顺序号，每个数组元素有唯一的顺序号。下标可以是常数、数值变量、算术表达式，甚至可以是一个数组元素。下标中如果含有变量，使用前该变量应提前赋值。多个下标之间应该由逗号分隔。下标值应该为整数，否则计算机将对下标自动取整。比如a（3.2）将被视为a（3），a（-3.7）将被视为a（-4）。3.数组的维数和维界标志一个数组元素所需的下标个数称为数组的维数。所以有一维数组、二维数组及两个以上下标的多维数组。在VisualBasic中，理论上数组的维数最多可以达到60维。下标的取值范围称为数组在这一维的界。在VisualBasic中，维界不得超过Long数据类型的范围（-2 147 483 648~2 147 483647）。我们把下标所取的最大值称为上界，最小值称为下界（默认为0）。数组的下标在上下界内是连续的。对某一维数组元素而言，其下标不能超出维界的范围，否则会出现“下标越界”的错误。在数组声明语句的维数说明中，如果明确指出维界，则声明的是固定大小数组；否则，声明的是动态数组。4.数组的数据类型和大小数组的数据类型由数组声明语句中的As类型决定，可以是整型、长整型、单精度型、双精度型、货币型、字节型、字符串型、逻辑型、日期型、对象型。如果声明时省略As类型，则数组的数据类型默认为Variant类型。数组中元素的个数称为数组的大小，数组的大小与它的数据类型无关。数组的大小为每一维大小的乘积，而某一维的大小为：下界-上界+1。5.数组的引用数组的引用通常是指对数组元素的引用。引用数组元素时，数组名、数据类型和维数必须和定义的一致。另外还要注意区分数组的声明和数组元素。例如，对于下面的程序片段：Dim x（8）As Integer Dim Temp As Integer …Temp=x（8）尽管有两个x（8），但是Dim语句中的x（8）不是数组元素，而是说明由它声明的数组x的下标最大值为8；而赋值语句“Temp=x（8）”中的x（8）是一个数组元素。6.数组和简单变量的比较（1）输入的简单变量越多，程序就越长，程序本身占用的内存空间就越大。（2）在一个程序中使用的简单变量的个数有限。对大批量数据，简单变量就不能表示了。（3）简单变量的存储位置呈松散状态，数组却占据着一片连续的存储区域。（4）在程序结构方面，简单变量不适合使用循环的办法来解决。总之，简单变量适合于处理一个或几个变量的情况，每个简单变量只能存储一个数据，各简单变量之间没有固定的联系。而数组反映的是大批数据间的顺序和联系，体现的是数据间更复杂的结构，因此数组适用于处理大批量数据之间的比较、排序和检索。7.数组的分类（1）根据数组的数据类型分为整型、长整型、单精度型、双精度型、货币型、字节型、字符串型、逻辑型、日期型、对象型（也可叫控件数组）和变体（Variant）数组等11类。（2）根据数组的作用域可分为公用数组、模块数组和局部数组三类。（3）根据数组的生命期和存放方式可分为静态数组和自动数组两类。（4）根据数组的元素个数是否变化分为固定数组和动态数组两类。5.1.2静态数组及声明固定大小数组在声明阶段其大小就已经确定，在程序运行期间其元素个数不能改变，这种形式的数组在编译阶段就已经确定了存储空间。1.数组的声明 1）声明格式 Dim | Private | Public | static 数组名（维界定义）［As 类型］2）功能声明一个数组，并初始化所有数组元素。 3）说明（1）数组的维界定义必须为常数或常量符号，不能是表达式或变量。例如： Constk As integer=10 Dim x（10）As Single正确 Dim a（k）As long正确而 n=10 Dimx（n）As Single错误（2）维界定义的形式是：［下界1 To ］上界1［,［下界2 To］上界2］……一般情况下，当［下界To］缺省时，默认值为0，下界≤上界。维的大小为：上界-下界+1。维界说明如果不是整数，将自动进行四舍五入处理。例如： Dimsum（10）As Integer声明sum为一维数组，共有11个元素，下标从0到10 Dim res（1 To 20）AsSingle声明res为一维数组，共有20个元素，下标从1到20 Dim x（9,19）AsInteger声明x为二维数组，共有10*20=200个元素 Dim y（-5 To 4,9）AsInteger声明y为二维数组，共有10*10=100个元素 Dim z（9,1 To 10,9）AsInteger声明z为三维数组，共有10*10*10=1 000个元素（3）As数据类型：用来说明数组元素的类型，如果缺省，则默认为是变体型（Variant）。例如： Dim a（12）AsSingle声明a数组为单精度型 Dim x（1 To 50）As Integer声明x数组为整型 Dim y（-9 To10）声明y为变体型数组（4）声明数组时可以通过Option Base n语句来指定缺省下界，n的值只能为0或1。例如：Option Base 1指明缺省下界为1 Dim cup（4,5）AsInteger声明cup为二维数组，共有（4-1+1）*（5-1+1）=20个元素 Dim da（7,1 To 10）AsInteger声明da为二维数组，共有（7-3+1）*（10-1+1）=50个元素注意： OptionBase语句只能在模块级使用，即在窗体模块或标准模块的通用声明段使用，而不能在过程中使用；当在某一模块中使用了OptionBase语句改变了缺省的下界值，这一缺省值只能影响到包含该OptionBase语句的模块，而其他模块中所定义的数组的下界缺省值不会受到影响。如在窗体Form1的通用声明段中加入语句Option Base1，则只在Form1中定义数组时，默认下界值为1。（5）数组声明语句声明一个数组，将同时对所有数组元素进行初始化，把数值数组中的全部数组元素都初始化为0，把变体字符串数组中的数组元素初始化为空字符串，把定长字符串数组的元素初始化为给定长度的空格，把逻辑型数组元素初始化为False，变体型数组元素初始化为Empty。（6）声明数组也可以使用类型说明符代替As类型。例如：Dim a$（10）字符串类型数组 Dim b%（2,3）整型数组 Dimc!（3,4,5）单精度浮点类型数组（7）声明数组时，一条声明语句可以同时声明多个相同或不同数据类型的数组。例如： Dima1（10）As Single,a2（10,10）As Long,a3（10,10,10）As Integer Dimb1%（10）,b2%（20）,b3!（2,2）,b4#（3,4,5） 4）声明数组的方法（1）建立公用数组在模块的通用声明段用Public 语句声明数组。例如： Public Counters（14）AsDouble定义Counters为15个元素的公用数组（2）建立模块级数组在模块的通用声明段用 Private或Dim语句声明数组。例如： Private Sums（1 To 20）As Double定义Sums为20个元素的模块级数组Dim a（4）as Integer声明模块级数组 Private Sub Command1_Click（） … End Sub（3）建立局部数组在过程中用 Dim或Static 语句声明数组。例如： Private Sub Form_Click（） DimSubs（20）As Double定义Subs 为20个元素的局部数组 End Sub Private SubForm_Click（） Static s（3）As Integer End sub2.固定大小数组使用举例【例5.1】求一个给定的一维数组中的最大元素和最小元素，并给出相应元素的下标，同时求出各元素的和及平均值。1）控件及属性控件及属性如表5.1所示。表5.1控件及属性控件名称（Name）属性标签Label1Caption=“最大元素”标签Label2Caption=“最小元素” 标签Label3Caption=“各元素的和” 标签Label4Caption=“数组元素的平均值” 标签Label5Caption=“对应下标” 标签Label6Caption=“对应下标”文本框Text1Locked=True 文本框Text2Locked=True 文本框Text3Locked=True文本框Text4Locked=True 文本框Text5Locked=True 文本框Text6Locked=True按钮Command1Caption=“计算” 2）布局界面布局如图5.1所示。图5.1界面布局 3）代码变量声明 Dim b（1To 10）As Integer Dim bmax%,bmin%,bsum%,baverage! 计算按钮代码 PrivateSub Command1_Click（） Dim imax%,imin% For i=1 To 10 If bmin >；b（i）Then bmin=b（i） imin=i End If If bmax <； b（i）Then bmax=b（i）imax=i End If bsum=bsum+b（i） Next i baverage=bsum / 10Text1.Text=bmax Text2.Text=bmin Text3.Text=bsum Text4.Text=baverageText5.Text=imax Text6.Text=imin End Sub 窗体载入代码 Private SubForm_Load（） Text1.Text=""：Text2.Text="" Text3.Text=""：Text4.Text=""Text5.Text=""：Text6.Text=""b（1）=10：b（2）=40：b（3）=-10：b（4）=100：b（5）=1200b（6）=-93：b（7）=-239：b（8）=76：b（9）=-921：b（10）=44 bmax=bmin=b（1）bsum=baverage=0 End Sub4）运行结果运行结果如图5.2所示。图5.2运行结果【例5.2】一个二维表格就是一个二维数组。数学上形如矩阵{aij}表示的数据均可用二维数组来处理。请编程完成两个相同阶数的矩阵A和B相加，将结果存入矩阵C，即C=A+B。由于阶数相同，因此只要分别求出cij=aij+bij即可。（此例为二维数组举例）1）控件及属性控件及属性如表5.2所示。表5.2控件及属性控件名称（Name）属性标签Label1Caption=“矩阵A”标签Label2Caption=“矩阵B” 标签Label3Caption=“矩阵C” 图片框Picture1 图片框Picture2图片框Picture3 按钮Command1Caption=“矩阵求和” 2）布局界面布局如图5.3所示。图5.3界面布局 3）代码矩阵求和按钮代码 Private Sub Command1_Click（） Picture1.Cls Picture2.ClsPicture3.Cls Dim a（4,5）As Integer Dim b（4,5）As Integer Dim c（4,5）AsInteger For i=0 To 4 For j=0 To 5 a（i,j）=Int（Rnd * 91）+10b（i,j）=Int（Rnd * 91）+10 c（i,j）=a（i,j）+b（i,j） Next j Next i For i=0To 4 For j=0 To 5 Picture1.Print Format（a（i,j）,"!@@@@"）；Picture2.Print Format（b（i,j）,"!@@@@"）； Picture3.PrintFormat（c（i,j）,"!@@@@"）； Next j Picture1.Print Picture2.PrintPicture3.Print Next i End Sub 4）运行结果运行结果如图5.4所示。图5.4运行结果5.1.3动态数组及声明与固定大小数组对应的是动态数组，即数组元素的个数不定且可以根据需要动态改变数组元素个数的数组。使用数组解决实际问题时，有时候可能不知道数组到底多大才合适，太大的话会占用大量的存储空间，而太小的话可能不能满足需要；或者由于程序运行的需要，要求数组的大小能够动态地变化，这时就要使用动态数组。在VisualBasic中，动态数组很灵活，可以在任何时候改变大小，有助于有效管理内存。例如，当要处理的数据量很大时，可短时间使用一个大数组（分配比较大的存储空间），然后当数据量变小时，将原来的大数组变为一个较小的数组，从而释放部分存储空间；当不使用这个数组时甚至可以将数组所占用的存储空间全部释放。1.动态数组的创建1）创建方法要创建动态数组，需要分两步进行。（1）与前面的静态数组的声明类似，只是不说明维数和界限，并且不分配内存。（2）实际使用时，用ReDim语句分配实际的内存空间，格式为：Redim ［preserve ］数组名（维界定义1 ［，维界定义2 ……］）［As类型］例如，可先在模块级声明中建立动态数组DynArray。 Dim DynArray（）As Integer然后，在过程中给数组分配空间。 Sub TestArray（） … ReDim DynArray（9,1 to 20） … EndSub2）说明（1）ReDim语句中的维界定义中的上下界可以是常量，也可以是有了确定值的变量。（2）ReDim语句只能出现在过程体内，为数组临时分配存储空间，当所在过程结束时，分配的存储空间就会释放。在过程中可以多次使用ReDim语句来改变数组的大小。（3）使用Redim语句时，如果不使用Preserve选项，则原来数组中的值丢失，即数组中的内容全部被重新初始化。（4）使用Redim语句时，如果使用Preserve选项，则对数组重新说明时，将会保留数组中原来的数据。但是不能改变维数，并且只能改变最后一维的大小，前面维的大小不能改变。例如：Dim exa（）As Integer Private Sub Form_Click（） ReDim exa（2,2）正确，二维数组ReDim Preserve exa（2,4）正确，保留数组原来的数据，只可改变最后一维大小 ReDim Preserveexa（4,2）下标越界错误，使用Preserve选项只可改变最后一维大小 ReDim Preserveexa（2,2,4）下标越界错误，使用Preserve选项不能改变维数 … End Sub（5）使用ReDim语句时，可以省略As类型，即维持数组原来的数据类型。但如果使用As类型，其中的“类型”应该和此数组最初的数据类型一致，即使用ReDim语句不可以改变数组的数据类型。例如：Dim exa（）As Integer整型 Private Sub Form_Click（） ReDimexa（2,2）正确，省略As类型，表示整型 ReDim exa（2,4）As Integer正确，整型，与初始定义一致ReDim exa（2,2,2）As Single错误，不能改变数组元素的数据类型 … End Sub（6）在ReDim语句中可以定义多个动态数组，但是这些数组必须都已事先用不带维数和界限的数组声明语句进行了声明。例如： Dima11%（）,a12$（）,a13!（）先声明 Private Sub Form_Click（） ReDima11（2,3）,a12（4,5）,a13（5,6,7） … End Sub2.动态数组使用举例【例5.3】请编程，输出杨辉三角形，其一般形式如下。 1 11 121 1331 14641 15101051……为了输出杨辉三角形，首先找到形成上述矩阵的规律：对角线和每行的第1列均为1，其余各项是它的上一行中前一个元素和上一行的同一列元素之和；从而可以得出形成矩阵数据的一般规律：a（i,j）=a（i-1,j-1）+a（i-1,j）。1）控件及属性控件及属性如表5.3所示。表5.3控件及属性控件名称（Name）属性文本框Label1Caption=“杨辉三角形”图片框Picture1 按钮Command1Caption=“显示” 2）布局界面布局如图5.5所示。图5.5界面布局 3）代码Option Base 1 Dim a%（）显示按钮代码 Private Sub Command1_Click（） Dim m%m=Val（InputBox（"请输入要显示杨辉三角形的级数m（小于等于14的正整数）","获取显示级数",6）） If（m <；1 Or m >； 14）Then MsgBox"请输入大于等于3小于等于14的整数",64,"杨辉三角形" Exit SubEnd If ReDim a（m,m） Picture1.Cls For i=1 To m a（i,1）=1：a（i,i）=1Next i For i=3 To m For j=2 To i-1 a（i,j）=a（i-1,j-1）+a（i-1,j） Nextj Next i Dim n%，k% n=42 For i=1 To m Picture1.Print Tab（n）； k=n Forj=1 To i Picture1.Print Tab（k）； Picture1.PrintFormat（a（i,j）,"@@@@@@"）； k=k+6 Next j Picture1.Print n=n-3 Next iEnd Sub 4）运行结果运行结果如图5.6所示。图5.6运行结果