[高等教育]VB课件--ch5.pptVIP

* * 第5章 程序的控制结构 本章教学目的 ? 了解顺序结构的程序设计方法 ? 掌握Goto语句实现分支的方法 ? 掌握If条件分支语句的多种使用形式 ? 掌握Select语句的语法结构 ? 了解If语句与Goto构成循环的结构形式 ? 掌握Do-Loop循环的几种使用方法 ? 掌握While循环的结构形式 ? 掌握For-Next语句的语法形式及其嵌套形式 ? 了解几种循环出口语句的使用方法 本章主要内容 ● 顺序结构 ● 分支结构 Goto语句; 条件分支结构;多分支结构 ● 循环结构 If语句与Goto语句实现的循环 Do While－Loop循环 Do-Loop While循环 Do Until-Loop循环 Do-Loop Until循环 While循环 For-Next循环 循环出口语句 ● 本章小结 5.1 顺序结构 1.顺序结构：语句是按照程序中的排列顺序由上至下逐条执行。 2.常用语句：赋值语句、输入/输出语句和一些计算性的语句等。 3.举例 【例5.1】已知三角形三边的长度分别为3,4,5，求三角形面积。 ● 程序设计 Private Sub Form_Click() Dim A As Integer Dim B As Integer Dim C As Integer Dim S As Double Dim Area As Double A=3 B=4 C=5 S=(A+B+C)/2 Area=SQR(S*(S-A)*(S-B)*(S-C)) Print “Area=”;Area End Sub 程序首先给A,B,C赋初值，再计算S和Area的值（SQR()计算平方根），最后通过Print语句输出面积Area。 ● 操作过程 （1）建立工程 启动VB系统，然后在“新建工程”对话框窗口中选择“标准EXE”，并单击“打开”命令按钮。 （2）建立对象 直接将窗体Form1作为对象。 （3）建立事件过程 双击Form1， 在显示的窗口左上端的下拉列表框中选择“Form”，在窗口右上端的下拉列表框中选择“Click”，将显示建立窗体工程的窗口。 （4）添加程序代码 在事件过程的代码窗中，输入已经编写的程序代码。 （5）执行程序 在VB窗口中，选择【运行】→【启动】，显示Form1窗体。单击窗体，显示程序运行结果“Area=6” 。 5.2分支结构 顺序结构很简单，仅用它只能编写一些简单的程序。对于一些稍微复杂一点的问题，顺序结构就显得力不从心，必须利用Visual Basic中一些比较复杂的结构解决。本节主要介绍Visual Basic中的分支结构。 5.2.1 Goto语句 Goto语句为无条件转移语句。当程序执行到Goto后,无条件的转移到Goto之后语句标号处继续执行。Goto语句的语法格式为: Goto 标号 其中,标号分两种： 字符串标号：字符串和冒号组成，符合VB中标识符命名规则。 语句行标号：基本Basic中的语句行标号（数字），不代表执行顺序。 应注意以下两个问题： （1）在Goto和循环混合的结构中，Goto语句只能从循环体内部转向循环体之外，禁止从循环体外转向循环体之内； （2）Goto语句只能转向本函数或本过程中的标号处。 【例5.2】用Goto语句编写程序,求解 利用Goto语句编写的程序代码如下： Private Sub Command1_Click() Dim I As Integer Dim S As Long S=0:I=1 Loop1: If I=100 Then S=S+I^2 I=I+1 Goto Loop1 End If Text1.Text = Sum=： + Str(S) End Sub 程序中：Loop1是Goto语句转向的语句标号； 第4条语句是一个多重语句（多条语句间用冒号分隔）； Str()将S转换成字符串； 倒数第2条语句：用文本框Text1的Text显示结果。 操作过程 (1) 建立工程 （2）建立对象 在 “Form1”中，分别单击“工具箱”中的CommandButton和TextBox工具，在窗体中建立命令对象Command1和文本框对象Text1。 （3）设置对象属性 在Form1中选择Command1,显示“属性－Command1”对话框，将Caption属性改为“执行程序”。在Form1中选择Text1,显示“属性－Tex