VB-第5章 VB控制结构.ppt

5.1 算法及其描述 程序 = 数据结构＋算法 5.1.1 算法的概念 算法的特征 (1) 有穷性 (2) 确定性 (3) 有效性 (4) 零个或多个输入 (5) 至少有一个输出 （1）自然语言 文字冗长、表达不确切、二义性。 （2）流程图 图形方法，直观、形象、易于理解，应用广泛。 （3）N-S图 是流程图的发展，去掉了流程线，算法都表示在一个矩形框内。 3.三种基本控制结构 （1）顺序结构 在顺序结构中，算法的每一步操作都是按从上到下的线性次序执行的。 （2）选择结构 又称分支结构，根据给出的条件，选择执行一个分支。因此，在选择结构中，必然包含了条件判断。 （3）循环结构 又称重复执行结构。根据给出的条件，判断是否重复执行某一组操作。 5.2 选择结构程序设计 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If 或 If 表达式 Then 语句1 Else 语句2 例：计算分段函数： 3. If…Then…ElseIf语句(多分支结构) 形式： If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 3. If…Then…ElseIf语句(多分支结构) 形式： If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If Private Sub Form_Click() Dim x! x = InputBox(输入X：) If x 0 Then Print 1 Else If x = 0 Then Print 0 Else Print -1 End If End If End Sub 例[5-4] 设计一个程序，从键盘上输入学生的分数，统计其中及格的人数以及总平均分数。 5.2.3 多分支结构---- Select Case语句(情况语句) 形式： Select Case 测试表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select Private Sub Command1_Click() Dim s As Single, d As Single m = Val(InputBox(请输入应付款:)) Select Case m Case Is 250 d = 0 Case Is 500 d = 0.05 Case Is 1000 d = 0.075 Case Is 2000 d = 0.1 Case Else d = 0.15 End Select Text1.Text = Str(m) Text2.Text = Str(d) Text3.Text = Str(m * (1 - d)) End Sub Private Sub Command2_Click() End End Sub 运行结果如下： （2）Choose函数形式是： Choose（数字类型变量，值为1的返回值，值为2的返回值……） 例如，Nop取1-4的值，编程将其转换成 + 、-、×、÷运算符的语句如下： Op= Choose（Nop，+， - ，×，÷） 当值为1，返回字符串“+”，然后放入Op变量中，值为2，返回字符串“-”，依次类推；当Nop是1-4的非整数，系统自动取Nop的整数再判断；若Nop不在1~4之间，函数返回Null值。 5.2.5 嵌套的选择结构 在块结构条件语句中，若“语句块”本身又包含条件语句结构，则称为条件语句嵌套。 例[5-7] 给出a，b，c的值，问它们