VB程序设计的常用算法.docx

1、VB程序设计的常用算法VB 程序设计的常用算法算法( Algorithm )：计算机解题的基本思想方法 和步骤。算法的描述：是对要解决一个问题或要完成 一项任务所采取的方法和步骤的描述，包括需要什么 数据(输入什么数据、 输出什么结果)、采用什么结构、 使用什么语句以及如何安排这些语句等。通常使用自 然语言、结构化流程图、伪代码等来描述算法。一、计数、求和、求阶乘等简单算法此类问题都要使用循环，要注意根据问题确定循 环变量的初值、终值或结束条件，更要注意用来表示 计数、和、阶乘的变量的初值。例：用随机函数产生 100 个0，99范围内的随机 整数，统计个位上的数字分别为 1，2，3， 4， 5

2、，6， 7，8，9，0 的数的个数并打印出来。本题使用数组来处理， 用数组 a(1 to 100)存放产生 的确 100个随机整数，数组 x(1 to 10)来存放个位上的 数字分别为 1，2，3，4，5，6，7，8，9，0 的数的个 数。即个位是 1 的个数存放在 x(1) 中，个位是 2 的个 数存放在x(2)中， 个位是0的个数存放在x(10)。将程序编写在一个 GetTJput过程中，代码如下：Public Sub GetTJput()Dim a(1 To 100) As IntegerDim x(1 To 10) As IntegerDim i As Integer, p As In

3、teger产生 100 个0， 99范围内的随机整数，每行1 0个打印出来For i = 1 To 100a(i) = Int(Rnd * 100)If a(i) n;(2)m 除以 n 得余数 r；(3)若r=0,则n为求得的最大公约数，算法 结束；否则执行 (4)；(4) mJ n, nw 例如:nr，再重复执行（2）。求 m=14 ,n=6的最大公约数.14r0m=i np utBox(m=) n=inpu tBox( n=) nm=n*mIf m n The n t = m: m = n: n = t r=m mod nDo While (r 0)m=nn=rr= m mod nLoo

