1、”。DoLoop While流程图4-17所示如下：图4-17 DoLoop Until循环流程【例】执行下面程序代码：Private Sub Command1_Click()Counter=0myNum=9Do Until myNum=10myNum=myNum-1Counter=Counter+1If myNum10 Then Exit DoLoopMsgBox循环次数为： &CounterEnd Sub图4-184.4.3 WhileWend语句While.Wend语句构成当循环，只要指定的条件为True，则会重复执行一系列的语句。程序格式如下：While 条件语句组Wend其中：Whi
2、le、Wend是关键字。条件：是数值表达式或字符串表达式，其计算结果为True或False。如果“条件”为Null，则“条件”会视为False。语句组：为一条或多条语句，即循环体。当条件为True时执行。While.Wend语句的执行过程：首先判断条件，若为True，则执行语句组，一直执行到Wend语句。然后回到While语句，再一次检查“条件”，如果还是为True，则重复执行。如果不为True，则程序会从Wend语句之后的语句继续执行。While.Wend语句流程图4-19所示如下： 图4-19 While.Wend循环流程注意：While.Wend循环也可以是多层的嵌套结构。每个Wend匹
3、配它上面最近的While语句。【例】执行下面程序代码：Private Sub Command1_Click()Dim CounterCounter=0 设置变量初值。While Counter 19 时则循环终止。MsgBox 循环次数为： & CounterEnd Sub4.4.4 循环的嵌套多重循环结构在一个循环体内又包含了一个完整的循环，这样的结构称为多重循环或循环的嵌套。在程序设计时，许多问题要用二重或多重循环才能解决。我们前面学过的For循环、While循环、Do循环都可以互相嵌套，如在ForNext的循环体中可以使用While循环，而在WhileWend的循环体中也可以出现For循
4、环等。二重循环的执行过程是外循环执行一次，内循环执行一遍，在内循环结束后，再进行下一次外循环，如此反复，直到外循环结束。说明 嵌套的循环可以是ForNext循环，也可以是 DoLoop循环。 FOR循环有一个公共端点,可使用一个NEXT语句，循环变量按从内到外排列。 外循环必须完全包含内循环，不能交叉。 嵌套循环应选用不同的循环变量。【例】求 【例】公鸡5个钱一只，母鸡三个钱一只、小鸡一个钱三只，要用100个钱买100只鸡，问公鸡、母鸡、和小鸡各买几只？程序代码如下：Private Sub Form_Click()Dim I As Integer, J As Integer, K As Int
5、egerPrint Tab(5); 公鸡; Tab(15); 母鸡; Tab(25); _小鸡For I=0 To 20For J=0 To 33 For K=0 To 100 Step 3If I*5+J*3+K3=100 And I+J+K=100 ThenPrint Tab(5); I; Tab(15); J; Tab(25); KEnd IfNext K, J, IEnd Sub4.4.5 几种循环语句比较一般情况下，4种循环语句可以相互代替，其中WhileWend语句与Do while.Loop语句等价，下表4-2给出了各种循环语句的区别。表4-2 For.toNextDo whil
6、e/until.LoopDo.Loop While/until.循环类型当型循环当型循环直到循环循环控制条件循环变量大于或小于终值条件成立/不成立执行循环条件成立/不成立执行循环循环变量初值在FOR语句行中在DO之前在DO之前使循环结束For语句中无需专门语句必须用专门语句必须使用专门语句使用场合循环次数容易确定循环/结束控制条件易给出循环/结束控制条件易给出4.4.6 循环结构与选择结构的嵌套在循环结构中可以完整嵌套选择结构即整个选择结构都属于循环体。在选择结构中嵌套循环结构时，则要求整个循环结构必须完整地嵌套在一个分支内，一个循环结构不允许出现在两个或两个以上的分支内。下面用几个例子(如图
7、4-22)来说明：图4-224.5.1 Goto语句Goto 语句无条件地转移到它所在过程中指定的行。其格式为：Goto 其中： Goto是关键字。 ：是任何字符额组合，不区分大小写，必须以字母开头，以冒号（：）结尾。标号必须是放在行的开始位置。 ：行号可以是任何数值的组合，在使用行号的模块内，该组合是唯一的。标号必须是放在行的开始位置。 在程序中的使用格式为：标号|行号：语句例如Line1:X=0注意：1、Goto只能跳到它所在过程中的行。2、在一个过程中，标号或行号都必须是唯一的。3、太多的Goto语句，会使程序代码不容易阅读及调试。尽可能使用结构化控制语句 (Do.Loop、For.Ne
8、xt、If.Then.Else、Select Case)，应尽量避免使用它。4.5.2 Exit语句Exit语句用于退出Do.Loop、For.Next、Function或Sub代码块。对应的使用格式为：Exit Do、Exit For、Exit Function、Exit Sub。分别表示退出DO循环、For循环、函数过程、子过程。格式：Exit DoExit ForExit FunctionExit PropertyExit Sub它们都是关键字。在程序中的作用如下： Exit Do提供一种退出Do.Loop循环的方法，并且只能在Do.Loop循环中使用。 Exit For提供一种退出Fo
9、r循环的方法，并且只能在For.Next或For Each.Next循环中使用。 Exit Function立即从包含该语句的Function过程中退出。程序会从调用 Function 的语句之后的语句继续执行。 Exit Property立即从包含该语句的Property过程中退出。程序会从调用Property过程的语句之后的语句继续执行。 Exit Sub立即从包含该语句的Sub过程中退出。程序会从调用Sub过程的语句之后的语句继续执行。【例】使用Exit语句退出For.Next循环、Do.Loop循环及子过程。Private Sub Form_Click()Dim I, OneNumDo
10、 建立无穷循环For I=1 To 1000 循环1000次OneNum=Int(Rnd*1000) 生成一随机数码Select Case OneNum 检查随机数码Case 7: Exit For 如果是7，退出For循Case 29: Exit Do 如果是29，退出Do循环Case 54: Exit Sub 如果是 54，退出子过程End SelectNext IEnd Sub4.5.3 End语句格式：End功能：结束一个程序的运行。End语句不调用Unload、QueryUnload、或 Terminate事件或任何其它Visual Basic代码，只是生硬地终止代码执行。关闭由Op
11、en语句打开的文件，并且释放程序所占用的内存。在Visual Basic中还有多种形式的End语句，用于结束一个程序块或过程。其形式有：End IfEnd SelectEnd TypeEnd WithEnd SubEnd Function等它们与对应的语句配对使用。【例】Private Sub Command1_Click（）EndEnd Sub该过程用于结束程序，即单击命令按钮Command1时，结束程序的运行。4.5.4 暂停语句Stop语句用来暂停程序的执行，相当于在事件代码中设置断点。格式：Stop说明： Stop语句的主要作用是把解释程序置为中断(Break)模式，以便对程序进行检查
12、和调试。可以在程序的任何地方放置Stop语句，当执行Stop语句时，系统13.1.1 数据库技术的产生与发展数据库技术是应数据管理任务的需要而产生的。数据管理就是对数据进行分类、组织、编码、存储、检索和维护。数据管理分为：手工管理文件管理数据库管理。 数据库功能有：数据的组织，数据的管理。 一、数据的组织数据库(Data Base，简称DB)：是以一定方式组织并存储在一起的相互有关的数据的集合。按数据组织方式的不同，数据库分为三种模型： 关系数据库 层次数据库 网状数据库二、数据的管理数据库管理系统(DataBase Management System, 简称 DBMS)：是用户与数据库之间的
13、接口，提供对数据库使用和加工的操作，如对数据库的建立、修改、检索、计算、统计、删除等。VB可以处理多种数据库: 如Access、FoxPro、DataBase、Excel、Paradox等格式的数据库。图13-1 数据库与计算机系统的关系13.1.2 数据库的基本概念根据数据模型，即实现数据结构化所采用的联系方式，数据库可以分为层次数据库、网状数据库和关系数据库。 一、关系数据库的有关概念 1、表表：将相关的数据按行和列的形式组织成二维表格即为表，表通常用于描述某一个实体。2、表名称表名称：每个数据表的名称。3、关系数据库关系数据库：将数据存储在一些二维表中，然后 通过建立各表之间的关系来定义
14、数据库的结构。一个数据库通常包含多个数据表。4、数据库名称数据库名称：ACCESS数据库扩展名为.mdb【例】“学生.mdb”数据库。（1）“学生基本信息”表13-1。表13-1学号姓名性别班级出生日期专业编号200010101黄龙男网2002820621001200010102梅阳男计9907001200030101李小敏女英2101005（2）“专业”表13-2。表13-2专业编号专业名称系编号001自动控制001002输配电002006网络工程003（3）“系”表13-3。表13-3系编号系名称001自动化002电 气003计算机以上三个表构成一个数据库。“学生基本信息”表与“专业”表通
15、过“专业编号”建立关系。“专业”表与“系”表通过“系编号”建立关系。二、表的结构记录（行）：二维表中的每一行称为一个记录（Record）。字段（列）：二维表中的每一列称为一个字段（Field）。字段名:每一列均有一个名称，称为字段名，各字段名互不相同。 字段类型：每个字段一种类型。表的结构按字段定义。如下表13-4表13-4表名字段名字段类型字段宽度学生基本信息学号Text9姓名Text10性别Text2班级Text7出生日期Data8专业编号Text3专业专业编号Text3专业名称Text20系编号Text3系系编号Text3系名称Text201、表中的关键字 （1）候选关键字：如果表中的某
16、个字段或多个字段组合，能唯一地确定一个记录，称该字段或多个字段组合为侯选关键字。侯选关键字可以有多个。（2）主关键字：只能有一个。2、表间的关联按照某一个公共字段建立的一个表中记录同另一个表中记录之间的关系。有一对一、一对多(或多对一)、多对多关系。3、外部键实现与另一个表之间沟通的字段称为“外部键”。外部键与其他表的主关键字相匹配。4、索引（1）为了加速查找而引入，提高数据库的访问效率。（2）表中的记录按某个字段(或字段组合)排序，建立一个较小的表索引表。（3）每个表中只含有索引字段和记录号。可以有多个索引，但只能有一个是主索引。（4）每个索引有一个名称。（5）表中通过索引表可以快速确定要访
17、问记录的位置。13.2.1 建立数据库VB提供了两种方法建立数据库，分别是：可视化数据管理器和数据访问对象（DAO）。 一、可视化数据管理器使用可视化数据管理器建立的数据库是Access数据库（类型名为.mdb），可以被Access直接打开和操作。在VB环境下，执行“外接程序”菜单中的“可视化数据管理器”命令，即可打开如图13-2所示的“可视化数据管理器”窗口。 图13-2二、建立数据表以建立一个如下结构的学生表13-5为例：表13-5 学生成绩表的结构字段名称字段类型字段长度学号Text7姓名Text10数学Single4英语Single4计算机Single4建立过程请参见动画演示：三、建立
18、索引单击“表结构”对话框的“添加索引”按钮，在弹出的对话框中（如图13-7所示）输入索引名称，选择索引字段后，单击“确定”按钮即完成了索引的建立过程。图13-7 “添加索引”对话框图13-8 “数据库”窗口13.2.2 数据库的基本操作要对数据库输入、编辑、删除、排序、查找等操作，使用“可视化数据管理器”中“文件”菜单的“打开数据库”命令。右击“数据库窗口“中的表名，在弹出的菜单中选择“打开”命令后，即可打开如图13-9所示输入数据窗口。完成数据库的基本功能操作：1、输入数据；2、编辑数据；3、删除数据；4、排序数据；5、过滤数据；6、移动数据；7、查找数据。图13-9 输入数据窗口13.3.
19、1 数据控件（Data）一、功能数据控件（Data）提供了一种方便地访问数据库中数据的方法，使用数据控件无须编写代码就可以对VB所支持的各种类型的数据库执行大部分数据访问操作。 数据控件本身不能显示和直接修改记录，只能在与数据控件相关联的数据约束控件中显示各个记录。 可以作数据约束控件的标准控件有以下8种：文本框、标签、图片框、图像框、检查框、列表框、组合框、OLE控件。二、数据控件属性 Connect属性指定数据库类型。VB可识别的数据库有：MDB文件、DBF文件、DB文件、DF文件和ODBC数据库。 DatabaseName属性指定具体使用的数据库。 RecordType属性确定记录集合类型。 RecordSource属性确定具体可访问的数据。 EofAction和BofAction属性决定数据控件要采取的操作。 RedaOnly属性用于控制能否对记录集进行写操作。要使关联控件能被数据库约束，必须对控件的两个属性进行设置。 DataSource属性通过指定一个有效的数据控件连接一个数据库。 DataField属性设置数据库有效的字段。三、数据控件方法（
个人主页