第四章 算法基础及VB的基本语句汇.ppt

4.1 算法及程序设计基础 1、算法的概念 算法 即解决某个问题或处理某件事的方法和步骤；“采用什么结构，使用什么语句以及如何安排这些语句”。 算法分类： 数值计算算法 非数值计算算法 算法优劣： 正确性，效率，占用系统资源，便于理解，易于调试等。 [算法描述]： S1 输入两个自然数：M，N； S2 求M除以N的余数R； S3 使M=N，即用N代换M； S4 使N=R，即用R代换N； S5 若R≠0，则重复执行S2,S3,S4,否则转至S6 S6 输出M，M即为M，N的最大公约数。 3、算法的特征 确定性 可行性 有穷性 输入性 输出性 4、算法的描述 5.基本算法结构 1）. 顺序结构 2）选择结构 3）循环结构 三种基本结构的共同特点 只有单一入口和单一出口； 结构中的每一部分都有被执行的可能； 结构内不应出现永不终止的死循环。 4.2 赋值语句及InputBox、MsgBox函数 4.2.1 赋值语句 4.2.2 InputBox函数 4.2.3 MsgBox函数 4.4 循环结构与循环结构语句 4.4.1 Do-loop循环结构语句（条件循环） 4.4.2 For-Next 循环结构语句（计数循环） 4.4.3 循环嵌套 写出下列程序的运行结果 4.5 程序示例 在该例中，我们使用了三个变量，分别表示被除数（m）、除数（n）及余数（r）。 Do r=m Mod n m=n n=r Loop Until r=0 最大公约数是（ ）？ 由于输入的数据M和N要求是自然数，在程序中应加入对数据的合法性进行检验的部分； 考虑到程序的应用范围，数据类型可选用长整型。 问题分析及界面设计 Private Sub Command1_Click() Dim m As Long, n As Long, r As Long m = Val(Text1.Text) ‘取数据M n = Val(Text2.Text) ‘取数据N If m Int(m) Or m 1 Or n Int(n) Or n 1 Then Text3.Text = 数据错误！ Else Do ‘求最大公约数 r = m Mod n m = n n = r Loop Until r = 0 Text3.Text = CStr(m) ‘输出最大公约数 End If End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub Command3_Click() End End Sub 检验数据合法性 Mod 前后加空格 例：将十进制数转换成二进制。 [算法分析]：十进制向二进制转换， 采取的是除2取余法。 45 2 22 2 1 11 2 1 2 2 2 5 2 1 0 1 0 0 1 高位 低位 （45）10=（101101）2 解决这类问题必须考虑的是如下几点： （1）需要重复运行的操作——除2取余 （2）终止循环的条件——商为0 a=0? a Mod 2 a=a\2 F 结束循环 T 注意： ①在循环控制条件中必须出现变量，且该变量在循环体中一定要改变值，否则会造成“死循环”，即无休止的循环。 ②若在运行程序过程若出现“死循环”，用[Ctrl]+[Break]可以强制终止程序的执行。 Private Sub Command1_Click() Dim a As Integer, r as Integer,s As String a = Val(Text1.Text) Do While a 0 r=a Mod 2 a = a \ 2 Loop Text2.Text = s End Sub s = Cstr(r) s 将余数逆序输出，即将最新获得