界面设计与Visual Basic（第4版） PDF下载

编辑推荐

1. 全书把所有教学内容组织成例题，将语法介绍和控件使用融为一体，克服了语法知识的枯燥性，分散难点，使学生在有趣的例题中学习语法、了解对象的使用方法；2. 每章内容分成基础部分和提高部分，有利于分层教学，缓解课时紧张问题；3. 为涉及算法的例题增设编程点拨；4. 通过具体例题分阶段介绍调试方法；5. 增设项目实战案例，将各章所学内容综合运用，由易到难，*终实现具有较强实用性的花卉管理系统；6. 每章增设章节练习，其中包括基本功能要求、拓展要求、提示等；7. 每章首部提供本章主要内容和各例题的知识要点，在附录中提供对象、基本语法的索引和单号习题答案；8. 配备课件，内容包括电子教案、全书所有例题的代码以及习题的可执行文件。；

内容简介

本书是以Visual Basic(简称VB)程序设计零起点读者为主要对象的程序设计教材，2004年8月、2009年12月、2014年8月分别出版了第1版、第2版和第3版。第1版和第2版被评为北京市高等教育精品教材，本次再版进一步强化了编程能力的培养，增加了项目综合实战内容并提高了趣味性。　　全书选用趣味性、针对性强的例题组织内容，并将语法介绍和控件使用融为一体，克服了语法知识的枯燥性。全书共分9章，分别是Visual Basic概述（使用窗体、标签等）、顺序结构程序设计（使用图像框、多窗体等）、分支结构程序设计（使用单选按钮、复选框、菜单等）、循环结构程序设计（使用列表框、PSet等）、数组（使用形状、控件数组等）、过程（使用标准模块等）、文件（使用文件系统控件等）、访问数据库（使用ADO等）和VB综合实战。全书各章内容分成基础部分和提高部分，并在各章首部提供本章主要内容和知识要点，每章末尾有章节练习，*后一章提供完整项目实战案例，通过具体实例分阶段介绍调试程序的方法。附录提供对象和基本语法的索引、上机考试样题、单号习题答案。本书配有电子教案和源代码等素材。本书可作为高等院校Visual Basic程序设计课程的教材，也可作为自学者的指导书。

作者简介

暂无

界面设计与Visual Basic（第4版） PDF下载

