VB算法总结材料.docx

word
word
1 / 21
word
VB算法总结:
1、最大公约数算法说明
1)        最大公约数：
用辗转相除法求两自然数m、n的最大公约数。
（1）        首先，对于已知两数m、n，比较并使得m>= dec
End Function
4、排序问题
（1）．选择排序法（升序）
基本思想：
1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置；
2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置；
3）依次类推，选择了n-1次后，这个数列已按升序排列。
Option base 1
Sub 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) = t
Next i
End sub
2．冒泡法排序（升序）
基本思想：(将相邻两个数比较，小的调到前头)
1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经
word
word
6 / 21
word
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 j
Next i
End sub
5、查找问题
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，若找到则返回下标值，找不到返回0
Option Base 1
word
word
7 / 21
word
Private Function Find( a( ) As Single,x As Single) As Integer
Dim n%,p%
n=Ubound( a )
p = 1
Do While x <> a(p) And p < =n
p = p + 1
Loop
If 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
End Sub
2．折半查找法（只能对有序数列进行查找）
基本思想：设n个有序数（从小到大）存放在数组a(1)----a(n)中，要查找的数为x。用变量bot、top、mid 分别表示查找数据围的底部（数组下界）、顶部（数组的上界）和中间，mid=(top+bot)/2，折半查找的算法如下：
（1）x=a(mid)，则已找到退出循环，否则进行下面的判断；
（2）x<a(mid)，x必定落在b