VB设计基础.ppt

程序中的语句依照其在程序中的位置依次顺序地执行，叫做语句的顺序执行。 在一个简单的顺序结构程序中，一般包含三种操作： ? 数据的输入 ? 计算并赋值 ? 数据的输出 Visual Basic 选择结构的实现： ? If…Then ? If...Then…Else ? Select Case 1. If…Then 结构 格式1：If 〈表达式〉Then 语句 格式2：If 〈表达式〉Then 语句块 End If 说明： ① 表达式都是逻辑表达式，当表达式是数值表达式时，Visual Basic 将这个值解释为 True 或 False：一个为零的数值为 False，而任何非零数值都被看作 True。 ② 语句块可以是一条或多条语句。如果使用格式1的简单形式表示，则只能是一条语句；或用冒号隔开的多条语句，但这些语句必须书写在一行上。 ③ 可以使用单行或多行语法有条件地执行一个语句。下面两个例子是等价的： If a > Max Then Max = a 和 If a > Max Then Max = a End If ④ If...Then 的单行格式不用 End If 语句。 说明： ① 不管有几个分支，程序执行了一个分支后，其余分支不再执行。 ② ElseIf子句的数量没有限制，可以根据需要使用任意多个ElseIf子句。 ③ 语句中的ElseIf子句和Else子句都是可选项，如果省略这些子句，则成为单分支结构。 ④ If...Then...ElseIf 只是 If...Then...Else 的一个特例。注意，可以使用任意数量的 ElseIf 子句，或者一个也不用。可以有一个 Else 子句，而不管有没有 ElseIf 子句。 程序举例1：计算函数的值。 Private Sub Command1_Click() Dim x As Single, y As Single x = Text1.text If x < 0 Then y = 5 ElseIf x < 1 Then y = x + 1 ElseIf x < 2 Then y = x ^ 2 + 2 ElseIf x < 5 Then y = -x - 3 Else y = -2 * x + 6 End If Label1.Caption = "y=" & y End Sub 程序举例2：按分数段显示成绩的级别 Private Sub Command1_Click() Dim x As Single x = Text1.text If x >= 90 Then Label1.Caption = “优秀" ElseIf x >=70 Then Label1.Caption = “良好” ElseIf x >=60 Then Label1.Caption = “及格” Else Label1.Caption = “不及格” End If End Sub 格式：Select Case 测试变量或表达式 [Case 表达式表1 [语句块1]] [Case 表达式表2 [语句块2]] …… [Case 表达式表n [语句块n]] [Case Else [语句块n+1]] End Select 功能：根据测试变量或表达式的值，从 多个语句块中选择符合条件的一个语句块执行。 说明： ① 测试变量或表达式只能是数值表达式或字符串表达式，不能是逻辑表达式。 ② 语句块是由一行或多行VB语句组成的。 ③ 表达式表与测试变量或表达式的类型必须相同，每一个表达式表是一个或几个值的列表。如果在一个列表中有多个