目录
界面设计与Visual Basic（第4版）第1章Visual Basic概述1
1.1什么是Visual Basic1
1.2安装Visual Basic程序2
1.3设计Visual Basic程序的步骤4
1.4Visual Basic的特点14
1.5提高部分15
1.5.1可视化集成开发环境15
1.5.2对象和类的概念18
1.5.3属性、事件和方法18
1.6章节练习19
习题121
基础部分21
提高部分22
第2章顺序结构程序设计24
2.1结构化程序设计的三种基本结构25
2.2VB语言基础25
2.2.1VB语句的书写规则25
2.2.2常量、变量及变量定义26
2.2.3算术运算符与表达式29
2.3数据赋值30
2.4数据输出33
2.4.1用标签输出数据33
2.4.2用消息框输出数据35
2.4.3用图像框输出图形数据37
2.4.4用窗体输出数据39
2.5数据输入42界面设计与VisualBasic （第4版）目录2.5.1用文本框输入数据42
2.5.2用滚动条输入数据44
2.5.3用输入框输入数据46
2.6提高部分48
2.6.1窗体与常用控件的进一步介绍48
2.6.2消息框与输入框54
2.6.3常用数据类型介绍56
2.6.4常用内部函数汇总58
2.6.5文件路径的概念60
2.7章节练习61
习题264
基础部分64
提高部分67
第3章分支结构程序设计70
3.1关系、逻辑运算符与表达式71
3.1.1关系运算符与表达式71
3.1.2逻辑运算符与表达式72
3.2If语句74
3.2.1使用If语句处理简单分支问题74
3.2.2使用嵌套的If语句处理多分支问题83
3.3使用Select Case语句处理多分支问题86
3.4菜单设计90
3.5提高部分95
3.6章节练习99
习题3101
基础部分101
提高部分106
第4章循环结构程序设计108
4.1用ForNext语句处理循环问题109
4.2认识Do WhileLoop和DoLoop While语句118
4.3循环语句的嵌套120
4.4提高部分123
4.4.1组合框123
4.4.2自行画图126
4.5章节练习130
习题4133
基础部分133
提高部分135
第5章数组137
5.1一维数组138
5.2控件数组145
5.3提高部分146
5.3.1数组的高级应用146
5.3.2二维数组149
5.4章节练习152
习题5153
基础部分153
提高部分156
第6章过程158
6.1过程的定义与调用159
6.1.1函数（Function）过程的定义与调用159
6.1.2子程序（Sub）过程的定义与调用165
6.2变量的作用域168
6.2.1过程级变量及其作用域168
6.2.2窗体级变量及其作用域169
6.2.3程序级变量及其作用域171
6.3标准模块172
6.4提高部分176
6.4.1静态变量的使用176
6.4.2过程的递归调用177
6.5章节练习181
习题6182
基础部分182
提高部分183
第7章文件185
7.1文件概述186
7.2文件浏览187
7.3顺序文件的读写操作189
7.4提高部分194
7.4.1文件系统控件与通用对话框194
7.4.2记录类型198
7.4.3文件的进一步介绍200
7.4.4常用文件操作语句和函数204
7.5章节练习209
习题7212
基础部分212
提高部分213
第8章访问数据库216
8.1数据库的概念与建立216
8.1.1数据库概念216
8.1.2数据库和表的建立217
8.2用ADO控件访问数据库219
8.3提高部分228
8.4章节练习235
习题8237
基础部分237
提高部分238
第9章VB综合实战240
9.1系统功能240
9.2数据库结构设计242
9.3其他文件准备243
9.3.1图片素材243
9.3.2音频素材244
9.3.3文本素材244
9.4各模块功能实现245
9.4.1“观花”窗体的实现245
9.4.2“寻花”窗体的实现248
9.4.3“看图识花”窗体的实现251
9.4.4“新花”窗体的实现255
9.4.5“养花小窍门”对话框的实现258
9.4.6MDI主窗体的实现260
9.4.7子窗体与主窗体的配合263
9.5改进与提高264
附录A常用字符与ASCII代码对照表266
附录B对象、基本语法索引267
附录C单号题参考答案269
附录D上机考试样题290
参考文献294

前沿

前言

界面设计与Visual Basic（第4版）学习Visual Basic的目的是利用其可视化的编程工具，开发应用程序。为此需要做两方面的工作: 设计用户界面和编写程序代码。由于设计界面相对容易，因此开发Visual Basic应用程序的关键是如何编写能够实现相应功能的程序代码。

　　本书2004年8月、2009年12月、2014年8月分别出版了第1版、第2版和第3版，第1版和第2版被评为北京市高等教育精品教材，本次再版进一步强化了编程能力的培养，增加了项目综合实战内容并提高了趣味性。

　　本书采用独特、灵活的内容组织形式，深入浅出地介绍了界面设计和代码编写的思想方法，在着力增加趣味性的前提下，强化本课程的实践性，以期达到事半功倍的教学效果。目前，许多高等院校将“Visual Basic程序设计”作为非工科专业的第一门程序设计课程。本书是作者在围绕“教师方便教，学生容易学”的主题，开展一系列的探索与实践活动后，以零起点读者为主要对象编写的程序设计教材，因此可作为高等院校，尤其是应用型本科院校的教材，也可作为自学者的参考书。

　　本书具有如下特点:

　　（1）每章内容分成基础部分和提高部分。将常用对象的属性、事件、方法以及语法知识等必须掌握的内容放在基础部分中；将具有扩展性和提高性的内容安排在提高部分中。通过基础部分的学习，掌握常用对象的使用方法和基本语法，初步建立可视化程序设计的思维方式，具备编写一般应用程序的能力。提高部分可根据学生能力或课时安排等因素自主选学，但其不影响后续章节的学习。

