VB算法总结.doc

VB算法总结:1、最大公约数算法说明 1) 最大公约数：用辗转相除法求两自然数m、n的最大公约数。（1） 首先，对于已知两数m、n，比较并使得mn；（2） m除以n得余数r；（3） 若r0，则n为求得的最大公约数，算法结束；否则执行步骤（4）（4） mn nr 再重复执行（2）譬如：10与5分析步骤：m=10 n=5r=m mod n=0所以n(n=5)为最大公约数24与9分析步骤：m=24 n=9r=m mod n=6r0 m=9 n=6r=m mod n=3r0 m=6 n=3r=m mod n=0所以n(n=3)为最大公约数算法实现Private Function GCD(ByVal m As Long, ByVal n As Long) As Long Dim temp As Long If m n Then temp = m: m = n: n = temp Dim r As Long Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop GCD = nEnd Function2) 最小公倍数mn最大公约数3) 互质数最大公约数为1的两个正整数2、素数算法说明 素数（质数）：就是一个大于等于2的整数，并且只能被1和本身整除，而不能被其他整数整除的数。 判别某数m是否是素数的经典算法是： 对于m，从I2，3，4，m1依次判别能否被I整除，只要有一个能整除，m就不是素数，否则m是素数。 Private Function prime(ByVal n%) As Boolean Dim i % prime=true For i = 2 To sqr(n) If n Mod I = 0 Then Prime=falseExit Forendif Next I End Function 3、进制转换算法说明 1) 十进制正整数m转换为R（216）进制的字符串。 思路： 将m不断除r取余数，直到商为0，将余数反序即得到结果。 算法实现： Private Function Tran(ByVal m As Integer, ByVal r As Integer) As String Dim StrDtoR As String, n As Integer Do While m o n = m Mod r m = m r If n 9 Then StrDtoR = Chr(65 + n - 10) & StrDtoR Else StrDtoR = n & StrDtoR End If Loop Tran = StrDtoR End Function 2) R（216）进制字符串转换为十进制正整数。 思路：R进制数每位数字乘以权值之和即为十进制数。 算法实现： Private Function Tran(ByVal s As String, ByVal r As Integer) As integer Dim n As Integer, dec As Integer s = UCase(Trim(s) For i% = 1 To Len(s) If Mid(s, i, 1) = A Then n = Asc(Mid(s, i, 1) - Asc(A) + 10 Else n = Val(Mid(s, i, 1) End If dec = dec + n * r (Len(s) - i) Next i Tran = dec End Function 4、排序问题（1）选择排序法（升序）基本思想：1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置；2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置；3）依次类推，选择了n-1次后，这个数列已按升序排列。Option base 1Sub sort(a() as integer)Dim i%,j%,t%,p%,n%N=ubound(a)For i = 1 To n - 1 p = i For j = i + 1 To n If a(j) a(p) Then p = j Next j t = a(i) a(i) = a(p) a(p) = tNext iEnd sub2冒泡法排序（升序） 基本思想：(将相邻两个数比较，小的调到前头)1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”；2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数；3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。程序段如下Sub sort(a() as integer)Dim i%,j%,n%,t%n=ubound(a)For i = 1 To n - 1 For j = 1 To n-i If a(j) a(j+1) Then temp=a(j)： a(j)=a(j+1)： a(j+1)=temp End if Next jNext i End sub5、查找问题1顺序查找法（在一列数中查找某数x） 基本思想：一列数放在数组a(1)-a(n)中，待查找的数放在x 中，把x与a数组中的元素从头到尾一一进行比较查找。用变量p表示a数组元素下标，p初值为1，使x与a(p)比较，如果x不等于a(p)，则使p=p+1，不断重复这个过程；一旦x等于a(p)则退出循环；另外，如果p大于数组长度，循环也应该停止。（这个过程可由下语句实现） p = 1 Do While x a(p) And p =n p = p + 1 Loop下面写一查找函数Find，若找到则返回下标值，找不到返回0Option Base 1Private Function Find( a( ) As Single,x As Single) As Integer Dim n%,p% n=Ubound( a )p = 1Do While x a(p) And p n then p=0 Find=pEnd Function 基本思想：一列数放在数组a(1)-a(n)中，待查找的关键值为key，把key与a数组中的元素从头到尾一一进行比较查找，若相同，查找成功，若找不到，则查找失败。(查找子过程如下。index：存放找到元素的下标。)Public Sub Search(a() As Variant, key As Variant, index%) Dim i% For i = LBound(a) To UBound(a) If key = a(i) Then index = i Exit Sub End If Next i index = -1End Sub2折半查找法（只能对有序数列进行查找）基本思想：设n个有序数（从小到大）存放在数组a(1)-a(n)中，要查找的数为x。用变量bot、top、mid 分别表示查找数据范围的底部（数组下界）、顶部（数组的上界）和中间，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 Integer Dim bot%, top%, mid% Dim find As Boolean 代表是否找到 bot = LBound(a) top = UBound(a) find = False 判断是否找到的逻辑变量，初值为False Do While bot = top And Not find mid = (top + bot) 2 If x = a(mid) Then find = True Exit Do ElseIf x a(p) and p a(p) And p a(row, Column) Then Max = a(i, j) row = i Column = j End If Next jNext iPrint 最大元素是; MaxPrint 在第 & row & 行,; 第 & Column & 列8、迭代法算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；再以新值作为初值，即：x1x0,重新按原来的方法求x1,重复这一过和直到|x1-x0| 0.00001 Fsqrt=x1End Function9、字符串的一般处理1简单加密和解密 加密的思想是： 将每个字母C加（或减）一序数K，即用它后的第K个字母代替，变换式公式： c=chr(Asc(c)+k) 例如序数k为5，这时 A F， a f，B G 当加序数后的字母超过Z或z则 c=Chr(Asc(c)+k -26) 例如：You are good Dtz fwj ltti 解密为加密的逆过程 将每个字母C减（或加）一序数K，即 c=chr(Asc(c)-k), 例如序数k为5，这时 ZU， zu，YT 当加序数后的字母小于A或a则 c=Chr(Asc(c)-k +26)下段程序是加密处理：i = 1: strp = nL = Len(RTrim(strI)Do While (i = 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) Else strp = strp + strT End If i = i + 1 LoopPrint strp2统计文本单词的个数 算法思路： （1）从文本（字符串）的左边开始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为False （2）若所取字符不是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符，再判断WT是否为True，若WT不为True则表是新单词的开始，让单词数Nw=Nw+1，让WT=True; （3）若所取字符是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符， 则表示字符不是单词内字符，让WT=False;(4) 再依次取下一个字符，重得（2）(3)直到文本结束。下面程序段是字符串strI中包含的单词数Nw = 0: Wt = FalsestrI = I am a student,I am a teachernL = Len(RTrim(strI)For i = 1 To nL strT = Mid$(strI, i, 1) 取第i个字符 Select Case strT Case , , ;, ! Wt = False Case Else If Not Wt Then Nw = Nw + 1 Wt = True End If End SelectNext iPrint 单词数为：, Nw10、穷举法穷举法（又称“枚举法”）的基本思想是：一一列举各种可能的情况，并判断哪一种可能是符合要求的解，这是一种“在没有其它办法的情况的方法”，是一种最“笨”的方法，然而对一些无法用解析法求解的问题往往能奏效，通常采用循环来处理穷举问题。例： 将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？Dim i%, j%, k%Print 5元 1元 0.5元For i = 1 To 20 For j = 1 To 100 - i k = 100 - i - j If 5.0 * i + 1.0 * j + 0.5 * k = 100 Then Print i, j, k End If Next j Next i11、递归算法用自身的结构来描述自身，称递归VB允许在一个Sub子过程和Function过程的定义内部调用自己，即递归Sub子过程和递归Function函数。递归处理一般用栈来实现，每调用一次自身，把当前参数压栈，直到递归结束条件；然后从栈中弹出当前参数，直到栈空。递归条件：（1）递归结束条件及结束时的值；（2）能用递归形式表示，且递归向终止条件发展。例：编fac(n)=n! 的递归函数 Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Elsefac = n * fac(n - 1) End IfEnd Function ASCII码表 信息在计算机上是用二进制表示的，这种表示法让人理解就很困难。因此计算机上都配有输入和输出设备，这些设备的主要目的就是，以一种人类可阅读的形式将信息在这些设备上显示出来供人阅读理解。为保证人类和设备，设备和计算机之间能进行正确的信息交换，人们编制的统一的信息交换代码，这就是ASCII码表，它的全称是“美国信息交换标准代码”。八进制十六进制十进制字符八进制十六进制十进制字符00000nul100406401011soh1014165A02022stx1024266B03033etx1034367C04044eot1044468D05055enq1054569E06066ack1064670F07077bel1074771G10088bs1104872H11099ht1114973I120a10nl1124a74J130b11vt1134b75K140c12ff1144c76L150d13er1154d77M160e14so1164e78N170f15si1174f79O201016dle1205080P211117dc11215181Q221218dc21225282R231319dc31235383S241420dc4124548