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

《VB程序设计的常用算法.docx》由会员分享，可在线阅读，更多相关《VB程序设计的常用算法.docx（15页珍藏版）》请在三一办公上搜索。

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

2、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 Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer 产生100个0，99范围内的随机整数，每行10个打印出来 For i = 1 To 100 a(i

3、) = Int(Rnd * 100) If a(i) n； (2) m除以n得余数r； (3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)； (4) mn，nr，再重复执行(2)。 例如: 求 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 三、判断素

4、数 只能被1或本身整除的数称为素数 基本思想：把m作为被除数，将2INT作为除数，如果都除不尽，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 将其写成一函数,若为素数返回True，不是则返回False Private Function Prime( m as Integer) As Boolean Dim i% Prime=True F

5、or i=2 To int(sqr(m) If m Mod i = 0 Then Prime=False: Exit For Next i End Function 四、验证哥德巴赫猜想 基本思想：n为大于等于6的任一偶数，可分解为n1和n2两个数，分别检查n1和n2是否为素数，如都是，则为一组解。如n1不是素数，就不必再检查n2是否素数。先从n1=3开始，检验n1和n2是否素数。然后使n1+2 再检验n1、n2是否素数， 直到n1=n/2为止。 利用上面的prime函数，验证哥德巴赫猜想的程序代码如下： Dim n%,n1%,n2% n=Val(InputBox(输入大于6的正整数) For

6、 n1=3 to n2 step 2 n2=n-n1 If prime(n1) Then If prime(n2) then Print n & = & n1 & + & n2 Exit For 结束循环 End if End if Next n1 五、排序问题 1选择法排序 基本思想： 1）对有n个数的序列，从中选出最小的数，与第1个数交换位置； 2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置； 3）依次类推，选择了n-1次后，这个数列已按升序排列。 程序代码如下： For i = 1 To n - 1 imin = i For j = i + 1 To n If a(i

7、min) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next I 2冒泡法排序 基本思想：(将相邻两个数比较，小的调到前头) 1）有n个数，第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”； 2）第二趟对余下的n-1个数按上法比较，经n-2次两两相邻比较后得次大的数； 3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。 程序段如下 For i = 1 To n - 1 For j = 1 To n-i If

8、 a(j) a(j+1) Then temp=a(j)： a(j)=a(j+1)： a(j+1)=temp End if Next j Next i 3合并法排序 基本思想： 1）先在A、B数组中各取第一个元素进行比较，将小的元素放入C数组； 2）取小的元素所在数组的下一个元素与另一数组中上次比较后较大的元素比较，重复上述比较过程，直到某个数组被先排完； 3）将另一个数组剩余元素抄入C数组，合并排序完成。 程序段如下： Do While ia = UBound(A) And ib = UBound(B) 当A和B数组均未比较完 If A(ia) B(ib) Then C(ic) = A(ia)

9、： ia = ia + 1 Else C(ic) = B(ib)： ib = ib + 1 End If ic = ic + 1 Loop Do While ia = UBound(A) A数组中的剩余元素抄入C数组 C(ic) = A(ia) ia = ia + 1： ic = ic + 1 Loop Do While ib = UBound(B) B数组中的剩余元素抄入C数组 C(ic) = B(ib) ib = ib + 1： ic = ic + 1 Loop 六、查找问题 1顺序查找法 基本思想：一列数放在数组a(1)-a(n)中，待查找的数放在x 中，把x与a数组中的元素从头到尾一一

10、进行比较查找。用变量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，若找到则返回下标值，找不到返回0 Option Base 1 Private Function Find( a( ) As Single,x As Single) As Integer Dim n%,p% n=Ubound( a ) p = 1 Do While x a(p)

11、And p n then p=0 Find=p End 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 = -1

12、 End Sub 2折半查找法 基本思想：设n个有序数存放在数组a(1)-a(n)中，要查找的数为x。用变量bot、top、mid 分别表示查找数据范围的底部、顶部和中间，mid=(top+bot)/2，折半查找的算法如下： x=a(mid)，则已找到退出循环，否则进行下面的判断； xa(mid)，x必定落在mid+1和top的范围之内，即bot=mid+1； 在确定了新的查找范围后，重复进行以上比较，直到找到或者bot=top。 将上面的算法写成如下函数，若找到则返回该数所在的下标值，没找到则返回-1。 Function search(a As Integer, x As Integer)

13、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

14、End If Next j Next i Print 最大元素是; Max Print 在第 & row & 行,; 第 & Column & 列 九、迭代法 算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；再以新值作为初值，即：x1x0,重新按原来的方法求x1,重复这一过和直到|x1-x0| 0.00001 Fsqrt=x1 End Function =1a(x0+) 2x0十、数制转换 将一个十进制整数m转换成 r(216)进制字符串。 方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转

15、换函数，参数idec为十进制数，ibase为要转换成数的基，函数输出结果是字符串。 Private Function TrDec(idec As Integer, ibase As Integer) As String Dim strDecR$, iDecR% strDecR = Do While idec 0 iDecR = idec Mod ibase If iDecR = 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & strDecR End If idec = idec ibase Loo

16、p TrDec = strDecR End Function 十一、字符串的一般处理1简单加密和解密 加密的思想是： 将每个字母C加一序数K，即用它后的第K个字母代替，变换式公式： c=chr(Asc(c)+k) 例如序数k为5，这时 A F， af，BG 当加序数后的字母超过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) 下段程序是加密处理：

17、 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 Loop Print strp 2统计文本单词的个数 算法思路： 从文本的左边开始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为F

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

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

20、, 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 i 十三、递归算法 用自身的结构来描述自身，称递归 VB允许在一个Sub子过程和Function过程的定义内部调用自己，即递归Sub子过程和递归Function函数。递归处理一般用栈来实现，每调用一次自身，把当前参数压栈，直到递归结束条件；然后从栈中弹出当前参数，直到栈空。 递归条件：递归结束条件及结束时的值；能用递归形式表示，且递归向终止条件发展。 例：编fac(n)=n! 的递归函数 Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function