VB程序设计的常用算法09.doc

Visual Basic常用算法 从逻辑结构上看，应用程序 = 算法 + 数据结构（）数据结构（Data-Structure），计算机数据元素依据某种逻辑联系存储组织的方式。 许多大型系统的构造经验表明，系统实现的困难程度和系统构造的质量都严重依赖于是否选择了最优的数据结构。选择了数据结构，算法也随之确定，是数据而不是算法是系统构造的关键因素。这种洞见导致了许多种软件设计方法和程序设计语言的出现，面向对象的程序设计语言就是其中之一。 是对客观事物的符号表示，在计算机科学中是指所有能输入到计算机中并由计算机程序处理的符号的总称。 （）算法（Algorithm），基本运算及规定的运算顺序所构成的完整解题步骤。 　一个算法应该具有以下五个重要的特征： ① 有穷性算法必须保证执行有限步之后结束 ② 确切性算法的每一步骤必须有确切的定义 ③ 输入算法有0个或多个输入，以运算的初始0个输入是指算法本身初始④ 输出算法有一个或多个输出，以反映对输入数据加工后的结果。没有的算法是毫无意义的⑤ 可行性算法原则上能够精确地运行，而且人们用笔和纸做有限次运算后即可完成。 计算机科学家尼克劳斯-沃思曾著过一本著名的书《数据结构十算法= 程序》，可见算法在计算机科学界与计算机应用界的地位。程序rogramme）就是用计算机语言的算法流程图（Flow Charts）就是图形化的算法。同一问题有多种算法描述。问题算法种类，总体上可以分为两大类：数值算法和非数值法。① 累加连乘一般累加值为0连乘1。② 对于多重循环，初值在外循环体外还是在内循环体外根据问题决定。【】用公式：Private Sub Form_Click( ) Dim s As Integer, n As Single, t As Single, pi As Single t = 1 第一项 pi = 0 累加和初始值为0 n = 1 每一项的分母值 s = 1 第一项符号 Do While (Abs(t) = 0.000001) pi = pi + t 将每一项求和，得到π/4的近似值 n = n + 2 产生每一项的分母值 s = -s 产生每一项的符号值 t = s / n 产生每一项 Loop pi = pi * 4 Print π=; pi End Sub 【】 Private Sub Form_Click( ) Dim f1 As Long, f2 As Long, i As Integer f1 = 1 数列第一项 f2 = 1 数列第二项 Print f1, f2, 打印数列前两项 For i = 3 To 40 循环输出第3至40项 f3 = f1 + f2 计算下一个数列项 Print f3, 打印输出下一个数列项 f1 = f2 为下一个数列项计算做准备 f2 = f3 为下一个数列项计算做准备 If i Mod 5 = 0 Then Print 当每行输出5个以后换行 Next i End Sub 【e的近似值】求自然对数e的近似值，要求其误差小于0.00001，近似公式为： Private Sub Form_Click( ) Dim i%, n, t!, e! e = 0 存放累加和 i = 0 循环控制变量 n = 1 存放连乘积 t = 1 级数第i项初始值 Do While t 0.00001 e = e + t 将每一项加入累加和 i = i + 1 产生阶乘下一个乘数 n = n * i 乘以乘数i得到每一项的阶乘 t = 1 / n 产生每一项 Loop Print 计算了; i; 项的和是; e End Sub 【计数统计】用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 使用数组来处理，用数组a(1 to