算法基础与基本语句.ppt

回顾 语句的基本成分： 常量，变量，数组，记录 函数，运算符，表达式 VB解题过程： 数学模型，确定算法 语句程序（设计，调试，使用 ） 算法基础及VB的基本语句 第4章 算法及程序设计基础 赋值语句及InputBox、MsgBox函数 分支结构与分支结构语句 循环结构与循环结构语句 程序示例 小结 算法及程序设计基础 算法的特征 算法的描述 基本算法结构 4.1 算法的特征 确定性 可行性 有穷性 输入性 输出性 算法的描述 流程图。 是使用规定的图形符号来描述算法的。 流程图使用的图形符号见表4-1。 图4-1和图4-2分别是两个算法示例的流程图 。图框内的文字用于说明具体的操作内容。 上例表现算法的五个特性 图形符号名称代表的操作 输入/输出数据的输入与输出 处理各种形式的数据处理 判断 判断选择，根据条件满足与否 选择不同路径 起止流程的起点与终点 特定过程一个定义过的过程 流程线连接各个图框，表示执行顺序 连接点表示与流程图其他部分相连接 基本算法结构 “结构化程序设计方法”的核心是规定了算 法的三种基本结构： 顺序结构、分支结构和循环结构。P58 三种基本结构的共同特点是： 1）只有单一的入口和单一的出口； 2）每个部分都可能被执行； 3）结构内不存在永不终止的死循环。 赋值语句及InputBox、MsgBox函数 赋值语句 InputBox函数 MsgBox函数 4.2 习题:P81:第6,7,8题 上机:P41实验5.1,5.2 赋值语句 赋值语句的形式 不同数据类型数据的赋值 图4-4 一个说明不同数据类型数据赋值 方式的简单程序示例 4.2.1 赋值语句的形式 赋值语句的一般形式是： 其中var表示某个变量名或属性名。 先运算，后“赋值”。 赋值语句可使变量或某个对象的某属性获 得一个新值。示例 赋值语句还可以获取一个对象的当前属性 值。例如： pw = texpass.text var = 赋值语句示例 x = “This is” False”False” 逻辑值 字符变量 Ture：变量的值将为-1； False：变量的值为0 逻辑值整型变量 值转换为字符型赋给变量 数值 字符变量 先求值再转换为变量类型后再赋值 数值 数值变量 系统处理 表达式类型 变量类型 逻辑变量数值 非0值转换为True赋变量， 0则转换为False赋变量 图4-4 一个简单程序示例 InputBox函数 InputBox函数 用来接受用户通过键盘输入的数据。 InputBox函数应用示例 P61 4.2.2 N_student=inputbox(“请输入你的学号”,”程序示例”,230001) 运行时,N_student的值为用户输入的学号值 MsgBox函数 MsgBox函数用于向用户发布提示信息，并 要求用户作出必要的响应。 MsgBox函数根据用户选择单击的按钮而返 回不同的值 MsgBox函数有以下几种使用方法 4.2.3 MsgBox函数的几种使用方法 三种方法都可以获得如图所示画面。 但第二、三种用法将得不到用户点击不同按钮 的返回值（或没有返回值）。 Ans=msgbox(“非法数据!”,48,“提示信息”) print msgbox(“非法数据!”,48,“提示信息”) Msgbox “非法数据!”,48,“提示信息” 1 2 3 参数C1,C2,C3,C4见P62 分支结构与分支结构语句 分支结构是程序的基本算法结构之 一。VB提供了实现分支结构的相关语 句。 If-Then-Else-End If 结构语句 Select-Case-End Select 结构语句 4.3 习题: P81 第2题 上机:P43实验5.3到5.7 If-Then-Else-End If 结构语句 该结构语句的一般形式 该结构的变形1 该结构的变形2 例4-1 已知三角形三个边的长度，设计求 此三角形面积的程序 例4-2一个有多个分支的示例程序 4.3.1 If结构语句的一般形式 If e Then A组语句 Else B组语句 End If If 结构的变形1 If e Then A组语句 End if If e Then If 结构的变形2 If e1 Then A1组语句 ElseIf e2 Then A2组语句 . End if 例4-1 已知三角形三个边的长度，设 计求此三角形面积的程序 算法流程图 当a+bc 且 a+cb 且 b+ca 时，三角形存在， 其面积 式中： p=(a+b+c)/2 例4-1 算法流程图 例4-2一个有多个分支的示例程序 程序代码 例4-2 程序代码 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x 20； Is “1“ Then Text2.Text = “正数没有补码“ Else For I = 2 To Len(Source) If Mid(Source, I, 1) = “1“ Then Mid(Source, I, 1) = “0“ Else Mid(Source, I, 1) = “1“ End If Next I Text2.Text = Source End If End Sub Mid函数的新作用 本章小结 算法及程序设计基础