《VB常考算法cxy.docVIP

VB常考算法 算法（Algorithm）：计算机解题的基本思想方法和步骤。 算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描 述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。 程序的结构：输入――处理――输出。其中处理包括过程调用。 简单算法 1.计数 2. 求阶乘 3. 累加、累乘、综合做计算 最近考题有： 03秋01编程题 03秋03编程题 03秋04编程题 03秋06改错题 04春01编程题 04春05编程题 以及相应的一些笔试的完善程序题 此三类问题都要使用循环，①要注意根据问题确定循环变量的初值、终值或结束条件，②更要注意用来表示计数、和、阶乘的变量的初值 例:编写求n项和的程序。求和公式如下： N可取值1，2，3，4。。。。。 Option Explicit Const pi As Double = 3.1415926353 Function fun(n As Integer, x As Single) As Single Dim k As Integer, s As Single, a As Single For k = 1 To n a = (-1) ^ k * (pi / 2) ^ (2 * k) / fact(2 * k) * x ^ (4 * k + 1) / (4 * k + 1) s = s + a Next k fun = s End Function Function fact(n As Integer) As Long Dim i As Integer fact = 1 For i = 1 To n fact = fact * i Next i End Function Private Sub Command1_Click() Dim x As Single, n As Integer, i As Integer x = Text1 n = text2 For i = 1 To n list1.AddItem s( CStr(i) )= CStr(fun(i, x)) Next i End Sub 4.求两个整数的最大公约数、最小公倍数等 分析：求最大公约数的算法思想：(最小公倍数=两个整数之积/最大公约数) (1) 对于已知两数m，n，使得mn； (2) m除以n得余数r； (3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)； (4) m←n，n←r，再重复执行(2)。 最近考题有：03秋05编程题 03秋08编程题 例如: 求 m=14 ,n=6 的最大公约数. m n r 14 6 2 6 2 0 m=inputBox(m=) n=inputBox(n=) nm=n*m If m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公约数=, n Print 最小公倍数=, nm/n 注意：因为m、n的值在过程中被改变，所以在过程调用时m,n一般设置为byval 5.判断素数 只能被1或本身整除的数称为素数 基本思想：把m作为被除数，将2～）(也可以是n－1或n/2)作为除数，如果都除不尽，m就是素数，否则就不是。（可用以下程序段实现） m =val( InputBox(请输入一个数)) For i=2 To int(sqr(m)) If m Mod i = 0 Then Exit For Next i If i int(sqr(m)) Then Print 该数是素数 Else Print 该数不是素数 End If 将其写成一