Visual Basic程序设计 教学课件 作者 王怀彬 第04章.pptVIP

第4章 程序控制结构 计算机程序的执行和控制流程有顺序结构、分支结构和循环结构三种基本的结构，这三种基本结构可以组成任何功能复杂的程序。 可视化程序设计方法中增加了事件驱动机制，使程序按照事件发生的次序随机执行，而不是按照编程时就定义好的顺序执行，当某个事件发生时，程序将找到相应的事件处理程序来处理事件。这种机制虽然将每个事件的处理过程划分得比较小的子过程，但是对于具体每个事件处理过程内部而言，也是由这三个基本结构组成。 4.1 顺序结构程序 所谓顺序结构，就是按照语句出现的顺序一条一条地执行。这种语句的特点是根据语句的先后次序，依次向下执行。 4.1.1 End语句 End语句功能是用来结束程序。 例如：在窗体上放置一个“退出”按钮，在Click事件中使用End语句。 Private Sub Command1_Click() End End Sub 程序运行后，单击“退出”按钮，结束程序。 4.1.2 Rem语句 为了提高程序的可读性，通常在程序的适当位置上加一些注释。 VB中注释语句的前缀是一个单引号（）或者是保留字Rem。 使用保留字Rem方法时，如果注释语句是单独一行，以Rem开头后面写入内容即可，如果，注释在语句之后要用冒号（:）隔开。例如： Rem 这是我的注释例子程序 InputBox(请输入数据) : Rem这是输入语句 使用单引号（）时，只要直接在单引号（）的后面写入内容即可，例如： InputBox(请输入数据) 这是输入语句 说明： (1) 注释语句是非执行语句，仅对程序起注释说明作用。 (2) 注释语句通常可以做一段程序的说明放在程序的开头，或者作为某语句的说明放在该语句的后面。 (3) 如果使用多行注释，每一行都要使用Rem或（‘）。 例如： 下面的程序完成如下功能： 1、打开数据库 2、对内容进行排序 3、关闭数据库 (4) 注释用来描述程序中的关键部分和整个程序的功能。一般放在程序段的开头部分。 (5) 注释语句还可以用于调试程序。 4.2 分支结构程序 当程序执行时遇到需要根据不同的情况做出的不同的选择，从而执行不同的操作时，可以使用分支结构。 4.2.1 If语句 分支结构中具有两个分支选项的情况通常使用If语句。 1．If…Then单行结构 格式：If 条件 Then 语句1 [Else 语句2] 功能：对条件进行判断后，根据所得的不同结果进行不同的操作。当条件成立时，执行Then后面的语句1，执行完后再执行整个If语句后的语句；当条件不成立时，若存在Else部分，则执行Else后的语句2，再执行整个If语句后的语句，否则就直接执行整个If语句后的语句。 例如：如果已知两个变量a和b，将a和b中的比较大的数赋值给变量a。 If ab Then a = b 又如：求a和b两个变量中的比较大的数赋值给Max变量： If ab Then Max = a Else Max = b 例4.1设计一个程序，功能是输入三个数，求出最大数。 新建一个工程，在窗体上面放置4个标签控件，4个文本框控件，1个命令按钮。修改控件属性如表所示。 Private Sub Command1_Click() Dim a, b, c, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a b Then m = a m用来存放较大值 Else m = b End If If c m Then m = c Text4.Text = m End Sub 2. 多行格式If语句 (1) 格式一 语句格式： If 条件 Then 语句体 End If 功能：当条件成立时，执行Then后面的语句体中的全部语句，执行完后跳出整个If语句体，执行If语句体后的语句；当条件不成立时，直接执行整个If语句体后的语句。 例4.2 设计一个求两个数中最小数的函数。 Private Function MinValue (x As Integer,y As Integer) As Integer If x y Then MinValue = x End If If x=y Then MinValue = y End If End Function 例4.3 设计一个程序，功能是在窗体的文本框中输入三个数，单击“排序”按钮可以对三个数进行排序，结果显示在另外一个文本框中。 在程序的窗体上放置文本