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

回顾;算法基础及VB的基本语句 第4章;算法及程序设计基础;算法的特征;算法的描述;图形符号;基本算法结构;赋值语句及InputBox、MsgBox函数 ;赋值语句;赋值语句的形式;赋值语句示例;不同数据类型数据的赋值;图4-4 一个简单程序示例 ;InputBox函数;N_student=inputbox(“请输入你的学号”,”程序示例”,230001);MsgBox函数;MsgBox函数的几种使用方法;分支结构与分支结构语句;If-Then-Else-End If 结构语句;If结构语句的一般形式;If 结构的变形1;If 结构的变形2;[例4-1] 已知三角形三个边的长度，设计求此三角形面积的程序;[例4-1] 算法流程图;[例4-2]一个有多个分支的示例程序;[例4-2] 程序代码;Select-Case-End Select 结构语句;例4-2使用本结构语句实现;循环结构与循环结构语句;回顾（3.30）;当型循环和直到型循的不同执行方式;Do-Loop循环结构语句;回顾（4.27）补课问题;Exit Do语句;[例4-3] 求两个自然数的最大公约数程序;For-Next循环结构语句;For-Next循环结构语句的执行方式;注意;[例4-4]求1到10这十个数的和与连乘积 ;FOR语句的特例;循环嵌套;小结;[例4-5]大写字母逆序输出的程序 ;[例4-6]一个模拟摇奖的程序;程序示例;[例4-7]一个简易函数计算器程序;Private Sub cmd1_Click() If Text1.Text = Then MsgBox 请输入X值！, 48 + vbOKOnly, 程序示例 Text1.SetFocus ElseIf IsNumeric(Text1.Text) Then X = Val(Text1.Text) ‘求函数 Label2.Caption = “Exp(X)=:” ‘换门牌 Text2.Text = Str(Exp(X)) ‘送结果 Else MsgBox 输入数据错误！, 48 + vbOKOnly, 程序示例 Text1.Text = ” End If End Sub;初始界面;按月收入额计个人收入调节税的计税公式式中，pay为纳税人的月收入。 程序代码 ;Private Sub Command1_Click() Dim tax As Single, pay As Single pay = Text1.Text If Check1.Value = 1 or pay = 1000 Then tax = 0 ElseIf pay = 1500 Then tax = (pay - 1000) * 0.05 ElseIf pay = 2000 Then tax = 25 + (pay - 1500) * 0.1 …………... Else ‘什么情况下执行?? tax = 700 + (pay - 4500) * 0.4 End If Text2.Text = tax End Sub;[例4-9]利用牛顿迭代法求方程根;Option Explicit Private Sub cmd1_Click() Dim x As Single, x1 As Single, Eps As Single x = InputBox(输入初始值x:, 牛顿迭代法) Eps = InputBox(输入允许误差Eps:, 牛顿迭代法) Do x1 = x ‘总把新符换旧符 x = x1 - (x1 * Exp(x1) - 1) / (Exp(x1) * (x1 + 1)) Loop Until Abs(x - x1) = Eps Text1.Text = Str(x) End Sub;[例4-10] 原码转换成反码的程序;Private Sub Command1_Click() Dim Source As String, I As Integer Source = Text1.Text If Mid(Source, 1, 1) 1 Then Text2.Text = 正数没有补码 Else For I = 2 To Len(Source) If Mid(Source, I, 1) = 1 Then