　　（2）所有教学内容组织成例题。根据知识要点精心编写例题，提供大量、有趣的规范化程序。通过对例题的分析和讲解，强化语法知识，归纳对象的使用特点。

　　（3）涉及算法的例题增设编程点拨。针对学生“设计界面易，编写代码难”的情况，书中凡涉及算法的例题，在给出其代码之前，都增设了编程点拨。

　　（4）在各章开头提供本章主要内容和例题的知识要点列表，在各章末尾提供章节练习环节。每道练习题均包含题目基本要求，根据题目难度有的增加了提示和拓展模块。在附录B中提供对象、基本语法的索引。

　　（5）分阶段介绍调试方法。为了培养学生调试程序、排除错误的能力，本书分阶段通过具体例题介绍了调试程序的方法。

　　（6）提供项目实战案例。本书以“繁花似锦”为实例，围绕花卉的相关知识，综合运用多种控件以及文件、数据库等，从界面设计到代码编写，由浅入深，逐步完善整个系统。通过项目实战，不但可以巩固所学的内容，而且可以训练学生的综合设计能力，培养严谨的设计思维。

　　（7）习题形式新颖，提供单号习题答案。与教材内容相对应，各章习题也分为基础和提高两部分。为了逐步提高学生的编程能力，精心编写了形式新颖的习题，并提供单号习题答案，以方便学生自测和教师布置作业。

　　（8）配备课件。提供包括电子教案、全部例题代码及习题可执行文件在内的学习资料。为了减轻教师备课负担，本书将基础部分中的所有内容制作成生动的电子教案。通过运行习题的可执行文件，使读者在着手做题前充分了解习题的功能要求和运行效果。

　　使用建议:

　　（1）基础部分必学。基础部分是学生必须掌握的知识，在教学过程中教师可将部分例题留给学生自学。

　　（2）提高部分选学。书中的提高部分是为了帮助读者更上一层楼，教师可以根据实际情况，选择其中部分内容进行介绍。为了提高学生的上机编程和调试能力。

　　（3）章节练习中提供的提示仅供参考，有余力的学生应继续完成拓展功能。

　　（4）单、双号习题成对做。单号习题提供参考答案，双号习题则在类型上与前一单号习题相同，知识点也接近。基础部分中提供的习题都是最基本的，题量也不多，建议读者全部完成，提高部分中的习题可根据情况选做。

　　本书中的所有程序均在Visual Studio 6.0版本下运行通过。

　　全书由北京联合大学的梁爱华、齐华山主编和统稿，徐歆恺、李红豫和孙力红参加了部分章节的编写。

由于工作变动等原因，本书前三版的主编崔武子教授不再参加本书的改版工作。本书得到崔老师授权改版，在此特向崔老师对本书的贡献表示感谢。

　　在使用前三版教材和编写第4版的过程中，得到了多年共同参加精品课程建设的全体团队成员的大力支持和帮助，在此表示衷心的感谢。

　　限于作者水平，书中难免有错误和疏漏之处，恳请读者批评和指正。

；

作者

2018年2月界面设计与VisualBasic （第4版）前言

；

本书特点

界面设计与Visual Basic（第4版）　　1. 全书所有教学内容组织成例题，将语法介绍和控件使用融为一体，克服了语法知识的枯燥性，分散难点，使学生在学习有趣的例题中，学习语法、了解对象的使用方法；

　　2. 每章内容分成基础部分和提高部分，有利于分层教学，缓解课时紧张问题；

　　3. 为涉及算法的例题增设编程点拨；

　　4. 通过具体例题分阶段介绍调试方法；

　　5. 本书增设项目实战案例。将各章所学内容综合运用，由易到难，最终实现具有较强实用性的花卉管理系统；

　　6. 每章增设章节练习，其中包括基本功能要求、拓展要求、提示等；

　　7. 每章首部提供各例题的知识要点，在附录中提供对象、基本语法的特殊形式的索引和单号习题答案；

