ch04VB控制结构.ppt

第 4 章 VB控制结构 本章要求： 理解并掌握分支结构语句： If - Then 结构语句 Select Case 结构语句 理解并掌握循环结构语句： Do - Loop 结构语句 For - Next 结构语句 第 4 章 VB控制结构 重点： 理解单分支、双分支及多分支的实现方法, 以及不同的书写格式; 多重循环的使用, For语句中循环变量的变化情况, While型(当型)和Until型(直到型)循环的区别, Exit do与Exit for语句的使用; 一些常用算法。 第 4 章 VB控制结构 难点： 选择的嵌套、多重循环 常用算法： 累加、累乘、穷举法 求水仙数 牛顿迭代法求方程 原码补码转换 第 4 章 VB控制结构 4.0 算法及程序设计基础 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其他辅助控制语句 4.5 综合应用 4.6 程序调试 4.0 算法及程序设计基础 1. 算法的概念： 广义: 即解决某个问题或处理某件事的方法和步骤 狭义: 专指用计算机解决某一问题的方法和步骤 2. 算法的特征 确定性、可行性、有穷性、输入性、输出性 3. 算法的描述 广泛使用的是流程图, 它使用规定的符号来描述算法 4. 算法分类 数值算法: 用于解决一般数学解析方法难以解决的问题 非数值算法: 用于对非数值信息进行查找、排序等 4.1 顺序结构 顺序结构: 各语句按照出现的先后次序依次执行 二、数据的输入和输出 4.2 选择结构 分支结构是程序的基本算法结构之一 先对条件测试, 根据测试的结果选择执行不同的分支 VB 提供了实现分支结构的相关语句 一、if 条件语句 二、Select Case 结构 一、If 条件语句 1. If …then 结构——单分支结构 示例：单分支结构 例: 输入两个数, 分别放在x和y变量中, 比较它们大小, 然后将大数放在x中, 小数放在y中。 x% = txt1.text y% = txt2.text If xy Then t = x : x = y: y = t End If Print x,y 一、If 条件语句 2. If …then …else 结构——双分支结构 例4-1：已知三角形三个边的长度, 设计求此三角形面积的程序 算法流程图 程序代码 例4-1：算法流程图 Private Sub cmdCalc_Click() Dim a As Single, b As Single, c As Single Dim p As Single a = Val(txta.Text) b = Val(txtb.Text) c = Val(txtc.Text) If a + b c And a + c b And b + c a Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) txtArea.Text = CStr(s) Else txtArea.Text = 数据错误 End If End Sub Private Sub cmdCls_Click() txta.Text = txtb.Text = txtc.Text = txtArea.Text = txta.SetFocus End Sub Private Sub cmdEnd_Click() End End Sub 3. If 语句的嵌套——多分支结构 例4-2：一个有多个分支的示例程序 Private Sub cmdEnter_Click() Dim x As Integer x = Val(txtInput.Text) If x 1 Then txtOutput.Text = 这是小于1的数 ElseIf x = 10 Then txtOutput.Text = 这是1到10之间的数 Else txtOutput.Text = 这是大于10的数 End If End Sub 例：输入一学生成绩，评定其等级。方法是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以为“不合格” 二、Select Case 语句 本结构语句提供了实现多分支结构的另一种方法。它的一般形式是： 例4-2的程序代码使用本结构语句实现 Private Sub c