第章Visua Basic 编程基础第二部分.ppt

第2章 Visual Basic 6.0编程基础 （第二部分） 2.7 基本流程结构 控制结构可控制程序执行的流程。如果未使用控制流语句，程序便从左至右、自顶向下地贯穿这些语句。有些简单程序可以只用单向流程来编写，有些流程可以依靠运算符的优先级来控制，但任何编程语言的效力和用途皆由其通过结构和循环改变语句顺序的能力而得。 2.7.1 顺序结构 顺序结构中程序按照语句编写的先后顺序一条一条地执行。使用顺序结构只需要将合法语句按照合理的执行顺序排列即可一一执行。 【案例2-6】 二次函数计算器 按钮单击事件中的代码为 Private Sub Command1_Click() Dim x, y As Double Const a = 3 Const b = -5 x = Val(Text1.Text) y = a * x ^ 2 + b * x + 1 y = y / Abs(a + b) Text2.Text = Str$(y) End Sub 2.7.2 条件结构 Visual Basic 6.0支持的条件结构有： ? If…Then； ? If…Then…Else； ? Iif； ? Select Case； （1）用If…Then结构有条件地执行一个或多个语句，单行语法和多行块语法都可以使用。 If 条件 Then 语句 If 条件 Then [语句块] End If “条件”通常是比较式，但它可以是任何计算数值的表达式。Visual Basic 6.0 将这个值解释为True或False。一个为零的数值为False，而任何非零数值都被看做True。若“条件”为True，则Visual Basic 6.0执行“Then”关键字后面的所有“语句块”。 （2）用 If…Then…Else块定义几个语句块，执行其中一个语句： If 条件1 Then [语句块1] [Else If 条件2 Then [语句块2]] ... [Else [语句块n]] End If Visual Basic 6.0首先测试“条件1”。如果它为False，Visual Basic 6.0就测试“条件2”，依此类推，直到找到一个为True的条件。当它找到一个为True的条件时，Visual Basic 6.0就会执行相应的语句块，然后执行End If后面的代码。作为一个选择，可以包含Else语句块，如果前n-1个条件都是False，则Visual Basic 6.0执行Else语句块。 （3）IIf函数用于实现一些简单的条件判断分支结构，其格式如下： IIf(条件，条件为真时的值，条件为假时的值) 其作用是对条件进行测试，若条件成立（为真值），则取第一个值（即“条件为真时的值”），否则取第二个值（即“条件为假时的值”）。 （4）Visual Basic 6.0提供Select Case结构替代If…Then…Else，从而可在多个语句块中有选择地执行其中一个。Select Case语句的能力与If…Then…Else语句类似，但对多重选择的情况，Select Case语句使代码更加易读。Select Case在结构的开始便处理一个测试表达式并只计算一次。然后，Visual Basic 6.0将表达式的值与结构中每个Case的值进行比较。如果相等，就执行与该Case相关联的语句块。 Select Case test 测试表达式 [Case 表达式列表1 [语句块1]] [Case 表达式列表2 [语句块2]] ... [Case Else [语句块n]] End Select 【案例2-7】 求数据的绝对值 按钮单击事件中的代码为 Private Sub Command1_Click() Dim a As Integer 定义变量 a = Val(Text1.Text) 将文本框中输入的值赋给变量a If a 0 Then 当a为负数时取其相反数 a = -a End If Text2.Text = Str$(a) End Sub 按钮单击事件中的代码为 Private Sub Command2_Click() Text1.Text = Text2.Text = End Sub 【案例2-8】 闰年 “确定”按钮单击事件中的代码