8. 配备课件，该课件包括电子教案、全书所有例题的代码以及习题的可执行文件。

免费在线读

第5章数组本章将介绍的内容[4/5]基础部分： 数组的定义和数组元素的引用。 控件数组的概念。 求平均值、最大（小）值；查找和排序算法。提高部分: ； 数组的高级应用。各例题知识要点例5.1数组的概念；数组的定义；引用数组元素。例5.2一维数组的应用: 逆序输出。例5.3一维数组的应用: 求最大（小）值；顺序查找。例5.4冒泡排序。例5.5控件数组。（以下为提高部分例题）例5.6选择法排序。例5.7二维数组。例5.8过程调用时传递数组参数。例5.9动态数组。在计算机应用领域中，常常遇到需要对批量数据进行处理的情况，如统计大量的学生考试成绩和求平均值等。这类问题通常都具有数据处理量大、各数据间存在内部联系的特点。如果单纯采用简单变量处理这些数据，不但烦琐而且对于某些问题还可能根本无法解决。在VB中，通常使用数组解决这类问题。所谓数组，就是由一组（若干个）类型相同的相关变量结合在一起而构成的集合；而构成数组的每一个变量称为数组元素。作为同一数组中的元素，它们都使用统一的变量名称，只是通过不同的下标加以区分。只有一个下标的数组称为一维数组，有两个下标的数组称为二维数组。界面设计与Visual Basic（第4版）第5章数组5.1一维数组【例5.1】数组引例。窗体上添加3个标签和2个命令按钮，其中第3个标签的AutoSize属性为True。程序运行时，随机产生10个两位整数显示在黄色标签中；单击“平均值”按钮，计算该10个数的平均值，显示在蓝色标签中，如图51所示；单击“大于平均值”按钮，找出该10个数中大于平均值的整数，显示在蓝色标签中，如图52所示。注意，只有在计算出平均值后，“大于平均值”按钮才有效。图51计算10个数据的平均值图52显示大于平均值的数据【解】将标签AutoSize属性设置为True时，其大小可根据显示内容的长度自动进行调整。为了实现产生随机数据、计算平均值的功能，可编写代码如下: ； Dim sum As Long定义窗体级变量,存放10个整数的累加和； Private Sub Form_Load() ； Dim a As Long ；；； Dim i As Long ；；； Randomize 产生随机种子；；； For i= 1 To 10 ；；；；a= Int(Rnd  90) ；10产生一个10到99之间的整数a ；；；；； lblData.Caption= lblData.Caption &； "" &； a连接显示a ；；；；； sum= sum ；a 将a累加到sum中；；； Next ； End Sub ；；； Private Sub cmdAve_Click() 单击“平均值”按钮；；lblAve.Caption= "平均值是" &； sum / 10 ；；； cmdLarge.Enabled= True使“大于平均值”按钮可用； End Sub在Form_Load过程的For循环中，使用变量a依次存放10个随机数据，待循环结束时sum中存放了10个数据的累加和，而a中仅保留了最后一个随机数据。但是，为了进一步找出大于平均值的各个数据，就必须要全部保存10个整数，以便在计算出平均值后，再通过比较判断，依次得到大于平均值的各数据。为此，不能只定义1个变量a，而需要定义10个变量，如a1，a2，…，a10。由于各变量相互独立，不能再使用ForNext语句产生数据。修改后的程序代码如下: ； Dim sum As Long以下11个变量在两个事件中都要使用,定义为窗体级变量； Dim a1 As Long 以下定义10个窗体级变量,分别存放10个随机数； Dim a2 As Long ；；；；； ； Dim a10 As Long ；；； Private Sub Form_Load() ；；Randomize ；；； a1= Int(Rnd  90) ；10以下10条语句产生10个随机数并保存；；； a2= Int(Rnd  90) ；10 ；；；；  ；；； a10= Int(Rnd  90) ；10 ；；； lblData.Caption= a1 &； " ；" &； a2 &； ... &； a10显示10个数据；；； sum= a1 ；a2 ；... ；a10 累加10个数据； End Sub ；；； Private Sub cmdAve_Click()单击“平均值”按钮；；lblAve.Caption= "平均值是" &； sum / 10 ； cmdLarge.Enabled= True End Sub Private Sub cmdLarge_Click() 单击“大于平均值”按钮 Dim ave As Double ave= sum / 10 lblAve.Caption= "" If a1 > ave Then 以下10个If语句,找出大于平均值的各数据 lblAve.Caption= lblAve.Caption & a1 & "" End If If a2 > ave Then lblAve.Caption= lblAve.Caption & a2 & "" End If  If a10 > ave Then lblAve.Caption= lblAve.Caption & a10 End If End Sub这样烦琐的程序才仅对10个数据进行处理，若要求对100个、1000个甚至更多的批量数据进行同样的处理，则代码量激增，令人无法接受。使用本章介绍的数组解决此类批量处理问题，将使整个程序代码书写简洁、清晰。使用数组实现例6.1功能的程序代码如下: Dim sum As Long Dim a(1 To 10) As Long 定义数组a,包含10个Long类型的元素 Private Sub Form_Load() Dim i As Long Randomize For i= 1 To 10 a(i)= Int(Rnd  90) 10 产生随机数,存放在下标为i的元素中 lblData.Caption= lblData.Caption & a(i) & " " sum= sum a(i) 将下标为i的元素值累加到sum中 Next End Sub Private Sub CmdAve_Click() lblAve.Caption= "平均值是" & sum / 10 cmdLarge.Enabled= True End Sub Private Sub CmdLarge_Click() Dim ave As Double Dim i As Long ave= sum / 10 lblAve.Caption= "" For i= 1 To 10 If a(i) > ave Then 判断下标为i的元素是否大于平均值ave lblAve.Caption= lblAve.Caption & a(i) & ""连接a(i) End If Next End Sub程序说明: （1）采用数组后可以方便地使用同一个数组名代表逻辑上相关的一批变量（10个），而为了表示不同的数组元素，只需要简单地指出该元素的下标即可。（2）语句Dim a(1 To 10) As Long定义了一个名为a的一维数组，它包含10个元素: a(1)，a(2)，…，a(9)，a(10)，其中每一个元素都是一个Long类型的变量，也就是说，在每个元素中只能存放整型数据。请注意: 在使用数组前，必须对其进行定义。VB中定义一维数组的一般形式如下: 　　　　Dim数组名([下界 To ]上界)As数据类型其中，上界和下界规定了数组元素下标的取值范围，它们的值不得超过Long数据类型的范围。数组中所包含元素的个数为: 上界-下界 1。若省略[下界 To]，则系统默认下界为0。例如: Dimb(-2 To 3) AsLong定义了一维数组b，其中包含6个Integer型元素： b(-2)，b(-1)，b(0)，b(1)，b(2)，b(3)；Dimx(4)AsString定义了一维数组x，其中包含5个字符型元素x(0)，x(1)，…，x(4)。（3）数组名的命名规则与变量名相同。（4）数组元素代表内存中的一个存储单元，它可以像普通变量一样使用，只不过数组元素用下标形式表示。引用一维数组元素的一般形式是数组名(下标)注意: 下标的取值范围应在定义该数组时所限定的[下界，上界]范围内，不得越界。（5）系统为数组中的元素分配连续的内存单元。如图53所示为数组a在内存中的存储结构示意图，系统为其分配10个连续的存储单元（4B×10=40B）。图53数组的存储结构示意（6）由于在多个事件过程中都要用到变量sum和数组a，所以将它们定义为窗体级。【例5.2】窗体上添加4个标签和1个命令按钮。程序运行时，随机产生20个两位整数，显示在黄色标签中，如图54所示；单击“逆序输出”按钮，在绿色标签中逆序显示各个整数，如图55所示。图54运行初始界面图55逆序输出【解】为了逆序输出各数据，必须要全部保存20个整数，如果使用普通的变量存储，需定义20个不同的变量，处理起来十分烦琐。而且当处理的数据量增加到上百甚至上千时，采用普通的变量存储的方法便无法适用。因此，这种情况下，我们引入数组存储一组同类型的内部有联系的变量。程序代码如下: Option Base 1指定数组默认的元素下标下界 Dim a(1 to 20) As Long 定义窗体级数组a,包含20个整型元素 Private Sub Form_Load() Dim i As Long For i= 1 To 20 a(i)= Int(Rnd  90) 10产生随机数,存放在下标为i的元素中 lblData.Caption= lblData.Caption & a(i) & " "将a(i)连接到标签中 Next End Sub Private Sub CmdRev_Click() Dim i As LongFor i= 20 To 1 Step -1 逆序输出 lblOut.Caption= lblOut.Caption & a(i) & " " Next End Sub程序说明: （1）语句Option Base 1的作用是，在定义数组时若省略[下界 To]，则默认元素的下标从1开始。因此，本例中语句Dim a(10) As Long等价于Dim a(1 To 10) As Long。出现在Option Base 后面的数字只能是0或1，如果是0，则元素下标从0开始（此时该语句没有实质意义）。（2） Option Base语句必须出现在数组定义之前，且位于所有事件过程的前面。其作用范围仅限于出现在同一代码窗口且在定义时未指出下标下界的数组。在一个代码窗口中，Option Base语句只能出现一次。（3）通常情况下，数组操作总是借助于循环语句实现。在例5.1和例5.2中，正是使用了ForNext语句，巧妙地利用循环变量i与数组元素下标的一一对应关系实现了对数组元素的逐一引用，并对数组元素进行相应的处理。现实生活中的许多问题都可以使用数组解决。为了更好地掌握数组的应用，应在平时的编程练习中注意多模仿、多实践，不断总结经验，提高独立编程能力。【例5.3】窗体上添加6个标签和1个命令按钮。程序运行时，随机产生10个1～100的整数显示在黄色标签中，如图56所示；单击“查找”按钮，找出该10个数中的最大值，显示在蓝色标签中，将最大值所在的位置显示在绿色标签中，如图57所示。图56运行初始界面图57查找最大值及位置【解】题目要求查找一组数中的最大值及其所在位置，需要将这组数保存到数组中，并根据数组的下标确定数据元素所在的位置。一种简单的方法是定义数组时下标从1开始，这样数组元素下标就与位置完全对应。程序代码如下: Dim a(1 To 10) As LongPrivate Sub CmdSearch_Click()Dim i As Long Dim j As Long Dim Max As Long Max= a(1) j= 1 For i= 2 To 10 If Max< a(i) Then Max= a(i) j= i End If Next LblMax.Caption= Max LblIndex.Caption= jEnd Sub
Private Sub Form_Load()Dim i As Long Randomize For i= 1 To 10 a(i)= Int(Rnd  100) 1 LblData.Caption= LblData.Caption & " " & a(i) NextEnd Sub 程序说明: （1） Dim a(1 To 10) As Long定义了窗体级的数组a，且下标从1开始。Max和j两个变量分别保存当前数组元素中的最大值和下标。查找中首先将两个变量分别赋值为第一个数组元素的值和下标。通过循环依次对后续的9个数组元素进行顺序查找。最后将这两个变量的值显示在界面对应的标签中。（2）如果定义数组时下界省略，则数组元素下标从0开始。此时，元素所在位置与下标之间差1，界面上显示时就需要将下标 1。【例5.4】冒泡排序。窗体上添加4个标签和2个命令按钮。程序运行时，单击“产生数据”按钮，随机产生10个1～100的整数显示在黄色标签中，如图58所示；单击“冒泡排序”按钮，用冒泡排序法对黄色标签中的整数按照从小到大的顺序排序，显示在绿色标签中，如图59所示。图58产生数据图59冒泡排序【解】题目要求将一组数用冒泡排序法从小到大排序。首先需要将这组数保存到数组中，然后按照冒泡排序的方法进行排序。冒泡排序的思想是: 比较相邻的两个元素，如果第一个比第二个大，就交换它们两个。从前往后对每一对相邻元素做同样的工作，至此最后的元素应该是最大的数，第一轮比较结束。第二轮则对除最后一个元素外的其他元素重复上述步骤。后续每一轮都对持续减少的元素重复上述过程，直到没有任何一对元素需比较，则排序结束。程序代码如下: Dim a(9) As LongPrivate Sub CmdRnd_Click()　Dim i As Long Randomize For i= 0 To 9 a(i)= Int(Rnd  90) 10 LblBefore.Caption= LblBefore.Caption & " " & a(i) NextEnd Sub
Private Sub CmdSort_Click()Dim i As Long Dim j As Long Dim t As Long For i= 1 To 9 For j= 0 To 9 - i If a(j) > a(j 1) Then t= a(j) a(j)= a(j 1) a(j 1)= t End If Next Next For i= 0 To 9 LblAfter.Caption= LblAfter.Caption & " " & a(i) NextEnd Sub程序说明: （1） Dim a(9) As Long定义了窗体级的数组a，由于下界省略，因此下标为0～9，共10个元素。定义两个循环变量i和j，i表示冒泡排序的轮次，共需9轮；j则表示每轮中比较的元素下标范围。随着轮次增加，需比较的元素持续减少。（2）如果排序要求是从大到小，则只需要在比较时将判断语句改为a(j) > a(j 1)时交换即可。5.2控件数组【例5.5】利用单选按钮设置不同字体。要求当单击某个单选按钮时，改变标签中文字的字体，界面如图510所示，执行界面如图511所示。图510设计界面图511字体选择【解】本例中字体的选择采用的都是单选按钮，类型相同，而且这4个单选按钮的名称就是字体名称。下面采用控件数组实现。程序代码如下: Private Sub OptFont_Click(Index As Integer) LblTitle.Font= OptFont(Index).Caption End Sub程序说明: （1）将具有相同类型和名称的一组控件称为控件数组。以本例题中的4个单选按钮为例，它们都属于同一控件类型——单选按钮，且具有相同的控件名OptFont，因而这4个单选按钮就是一个控件数组。与前面介绍的数组类似，可通过索引号（Index属性）标识和区分同一控件数组内的各个控件。（2）在设计阶段，添加第1个单选按钮后，其Index属性值是空的，但把第1个按钮复制3次并创建成单选按钮控件数组后，此时4个单选按钮的Index属性自动变为0、1、2、3，这是系统默认设置的结果。实际上也可以通过Index属性人为指定索引号，其取值范围是0～32 767，但对于同一控件数组中的各控件，索引号必须互不相同。（3）在设计时，使用控件数组比直接向窗体中添加相同类型的多个控件所消耗的资源要少；而且对于同一控件数组中的各控件，它们都共享相同的事件过程，从而可减少程序的编码量。（4）程序运行时无论单击哪一个单选按钮，都会触发OptFont_Click事件过程。当单击Arial按钮时，将调用OptFont的公共事件过程OptFont_Click，并将该按钮的索引号0赋予参数Index，再根据Index的不同取值而执行相应操作。同理，单击Times New Roman按钮时，也将执行OptFont_Click事件过程，并将索引号3传递给Index参数，即同一控件数组中的各控件共享同一事件过程。（5）引用控件数组中各控件对象的方法是: 控件数组名(索引号)如OptFont(0)代表OptFont数组中索引号为0的单选按钮，即Arial按钮；OptFont(0).Caption则引用的是索引号为0的单选按钮的Caption属性。5.3提高部分〖1〗5.3.1数组的高级应用【例5.6】删除数组元素。窗体上添加5个标签、1个文本框和1个命令按钮，如图512所示。程序运行时，随机产生10个两位整数显示在黄色标签中，在文本框中输入要删除数组元素的下标，单击“删除”按钮，将指定下标的数组元素删除，并将删除后的新数组显示在绿色标签中，如图513所示。