VB常用算法介绍

1、常用算法介绍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   

3、Dim i As Integer, p As Integer    '产生100个0，99范围内的随机整数，每行10个打印出来    For i = 1 To 100        a(i) = Int(Rnd * 100)        If a(i) < 10 Then         &#

4、160;  Form1.Print Space(2); a(i);        Else            Form1.Print Space(1); a(i);        End If        If i Mod 10 = 0 Then Form1.Pr

5、int    Next i    '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),.,x(10)中，将统计结果打印出来    For i = 1 To 100        p = a(i) Mod 10    ' 求个位上的数字        If p

6、= 0 Then p = 10        x(p) = x(p) + 1    Next i    Form1.Print "统计结果"    For i = 1 To 10        p = i        If i = 10 Then p = 0 

7、0;      Form1.Print "个位数为" + Str(p) + "共" + Str(x(i) + "个"    Next iEnd Sub二、求两个整数的最大公约数、最小公倍数分析：求最大公约数的算法思想：(最小公倍数=两个整数之积/最大公约数)       (1) 对于已知两数m，n，使得m>n；       (2)

8、m除以n得余数r；       (3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；       (4) mn，nr，再重复执行(2)。     例如: 求 m=14 ,n=6 的最大公约数.        m      n      

9、0; r                                        14      6    

10、60;  2                                             6    

11、;   2       0m=inputBox("m=")n=inputBox("n=")nm=n*mIf m < n Then t = m: m = n: n = t    r=m mod nDo While (r <> 0)                 

12、                        m=n         n=r         r= m mod n    Loop    Print &quo

13、t;最大公约数=", n Print "最小公倍数=", nm/n 三、判断素数只能被1或本身整除的数称为素数 基本思想：把m作为被除数，将2INT（）作为除数，如果都除不尽，m就是素数，否则就不是。（可用以下程序段实现）m =val( InputBox("请输入一个数")          For i=2 To int(sqr(m)          &#

14、160;    If m Mod i = 0 Then    Exit For           Next i           If i > int(sqr(m) Then              Prin

15、t "该数是素数"          Else              Print "该数不是素数"          End If将其写成一函数,若为素数返回True，不是则返回FalsePrivate Function Prime( m as

16、Integer) As Boolean                  Dim i%                             Prime=Tr

17、ue                  For i=2 To int(sqr(m)                 If m Mod i = 0 Then   Prime=False: Exit For    

18、              Next i             End Function四、验证哥德巴赫猜想（任意一个大于等于6的偶数都可以分解为两个素数之和）基本思想：n为大于等于6的任一偶数，可分解为n1和n2两个数，分别检查n1和n2是否为素数，如都是，则为一组解。如n1不是素数，就不必再检查n2是否素数。先从n1=3开始，检验n1和n2（

19、n2=N-n1）是否素数。然后使n1+2   再检验n1、n2是否素数， 直到n1=n/2为止。利用上面的prime函数，验证哥德巴赫猜想的程序代码如下：Dim n%,n1%,n2%        n=Val(InputBox("输入大于6的正整数")       For n1=3 to n step 2          n2=n-n1 

20、0;         If prime(n1)   Then                If prime(n2) then                     P

21、rint n & "=" & n1 & "+" & n2                     Exit For                  

22、0;             '结束循环               End if           End if       Next n1五、排序问题1选择法排序（升

23、序）基本思想：1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置；2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置；3）依次类推，选择了n-1次后，这个数列已按升序排列。              程序代码如下：For i = 1 To n - 1        imin = i      

24、;  For j = i + 1 To n            If a(imin) > a(j) Then imin = j        Next j        temp = a(i)        a(i) = a(imin)  &

25、#160;     a(imin) = tempNext I2冒泡法排序（升序） 基本思想：(将相邻两个数比较，小的调到前头)1）有n个数（存放在数组a(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-

26、i        If a(j) > a(j+1) Then            temp=a(j)： a(j)=a(j+1)： a(j+1)=temp        End if   Next jNext i3合并法排序（将两个有序数组A、B合并成另一个有序的数组C，升序）基本思想：1）先在A、B数组中各取第一个元素进行比较，将

27、小的元素放入C数组；2）取小的元素所在数组的下一个元素与另一数组中上次比较后较大的元素比较，重复上述比较过程，直到某个数组被先排完；3）将另一个数组剩余元素抄入C数组，合并排序完成。程序段如下：   Do While ia <= UBound(A) And ib <= UBound(B)   '当A和B数组均未比较完          If A(ia) < B(ib) Then     &#

28、160;          C(ic) = A(ia)： ia = ia + 1          Else                C(ic) = B(ib)： ib = ib + 1      

29、60;   End If          ic = ic + 1    Loop    Do While ia <= UBound(A)    'A数组中的剩余元素抄入C数组          C(ic) = A(ia)      &

30、#160;   ia = ia + 1：   ic = ic + 1    Loop    Do While ib <= UBound(B)   'B数组中的剩余元素抄入C数组            C(ic) = B(ib)            ib

31、= ib + 1： ic = ic + 1    Loop六、查找问题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)

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

33、       p = p + 1Loop      If p>n then p=0       Find=pEnd Function   基本思想：一列数放在数组a(1)-a(n)中，待查找的关键值为key，把key与a数组中的元素从头到尾一一进行比较查找，若相同，查找成功，若找不到，则查找失败。(查找子过程如下。index：存放找到元素的下标。)Public Sub Search(a()

34、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 IfNext i    index = -1End Sub2折半查找法（只能对有序数列进行查找）基本思想：设n个有序数（从小到大）存放在数组a(1)-

35、a(n)中，要查找的数为x。用变量bot、top、mid 分别表示查找数据范围的底部（数组下界）、顶部（数组的上界）和中间，mid=(top+bot)/2，折半查找的算法如下：（1）x=a(mid)，则已找到退出循环，否则进行下面的判断；（2）x<a(mid)，x必定落在bot和mid-1的范围之内，即top=mid-1；（3）x>a(mid)，x必定落在mid+1和top的范围之内，即bot=mid+1；（4）在确定了新的查找范围后，重复进行以上比较，直到找到或者bot<=top。将上面的算法写成如下函数，若找到则返回该数所在的下标值，没找到则返回-1。Function s

36、earch(a() As Integer, x As Integer) As Integer    Dim bot%, top%, mid%    Dim find As Boolean   '代表是否找到    bot = LBound(a)    top = UBound(a)    find = False         

37、 '判断是否找到的逻辑变量，初值为False    Do While bot <= top And Not find          mid = (top + bot) 2If x = a(mid) Then            find = True         &

38、#160;  Exit Do          ElseIf x < a(mid) Then              top = mid - 1            Else      &#

39、160;       bot = mid + 1            End If        Loop    If find Then       search = mid     Else   

40、;    search = -1    End IfEnd Function七、插入法把一个数插到有序数列中，插入后数列仍然有序基本思想：n个有序数（从小到大）存放在数组a(1)a(n)中，要插入的数x。首先确定x插在数组中的位置P；（可由以下语句实现）p=1do while x>a(p) and p<=np=p+1loopa(p)a(n)元素向后顺移一个位置以空出a(p)元素放入x，可由以下语句实现：for i=n to p step-1 a(i+1)=a(i)next ia(p)=x将其写成一插入函数Private S

41、ub Instert(a() As Single, x As Single)            Dim p%, n%, i%            n = UBound(a)            ReDim Preserve a(n + 1)  

42、;          p = 0            Do While x > a(p) And p < =n    ' 确定x应插入的位置          p = p + 1      

43、0;     Loop            For i = n To p Step -1              a(i + 1) = a(i)            Next i  &

44、#160;         a(p) = x     End Sub八、矩阵（二维数组）运算（1）矩阵的加、减运算           C(i,j)=a(i,j)+b(i,j)           加法      

45、60;    C(i,j)=a(i,j)-b(i,j)            减法（2）矩阵相乘（矩阵A有M*L个元素，矩阵B有L*N个元素，则矩阵C=A*B有M*N个元素）。矩阵C中任一元素   (i=1,2,m;   j=1,2,n)For i = 0 To m             

46、;                For j = 0 To n                                 &

47、#160;  c(i, j) = 0                                    For k = 0 To l        

48、0;                          c(i, j) = c(i, j) + a(i, k) * b(k, j)   Next k               &

49、#160;                 Next j                                Next

50、i                                   （3）矩阵传置例:有二维数组a(5,5)，要对它实现转置，可用下面两种方式：For i=1 to 5       &#

51、160;          (2) For i=2 to 5For j=i+1 to 5                  For j=1 to i t=a(i,j)              

52、60;        t=a(i,j)a(i,j)= a(j,i)                         a(i,j)= a(j,i)a(j,i)=t           

53、;                  a(j,i)=tNext j                     Next jNext i        &

54、#160;              Next i（4）求二维数组中最小元素及其所在的行和列基本思路同一维数组，可用下面程序段实现（以二维数组a(2,3)为例）：变量max中存放最大值，row,column存放最大值所在行列号Max = a(1, 1): row = 1: Column = 1For i = 1 To 2    For j = 1 To 3       

55、; If a(i, j) > a(row, Column) Then            Max = a(i, j)            row = i            Column = j     &#

56、160;  End If    Next jNext iPrint "最大元素是" MaxPrint "在第" & row & "行," "第" & Column & "列"九、迭代法算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；再以新值作为初值，即：x1x0,重新按原来的方法求x1,重复这一过和直到|x1-x0|<(某一给定的精度)

57、。此时可将x1作为问题的解。例：用迭代法求某个数的平方根。 已知求平方根的迭代公式为：Private Function Fsqrt( a As single ) AS singleDim x0 As Single, x1 As Single     x0 =a/2          '迭代初值     x1 = 0.5*(x0 + a/x0)     Do  

58、          x0 = x1   '为下一次迭代作准备            x1 = 0.5*(x0 + a/x0)    Loop While Abs(x1 - x0) > 0.00001    Fsqrt=x1End Function十、数制转换    

59、 将一个十进制整数m转换成 r(216)进制字符串。方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串。Private Function TrDec(idec As Integer, ibase As Integer) As String Dim strDecR$, iDecR%     strDecR = ""     Do While idec <&

60、gt; 0          iDecR = idec Mod ibase          If iDecR >= 10 Then             strDecR = Chr$(65 + iDecR - 10) & strDecR    

61、;      Else             strDecR = iDecR & strDecR          End If          idec = idec ibase    Loop 

62、  TrDec = strDecREnd 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 -2

63、6)         例如：You are good Dtz   fwj ltti   解密为加密的逆过程    将每个字母C减（或加）一序数K，即 c=chr(Asc(c)-k),    例如序数k为5，这时 "Z""U"， "z""u"，"Y""T"当加序数后的字母小于"A"

64、或"a"则 c=Chr(Asc(c)-k +26)下段程序是加密处理：i = 1:   strp = ""nL = Len(RTrim(strI)Do While (i <= nL)       strT = Mid$(strI, i, 1)     '取第i个字符       If (strT >= "A" And strT <=

65、 "Z") Then       iA = Asc(strT) + 5             If iA > Asc("Z") Then iA = iA - 26             strp = strp + Chr$(iA) 

66、0;     ElseIf (strT >= "a" And strT <= "z") Then              iA = Asc(strT) + 5              If iA > Asc("z")

67、Then iA = iA - 26              strp = strp + Chr$(iA)            Else        strp = strp + strT        End If&

68、#160;       i = i + 1    LoopPrint strp2统计文本单词的个数算法思路：（1）从文本（字符串）的左边开始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为False（2）若所取字符不是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符，再判断WT是否为True，若WT不为True则表是新单词的开始，让单词数Nw=Nw+1，让WT=True;（3）若所取字符是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符， 则表示字符不是单词内字符，让WT=

69、False;(4) 再依次取下一个字符，重得（2）(3)直到文本结束。下面程序段是字符串strI中包含的单词数Nw = 0: Wt = FalsenL = Len(RTrim(strI)For i = 1 To nL      strT = Mid$(strI, i, 1)     '取第i个字符      Select Case strT         &

70、#160;  Case " ", ",", "", "!"         Wt = False            Case Else                  If Not Wt Then                &