算法及Visual Basic 的基本.ppt

第四章 VB的基本语句 算法及程序设计基础 赋值语句及InputBox和MsgBox函数 分支结构与分支结构语句 循环结构与循环结构语句 4.1 算法及程序设计基础 算法的概念 算法示例 算法的特征 流程图 基本算法结构 算法的概念 算法示例 算法的特征 流程图 4.2 赋值语句 及Inputbox和MsgBox函数 赋值语句 与用户交互函数 与用户交互函数 InputBox函数和MsgBox函数选项 例 帐号和密码输入检验 4.3 分支结构 If-Then-Else-End If 结构语句 Select Case-End Select结构语句 相 关 习 题 4.3.1 If-Then-Else-End If 结构语句 其中e为判决条件,它可以是逻辑变量、关系表达式或逻辑表达式。当e的值为“True”时，就执行A组语句，接着执行End If 的下一条语句；否则就执行B 语句，接着执行End If的下一条语句 不对称分支 语句实现： If 条件 Then A组语句 End If 当A组语句仅有一个时可以简化为： If 条件 Then 语句 程序代码 If Text1.text=“” Then text1.setfocus End If 可以简化为： If text1.text=“” Then text1.setfocus ‘当文本框中文本为空时，则使文本框为焦点 多分支 语句实现： 　If 条件1 Then A1组语句　 　ElseIf 条件2 Then A2组语句 　　…… 　End If 例4-1 已知三角形的三条边，设计求此三角形面积的程序 问题分析：设三角形的三条边的长度分别为a、b、c,从数 学上已知，当a+bc、a+cb且b+ca时，三 角形存在s=sqr(p(p-a)(p-b)(p-c))式中：p=(a+b+c)/2 算法说明：根据问题分析，可得到流程图。用户界面设计 如图所示。 程序界面主要由四个文本框和三个命令 按钮组成，五个标签用于说明。“a:”、”b:”、”c:”三个标 签后的文本框中输入三角形边长数据，单击“计算”按钮， 给出计算结果。如果给出的数据不成三角形，则在计算 结果的文本框给 出“数据错误”。单击“清除”按钮，将去 除文本框中已有数据，为下一次计算作准备。单击“结束” 按钮，则关闭程序。 流 程 图 程 序 界 面 参考程序 例4-2 一个多分支的示例程序 Private sub command1_click( ) Dim x as Integer X=Val(Text1.text) If x1 Then Text2.text=“这是小于1的数” ElseIf x=10 Then Text2.text=“这是1到10之间的数” Else Text2.Text=“这是大于10的数” End If End Sub 4.3.2 Select-Case-End Select结构语句 一般形式如下: Select Case e Case c1 A 语句组 Case c2 B 语句组 …… Case Else n组语句 End Select 其中，e称为测试条件，可以是算术表达式或字符表达式；c1，c2，……是测试项，它们可取三种形式。 具体取值。例如：3，5等 连续的数据范围。例如：8 to 20 满足某个判决条件。例如：Is20 测试项还可以是这三种形式的组合。 例4-2程序代码用select结构语句实现如下 Private Sub Command1_click( ) Dim x As Integer X=Val(Text1.Text) Select Case x Case Is1 Text2.Text=“这是小于1的数” Case 1 To 10 Text2.Text=“这是1到10之间的数” Case Else Text2.Text=“这是大于10的数” End Select End Sub Do While…Loop循环语