4、pPrint 最大公约数=,nPrint 最小公倍数=,nm/n三、判断素数只能被1或本身整除的数称为素数 基本思想：把 m作为被除数，将2 INT （舟）作为除数，如果都 除不尽，m就是素数，否则就不是。（可用以下程序段 实现）m =val( InputBox(请输入一个数)For i=2 To in t(sqr(m)If m Mod i = 0 The n Exit ForNext iIf i in t(sqr(m) The nPrint 该数是素数ElsePrint 该数不是素数 End lf将其写成一函数,若为素数返回True,不是则 返回 FalsePrivate Function

5、Prime( m as Integer)As BooleanDim i%Prime=TrueFor i=2 To int(sqr(m)lf m Mod i = 0 ThenPrime=False:Exit ForNext iEnd Function四、验证哥德巴赫猜想(任意一个大于等于 6 的偶数都可以分解为两个素 数之和)基本思想： n 为大于等于 6 的任一偶数，可分 解为n1和n2两个数，分别检查n1和n2是否为素数， 如都是，则为一组解。如n1不是素数，就不必再检查 n2是否素数。先从n1=3开始，检验n1和n2(n2=N-n1) 是否素数。然后使n 1+2 再检验n1、n2是否素数，

6、 直到n1= n/2为止。利用上面的 prime 函数，验证哥德巴赫猜想的 程序代码如下：Dim n%,n1%,n2%n=Val(lnputBox(输入大于6的正整数)For n1=3 to n2 step 2n2=n-n1lf prime(n1) ThenIf prime(n2) thenPrint n & = & n1 & Exit结束循环End ifEnd if Next n1五、排序问题1选择法排序（升序）基本思想：1） 对有 n 个数的序列（存放在数组 从中选出最小的数，与第 1 个数交换位置；+ & n2Fora(n)中),2） 除第 1 个数外，其余 n-1 个数中选最小的 数，

7、与第 2 个数交换位置；3） 依次类推， 选择了 n-1 次后， 这个数列已按 升序排列。程序代码如下：For i = 1 To n - 1 imin = iFor j = i + 1 To nIf a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = tempNext I2冒泡法排序（升序）基本思想： （将相邻两个数比较，小的调到前头 ）1） 有n个数（存放在数组a（n）中），第一趟将 每相邻两个数比较，小的调到前头，经 n-1 次两两相 邻比较后，最大的数已“沉底” ，放在最后一个位置， 小数上升“浮起

8、”；2） 第二趟对余下的 n-1 个数（最大的数已 “沉 底”）按上法比较， 经 n-2 次两两相邻比较后得次大的 数；3） 依次类推， n 个数共进行 n-1 趟比较，在第 j 趟中要进行 n-j 次两两比较。程序段如下For i = 1 To n - 1For j = 1 To n-iIf a（j） a（j+1） Then：a(j+1)=temptemp=a（j） ：a（j）=a（j+1）End ifNext jNext iA 、B 合并成另3合并法排序（将两个有序数组一个有序的数组C，升序）基本思想：1） 先在 A 、B 数组中各取第一个元素进行比较， 将小的元素放入 C 数组；2） 取

9、小的元素所在数组的下一个元素与另一 数组中上次比较后较大的元素比较，重复上述比较过 程，直到某个数组被先排完；3） 将另一个数组剩余元素抄入 C 数组，合并 排序完成。程序段如下：Do While ia = UBound(A) And ib = UBound(B) 当 A 和 B 数组均未If A(ia) B(ib) Thenia = ia + 1C(ic) = A(ia)：Elseib = ib + 1C(ic) = B(ib) ：A 数组中的剩余End If ic = ic + 1 Loop Do While ia = UBound(A) 元素抄入 C 数组C(ic) = A(ia)ia

10、= ia + 1 ： ic = ic + 1LoopDo While ib = UBound(B) B 数组中的剩余元 素抄入 C 数组C(ic) = B(ib)ib = ib + 1 ： ic = ic + 1六、查找问题1 .顺序查找法(在一列数中查找某数 X) 基本思想：Loop列数放在数组 a(1)-a( n)中，待查找的数放在x中，把x与a数组中的元素从头到尾- 一进行比较查找。用变量 p 表示 a 数组元素下标， 初值为1,使x与a(p)比较，如果x不等于a(P),则使 p=p+1，不断重复这个过程；一旦x等于a(P)则退出循 环；另外，如果 p 大于数组长度，循环也应该停止 (这

11、个过程可由下语句实现)p = 1Do While x a(p) And p =np = p + 1Loop下面写一查找函数 Find ，若找到则返回下标值，找不 到返回 0Option Base 1Private Function Find( a( ) As Single,x As Single) AsIntegerDim n%,p%n=Ubound( a )p = 1Do While x a(p) And p n then p=0Find=pEnd Function基本思想：一列数放在数组a(1)-a(n)中，待查找的 关键值为key,把key与a数组中的元素从头到尾一 一进行比较查找，若相

12、同，查找成功，若找不到，则 查找失败。(查找子过程如下。index：存放找到元素的 下标。 )Public Sub Search(a() As Variant, key As Variant,index%)Dim i%For i = LBound(a) To UBound(a)If key = a(i) Thenindex = iExit SubEnd IfNext iindex = -1End Sub 2折半查找法(只能对有序数列进行查找) 基本思想： 设 n 个有序数(从小到大)存放在数组a(1)-a(n)中，要查找的数为x。用变量bot、top、mid 分别表示查找数据范围的底部 (数组

13、下界)、顶部(数 组的上界)和中间， mid=(top+bot)/2 ,折半查找的算法如下：(1)x=a(mid)，则已找到退出循环，否则进行下面的 判断；(2)xa(mid)， x 必定落在 mid+1 和 top 的范围之内， 即 bot=mid+1 ；(4)在确定了新的查找范围后，重复进行以上比较， 直到找到或者 bot=top。将上面的算法写成如下函数，若找到则返回该数所在 的下标值，没找到则返回 -1。Function search(a() As Integer, x As Integer) As IntegerDim bot%, top%, mid% 代表是否找到Dim find

14、As Booleanbot = LBound(a)top = UBound(a) 判断是否找到的逻find = False 辑变量，初值为 FalseDo While bot = top And Not findmid = (top + bot) 2If x = a(mid) Thenfind = True Exit DoElseIf x a(p) and p a(p) And p a(row, Column) ThenMax = a(i, j)row = iColumn = jEnd IfNext jNext iPrint 最大元素是;MaxPrint 在第& row &行,;第& Colu

15、mn & 列九、迭代法算法思想：对于一个问题的求解 x，可由给定 的一个初值x0，根据某一迭代公式得到一个新的值 XI,这个新值x1比初值x0更接近要求的值x;再以 新值作为初值，即：x1 T xO,重新按原来的方法求 x1, 重复这一过和直到Ix1-x0| 0.00001Fsqrt=x1 End Fun cti on十、数制转换将一个十进制整数m转换成f r(2 - 16)进制字 符串。方法：将m不断除r取余数，直到商为零，以反 序得到结果。下面写出一转换函数，参数idec为十进 制数,ibase为要转换成数的基(如二进制的基是 2,八进制的基是8等)，函数输出结果是字符串。P rivate

16、 Fun cti on TrDec(idec As In teger, ibase AsIn teger) As Stri ngDim strDecR$, iDecR%strDecR =Do While idec 0iDecR = idec Mod ibase If iDecR = 10 The nstrDecR = Chr$(65 + iDecR - 10) &strDecRElsestrDecR = iDecR & strDecREnd Ifidec = idec ibaseLoopTrDec = strDecREnd Fun cti on十一、字符串的一般处理1 .简单加密和解密加密的思

17、想是： 将每个字母C加(或减)一序数K，即用它后的第 K个字母代替，变换式公式： c=chr(Asc(c)+k)aT f,Z或z则例如序数k为5,这时A T F,BT G 当加序数后的字母超过c=Chr(Asc(c)+k -26)fwj Itti例如：You are good Dtz解密为加密的逆过程将每个字母C减(或加)一序数K ,即c=chr(Asc(c)-k),例如序数k为5,这时Z TU, zTu,Y 7 T 当加序数后的字母小于A或a则 c=Chr(Asc(c)-k +26)下段程序是加密处理：i = 1: strp = nL = Len(RTrim(strI)Do While (i

18、 = A And strT Asc(Z) Then iA = iA - 26 strp = strp + Chr$(iA)ElseIf (strT = a And strT Asc(z) Then iA = iA - 26 strp = strp + Chr$(iA)Elsestrp = strp + strTEnd Ifi = i + 1LoopPrint strp 2统计文本单词的个数算法思路：（1）从文本（字符串）的左边开始，取出一个字符； 设逻辑量W俵示所取字符是否是单词内的字符，初值 设为 False” YU i=r. ”（2） 若所取字符不是 “空格 ”，“逗号 ”，“分号 ”或“

19、感 叹号”等单词的分隔符，再判断 WT是否为True,若 WT 不 为 True 则 表 是 新 单 词 的 开 始 ， 让 单 词 数 Nw=Nw+1 ，让 WT=True;口，”号”（3） 若所取字符是 “空格”， “逗号 ”，“分号 ”或“感叹 等单词的分隔符， 则表示字符不是单词内字符，让 WT=False;(4)再依次取下一个字符，重得( 2)(3) 直到文本结 束。取第 i 个字符下面程序段是字符串 strI 中包含的单词数 Nw = 0: Wt = False nL = Len(RTrim(strI) For i = 1 To nL strT = Mid$(strI, i, 1)

20、 Select Case strT Case , , ;, ! Wt = False Case Else If Not Wt Then Nw = Nw + 1 Wt = True End If End SelectNext iPrint 单词数为： , Nw十二、穷举法 穷举法（又称 “枚举法”）的基本思想是： 一一列举各种可能的情况，并判断哪一种可能是符合 要求的解，这是一种 “在没有其它办法的情况的方法 是一种最 “笨”的方法，然而对一些无法用解析法求解 的问题往往能奏效，通常采用循环来处理穷举问题。例： 将一张面值为 100 元的人民币等值换成 100 张 5 元、 1 元和 0.5 元

21、的零钞，要求每种零钞不少于 1 张，问有哪几种组合？ Dim i%, j%, k% Print 5 元 For i = 1 To 20For j = 1 To 100 - i k = 100 - i - jIf 5.0 * i + 1.0 * j + 0.5 * k = 100ThenPrint i, j, kEnd IfNext jNext i十三、递归算法用自身的结构来描述自身，称递归VB允许在一个Sub子过程和Function过程的定义 内部调用自己，即递归 Sub 子过程和递归 Function 函 数。递归处理一般用栈来实现，每调用一次自身，把 当前参数压栈，直到递归结束条件；然后从栈中弹出 当前参数，直到栈空。递归条件：(1)递归结束条件及结束时的值； (2) 能用递归形式表示，且递归向终止条件发展。例：编 fac(n)=n! 的递归函数Function fac(n As Integer) As IntegerIf n = 1 Thenfac = 1Elsefac = n * fac(n - 1)End IfEnd Function