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

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

2、印出来。本题使用数组来处理，用数组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 Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer 产生100个0，99范围内的随机整数，每行10个打印出来

3、 For i = 1 To 100 a(i) = 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 0m=inputBox(m=)n=inputBox(n=)nm=n*mIf 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 最

4、小公倍数=, nm/n三、判断素数只能被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，不是则返回FalsePrivate Function Prime( m as Integer) As Bo

5、olean Dim i% Prime=True For i=2 To int(sqr(m) If m Mod i = 0 Then Prime=False: Exit For Next i End Function四、排序问题1选择法排序（升序）基本思想：1）对有n个数的序列（存放在数组a(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(imin) a(j

6、) Then imin = j Next j t = a(i) a(i) = a(imin) a(imin) = tNext I五、查找问题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下

7、面写一查找函数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

8、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)，

9、则已找到退出循环，否则进行下面的判断；（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 判断是否找到的逻辑变量，初值

10、为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 & 列八、数制转换 将一个十进制整数m转换成 r(216)进制字符串。方法：将m不断除 r 取余数，直

11、到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串。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 &

12、 strDecR End If idec = idec ibase Loop TrDec = strDecR End Function九、字符串的一般处理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

13、当加序数后的字母小于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）

14、从文本（字符串）的左边开始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为False （2）若所取字符不是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符，再判断WT是否为True，若WT不为True则表是新单词的开始，让单词数Nw=Nw+1，让WT=True; （3）若所取字符是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符， 则表示字符不是单词内字符，让WT=False;(4) 再依次取下一个字符，重得（2）(3)直到文本结束。下面程序段是字符串strI中包含的单词数Nw = 0: Wt = FalsenL = Len(RTrim(strI)For i =

15、 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 单词数为：, Nw十、穷举法穷举法（又称“枚举法”）的基本思想是：一一列举各种可能的情况，并判断哪一种可能是符合要求的解，这是一种“在没有其它办法的情况的方法”，是一种最“笨”的方法，然而对一些无法用解析法求解的问题往往能奏效，通常采用循环来处理穷举问题。例： 将一张面值为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 i