第四章算法基础与VB基本语句.ppt

注意 ? Is 比较运算符和使用在 Select Case 语句中的 Is 关键字并不相同： Is 作为比较运算符 ： 用来比较两个对象的引用变量； 语法：result = object1 Is object2； 说明：如果 object1 和 object2 两者引用相同的对象，则 result 为 True；否则，result 为 False。 Is 作为select case 中的关键字 ： 使用 Is 关键字时，则可以配合比较运算符（除 Is 和 Like 之外）来指定一个数值范围。如果没有提供，则 Is 关键字会被自动插入。 * 新编 Visual Basic 程序设计教程 第4章 算法基础与VB基本语句 4.1 算法基础 1、概念 解决某个问题所使用的方法和步骤。亦称算法设计 2、算法分类 1）数值计算算法。 例：四则运算、求微积分 2）非数值计算算法。例：数据的查找、分类、排序 3、算法描述 — 流程框图、流程图 举例：求2个学生的平均成绩。其中学生A为95分， B为70分。 方法：1）将95分赋予变量A，70分赋予变量B 2）A加B的值除以2，结果赋予变量C 3）打印输出C值 根据以上题意绘出流程图： 图形说明： 开始 A=95 B=70 C=（A+B）/2 输出C 结束 流程的起点与终点 数据处理 数据的输入/输出 条件判断 一个特定过程 流程线 流程图上与其它 部分相连的点 4、基本算法结构 A B A B e True False A A e False False True True e 循环结构 循环结构 顺序 结构 分支 结构 循环体 当型循环 当条件 e 成立，继续执行 A 直到型循环 反复执行 A，直到条件 满足为止 4.2 赋值语句与 InputBox、MsgBox 函数 4.2.1 赋值语句 LET 变量名（或属性名）= 表达式 LET a=8 将数值8赋予变量a a=8 k1=“Made in china” C =（x+y）/ 6 Text1.Fout.Size = 18 仍举上例：求2个学生 的平均成绩。其中A 为98分，B为70分。 Private Sub Cmd1_Click() Dim A as Integer Dim B as Integer Dim C as Integer A=95 B=70 C=（A+B）/ 2 Print C End Sub 4.2.2 InputBox函数 功能：建立输入对话框，用来接受用户通过键盘输入的 数据。 格式：变量名=InputBox ( 提示用文字信息 [，对话框 标题 ] [，预设用户编辑框内的缺省值 ]) [ ，X，Y ][，帮助文件名，帮助主题号]) 举例：在用户界面上设置一个按钮，当按下按钮时出现 一个输入对话框，在用户编辑框内输入数据后， 按对话框“确定”按钮，窗体上显示该数据。 Option Explicit Private Sub Command1_Click() Dim word As String word = InputBox(请输入需在窗体中显示的内容：, _ 输入对话框, 江南大学纺织服装学院) Print word End Sub 4.2.3 MsgBox函数 功能：建立消息框，显示简短消息，并要求用户作出响 应。 格式：abc=MsgBox ( Prompt [ , Button][ , Title ][ , H,C] 提示用 文字信息 对话框 标题 数值常量 c1+c2+c3+c4 下转：第 4章VB教材举例 \ 1 (4.2.2) 换行：chr(13)+chr(10) 举例1：窗体中设置一个文本框，一个按钮。当按下按钮 时，出现一个消息框，应答后按要求操作。 （参见P62 表4-2（a、b、c、d）） Option Explicit Private Sub Command1_Click() Dim abc As String If Text1.Text = T