21章学会VB——第三章程序控制结构.pptVIP

End语句用于结束一个过程或代码块。读者有时会将End语句和Exit语句混淆。Exit语句用于退出代码块，而End则是表示代码块到此处结束。 End语句 With语句用于定制一个对象或读者自定义类型。With语句不仅方便读者定制对象，也可增强代码的可读性使得程序结构更加清晰。With语句的语法如下。 With对象 [语句组] End With With语句 编写一个程序，利用循环语句在窗体上输出如图3.32所示的图案。 【提示】用两层循环结构来进行控制。 综合练习 1. Visual Basic 6.0中提供了哪些程序结构？试简述每种结构的工作流程。 2．请简述Do While...Loop语句语句和Do...Loop While语句的区别。 3．请简述GoTo语句的利弊。 4. 编写程序，求出1000之内的所有完数。完数是指一个数恰好等于它的因子之和。例如，6的因子为1、2、3，而6=1+2+3，即6是完数。 思考和习题 第三讲 程序控制结构 顺序结构 选择结构 循环结构 其他结构控制语句 综合练习 思考和习题 课程内容安排 顺序结构是一种线性结构，即程序语句按照其在程序中书写的先后顺序执行。就像我们日常生活一样，在每天起床后，总是先穿衣服，然后洗漱、吃早饭、上班，事情一件一件地按照既定顺序执行，如图3.1所示。不能早晨起床先吃早饭再去洗漱，这就不符合生活顺序了。 顺序结构是程序控制结构中最简单的一种结构。第1章和第2章中出现的程序结构多为顺序结构。本节简要地介绍顺序结构及赋值语句。顺序结构的流程如图3.2所示。 顺序结构 赋值语句用于将表达式的值赋给变量或对象的属性，是程序设计中最基本、最常用的语句。赋值语句的本质就是将数值送到变量或者对象属性所在的存储单元中，通过Let关键字使用赋值运算符“=”给变量或对象属性赋值。赋值语句的语法如下所示。 [Let]变量名=表达式 赋值语句 顺序结构实例 01 顺序结构演示 02 Private Sub Form_Load() 03 Print 打印空行 04 Print Tab(15); ID; Tab(26); 姓 名; Tab(36); 工 资 打印表头 05 Print Tab(14); String(27, -) 打印分隔符 06 Print Tab(14); 0001; Tab(26); 刘 备; Tab(36); 2600 打印第一条记录 07 Print Tab(14); 0002; Tab(26); 张 飞; Tab(36); 1670 打印第二条记录 08 Print Tab(14); 0003; Tab(26); 关 羽; Tab(36); 2218 打印第三条记录 09 Print Tab(14); 0004; Tab(26); 诸葛亮; Tab(36); 3218 打印第四条记录 10 Print Tab(14); String(27, -) 打印分隔符 11 End Sub 选择结构是通过判断给定的条件，根据判断结果执行不同任务的一种程序结构。在实际的程序开发中，读者经常会遇到需要根据不同的条件进行不同处理的问题。这时就需要用选择结构进行程序结构设计来求解问题。 Visual Basic 6.0中提供了很丰富的选择结构语句，读者可以根据实际需要来选择不同的选择结构。 选择结构 If...Then语句根据表达式的值，当满足条件时执行包含的一组语句。If...Then语句的流程如图3.5所示，其语法有如下两种形式。语法1形式如下。 If表达式Then [语句组] End If 语法2形式如下。 If表达式Then[语句组1] If…Then语句 If...Then…Else语句根据表达式的值，当满足条件时执行包含的一组语句，不满足条件时执行另外一组语句。If...Then…Else语句的流程如图3.7所示。 其语法有如下两种形式。语法1形式如下。 If表达式Then [语句组1] Else [语句组2] End If 语法2形式如下。 If表达式Then[语句组1]Else[语句组2] 参数含义和If...Then语句的含义相同。 If…Then…Else语句 If…Then…ElseIf语句用于多个条件判断的选择结构。可以将If…Then…ElseIf语句当成是If…Then…Else语句的扩展。读者如果需要判断多个条件，根据不同条件的结果来执行不同的数据处理任务时，可以选择使用If…Then…ElseIf语句来设计程序结构。其语法格式如下所示。 If表达式1Then [语句组1]