VB蒋加伏第四版第5章.ppt

第5章 Visual Basic控制结构 5.1 算法及其描述 5.2 选择结构 5.3 循环结构 5.4 常用算法 5.1 算法及其描述 1.算法的概念 — 是解决问题的有序步骤。 2.算法的特征 (1) 有穷性。 (2) 确定性。 (3) 有效性。 (4) 零个或多个输入。 (5) 至少有一个输出。 3.算法的描述 （1）自然语言 文字冗长、表达不确切、二义性。 （2）流程图 图形方法，直观、形象、易于理解，应用广泛。 （3）N-S图 是流程图的发展，去掉了流程线，算法都表示在一个矩形框内。 3.三种基本控制结构 （1）顺序结构 在顺序结构中，算法的每一步操作都是按从上到下的线性次序执行的。 （2）选择结构 又称分支结构，根据给出的条件，选择执行一个分支。因此，在选择结构中，必然包含了条件判断。 （3）循环结构 又称重复执行结构。根据给出的条件，判断是否重复执行某一组操作。 5.2 选 择 结 构 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If（注意多行if语句要有End If） 或 If 表达式 Then 语句 重要的是学会两个数的交换，若上述语句次序变一下，结果如何？ 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句1 Else 语句2 计算分段函数： 单分支结构实现： y=cos(x)－x^3+3*x  If x0 Then y=sin(x)+sqr (x*x+1) 双分支结构实现： If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－x^3+3*x End If 3. If…Then…ElseIf语句(多分支结构) 形式： If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If 5. 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 运行结果如下： Private Sub Command1_Click() Dim Score As Single, PassN As Integer, n As Integer Dim i As Integer, Sum As Single Text1 = : Text2 = : Text3 = Sum = 0: PassN = 0: n = 0 For i = 1 To 50 统计人数大于50时停止循环 Score = Val(InputBox(请输入学生成绩:)) If Score 0 Then 输入负数时停止循环 Exit For Else If Score = 60 Then PassN = PassN + 1 统计及格人数