当前位置：文档之家 › (必看)2011VB上机考试常考算法大全欢迎下载@

(必看)2011VB上机考试常考算法大全欢迎下载@

  • 格式：doc
  • 大小：135.33 KB
  • 文档页数：14

一.简单算法1.交换2、计数、求阶乘、累加、累乘、综合做计算此三类问题都要使用循环，①要注意根据问题确定循环变量的初值、终值或结束条件，②更要注意用来表示计数、和、阶乘的变量的初值3、求最大、最小值算法的基本思想：在所需比较的数中确定一个数为最大值max，（一般设第一个数为最大），然后其它的值依次和max比较，如果比它大则替换它，直到所有数据比较完，保存在max中的值就是所求的最大值。

4.求两个整数的最大公约数、最小公倍数等分析：求最大公约数的算法思想：(最小公倍数=两个整数之积/最大公约数)(1) 对于已知两数m，n，使得m>n；(2) m除以n得余数r；(3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；(4) m←n，n←r，再重复执行(2)。

例如: 求 m=14 ,n=6 的最大公约数. m n r14 6 26 2 0m=inputBox("m=")n=inputBox("n=")nm=n*mIf m < n Then t = m: m = n: n = tr=m mod nDo While (r <> 0)m=nn=rr= m mod nLoopPrint "最大公约数=", nPrint "最小公倍数=", nm/n注意：因为m、n的值在过程中被改变，所以在过程调用时m,n一般设置为byval 5.判断素数只能被1或本身整除的数称为素数基本思想：把m作为被除数，将2～INT（m）(也可以是n－1或n/2)作为除数，如果都除不尽，m就是素数，否则就不是。

（可用以下程序段实现）m =val( InputBox("请输入一个数"))For i=2 To int(sqr(m))If m Mod i = 0 Then Exit ForNext iIf i > int(sqr(m)) ThenPrint "该数是素数"ElsePrint "该数不是素数"End If将其写成一函数,若为素数返回True，不是则返回FalsePrivate Function Prime( m as Integer) As BooleanDim I as integerPrime=TrueFor i=2 To int(sqr(m))If m Mod i = 0 ThenPrime=FalseExit ForendifNext iEnd Function此算法非常重要，经常考到，务必要掌握！不仅考其本身，也经常考其应用，如质因子等。

二.较复杂算法（一）排序问题比较的思想非常重要。

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

下面给出一个示例初始状态23 78 96 18 60 15 822378 96 18 60 1582第1次交换之后15 7896 1860 23 82第2次交换之后15 18 9678 60 2382第3次交换之后15 18 23 786096 82第4次交换之后15 18 23 60 7896 82第5次交换之后15 18 23 60 78 9682第6次交换之后15 18 23 60 78 82 96第7次交换之后15 18 23 60 78 82 96程序代码如下：For i = 1 To n - 1 'n个数需进行n-1趟iMin = i 'iMin用来记录最小值的位置For j = i + 1 To nIf A(iMin) > A(j) Then iMin = j 若要降序，则改为a(j)>a(i)Next jt = A(i)A(i) = A(iMin) '交换第i个和第imin个A(iMin) = tNext I2．冒泡法排序（升序）基本思想：(将相邻两个数比较，小的调到前头)1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”；2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数；3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。

我们通过一个例子进行说明初始状态23 78 96 18 60 15 82第1趟排序23 7896 18 60 15 8223 78 9618 60 15 8223 78 96 1860 15 8223 78 18 96 6015 8223 78 18 60 96 158223 78 18 60 15 96 8223 78 18 60 15 82 96第1趟排序后23 78 18 60 15 82 96第2趟排序后23 18 60 15 78 82 96第3趟排序后18 23 15 60 78 80 96第4趟排序后18 15 23 60 78 80 96第5趟排序后15 18 23 18 60 15 82第6趟排序后23 78 96 18 60 15 82程序段如下For i = 1 To n - 1For j = 1 To n-iIf a(j) > a(j+1) Then 若要降序，则改为a(j)<a(j+1)temp=a(j)： a(j)=a(j+1)： a(j+1)=tempEnd ifNext jNext i3．合并法排序（将两个有序数组A、B合并成另一个有序的数组C，升序）基本思想：1）先在A、B数组中各取第一个元素进行比较，将小的元素放入C数组；2）取小的元素所在数组的下一个元素与另一数组中上次比较后较大的元素比较，重复上述比较过程，直到某个数组被先排完；3）将另一个数组剩余元素抄入C数组，合并排序完成。

程序段如下：Do While ia <= UBound(A) And ib <= UBound(B) '当A和B数组均未比较完If A(ia) < B(ib) ThenC(ic) = A(ia)：ia = ia + 1ElseC(ic) = B(ib)：ib = ib + 1End Ific = ic + 1LoopDo While ia <= UBound(A) 'A数组中的剩余元素抄入C数组C(ic) = A(ia)ia = ia + 1：ic = ic + 1LoopDo While ib <= UBound(B) 'B数组中的剩余元素抄入C数组C(ic) = B(ib)ib = ib + 1：ic = ic + 1Loop4插入法排序（把一个数插到有序数列中，插入后数列仍然有序）基本思想：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-1a(i+1)=a(i)next ia(p)=x将其写成一插入函数Private Sub Instert(a() As Single, x As Single)Dim p%, n%, i%n = UBound(a)ReDim Preserve a(n + 1)p = 0Do While x > a(p) And p < =n ' 确定x应插入的位置p = p + 1LoopFor i = n To p Step -1a(i + 1) = a(i)Next ia(p) = xEnd Sub（二）查找问题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 = 1Do While x <> a(p) And p < =np = p + 1Loop下面写一查找函数Find，若找到则返回下标值，找不到返回0Option Base 1Private Function Find( a( ) As Single,x As Single) As IntegerDim n%,p%n=Ubound( a )p = 1Do While x <> a(p) And p < =np = p + 1LoopIf p>n then p=0Find=pEnd Function2．折半查找法（二分法查找）（只能对有序数列进行查找）基本思想：设n个有序数（从小到大）存放在数组a(1)----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 search(a() As Integer, x As Integer) As IntegerDim bot%, top%, mid%Dim find As Boolean '代表是否找到bot = LBound(a)top = UBound(a)find = False '判断是否找到的逻辑变量，初值为FalseDo While bot <= top And Not findmid = (top + bot) \ 2If x = a(mid) Thenfind = TrueExit DoElseIf x < a(mid) Thentop = mid - 1Elsebot = mid + 1End IfLoopIf find Thensearch = midElsesearch = -1End IfEnd Function（三）进制转换进制转换通常有二进制（B）、八进制（O）、十进制（D）、十六进制（H）之间的互相转换。

合集下载

VB常用算法总结大全

VB常用算法总结大全

VB常用算法总结大全VB（Visual Basic）是一种对初学者友好的编程语言，因其简单易学的特点而受到很多人的喜爱。

在VB中，算法是编程过程中非常重要的一部分，它们用来解决各种问题，从简单的数学计算到复杂的数据处理。

本文将总结一些常用的算法，帮助VB程序员更好地应用于实际项目中。

一、排序算法1.冒泡排序冒泡排序是一种简单的排序算法，它通过不断地交换相邻的元素来对数据进行排序。

它的基本思想是从列表的第一个元素开始，依次比较相邻的两个元素，如果顺序不正确，则交换它们的位置。

重复这个过程，直到整个列表都已经排序。

2.快速排序快速排序是一种高效的排序算法，它通过选择一个基准元素，将列表分为两部分，一部分小于基准元素，一部分大于基准元素。

然后对这两部分分别进行快速排序，最后将它们合并在一起。

3.插入排序插入排序是一种简单直观的排序算法，它将列表分为已排序和未排序两部分，每次选择未排序部分的第一个元素，并插入到已排序部分的适当位置。

重复这个过程，直到整个列表都已经排序。

二、查找算法1.顺序查找顺序查找是一种简单的查找算法，它从列表的第一个元素开始，依次比较每个元素，直到找到目标元素或者遍历完整个列表。

2.二分查找二分查找是一种高效的查找算法，它要求列表已经排序。

它通过比较目标元素与列表中间元素的大小关系来确定要的部分，并缩小范围。

重复这个过程，直到找到目标元素或者确定列表中没有目标元素。

三、图算法1.深度优先（DFS）深度优先是一种用于图遍历的算法，它从一个起始点开始，沿着一个路径尽可能深地访问节点，直到遇到一个没有未访问过的相邻节点为止。

然后回溯到前一个节点，寻找其他路径。

2.广度优先（BFS）广度优先也是一种用于图遍历的算法，它从一个起始点开始，依次访问所有与起始点相邻的节点，然后再依次访问这些节点的相邻节点，直到遍历完图中的所有节点。

四、动态规划动态规划是一种解决多阶段决策问题的方法，它将问题分解为若干个阶段，并定义状态和决策。

VB程序设计的常用算法

VB程序设计的常用算法


Loop Print "e="; e End Sub Private Sub Command2_Click() Dim e#, t#, n% e = 1: t = 1: n = 1 Do Until (1 / t) < 0.00000001 t=t*n e=e+1/t n=n+1 Loop Print "e="; e End Sub Private Sub Command3_Click() Dim e#, t#, n% e = 1: t = 1: n = 1 While (1 / t) > 0.00000001 t=t*n e=e+1/t n=n+1 Wend Print "e="; e End Sub 3、
abc: Next i End Sub
补充实例：验证哥德巴赫猜想 （任意一个大于等于6的偶数都可以分解为两个素数之和）
基本思想：n为大于等于6的任一偶数，可分解为n1和n2两个数， 分别检查n1和n2是否为素数，如都是，则为一组解。如n1不是素数，就 不必再检查n2是否素数。先从n1=3开始，检验n1和n2（n2=N-n1）是否 素数。然后使n1+2 再检验n1、n2是否素数，… 直到n1=n/2为止。 利用上面的prime函数，验证哥德巴赫猜想的程序代码如下： Dim n%,n1%,n2% n=Val(InputBox("输入大于6的正整数")) For n1=3 to n\2 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
VB常见算法

VB常见算法

1. 元素的调整：a(1)= 12 ,a(2)= 2 , a(3)=5 , a(4) =18 t = a（4）For i = 4 to 2step -1a(i) = a（i- 1）a(1)= t2.求a , b两个数的最大公倍数Mn = aDo while n Mod b <> 0n = n + aLoopM = n3.求a , b两个数的最大公约数NDor = a Mod ba = bb = rLoop Until r = 0N = a4.从右向左取一个整数n的各个位数DoK = n Mod 10n = n \ 10S = s & kLoop Until n = 05.求素数For I = 2 To NFor J = 2 To Sqr(I)If I Mod J =0 Then Exit Fora(Idx) = INext INext J6.递归法If i = 1 ThenFact = 1ElseIf i = 2 ThenFact = 2ElseFact = Fact（i - 1）+ Fact(i - 2)7.求一个整数的反序数m = “”D0X = n Mod 10m = m &Xn = n \ 10Loop while n <> 0M = Val(m)8 .判断一个整数n是否为回文数（如404是回文数）Private function judge() as BlooeanCh = Cstr(n )S = Len(Ch)For i = 1 To S/ 2If Mid(Ch , i ,1)<> Mid(Ch ,S - i +1, 1) Then Exit Function Next iHuiwen = TrueEnd function9.求一个不是素数的整数N的因子（除了1 和自身）For I = 1 To N - 1I f N Mod I = 0 ThenS = S & Str(I) ______ I为N的一个因子Next I10.求一个整数p的反序数S = Cstr(p)For i = 1 To Len(s)m = Mid(s, i, 1) & mNext i11取一个范围（m1~m2）内的不重复数i = 1DoN = Int(Rnd(m2-m1+1))+m1For k = 1 To i ............................................. 判断有无重复If rb(k ) = N Then Exit forNext kIf k > ii = i + 1rb(2) = NEnd ifLoop while e12.比较一个整数n中是否有相同的数字Private Function compare(n As Long) As BooleanDim i As Integer, a() As Integer, j As IntegerReDim a(Len(CStr(n)))For i = 1 To Len(CStr(n))a(i) = Mid(n, i, 1)Next iFor i = 1 To UBound(a) - 1For j = 2 To UBound(a)If a(i) = a(j) Then Exit FunctionNext jNext icompare = TrueEnd Function注意：1.回车换行符：S=S&VbCrLf2.InStrr(X, “N”)：从X的第一个位置起查找N在X中第一次出现的位置，返回数字。

VB常用算法总结大全

VB常用算法总结大全


22222 33333 44444
For I=2 to 3 S(2)=S(2)+X(I,1) S(3)=S(3)+X(I,5)
Next i for I=1 to 4
Next i Print t
Print Sum 思考：若把循环体前面置各变量初值的语句放 在循环体内，程序运行时会产生什么情况？
例求自然对数e的近似值,要求其误差小于0.00001，近似公式
为:
1 1 1
1
1
m1
e 1 ... ... 1
1! 2! 3! i!
i0 i!
i1 i!
常用算法总结—算法是对某个问题求解过程的描述
一、基本算法
1.累加、连乘
1～100的5或7的倍数的和
Sum = 0
3～10的乘积 t=1
For i = 1 To 100
For i =3 To 10
If i Mod 5 = 0 Or i Mod 7 = 0 Then
t=t*i
Sum = Sum + i End If Next i
Print i; "*"; j; "="; i * j;
Next j
Print
换作行用！?
Next i
End Sub
例：xh2.vbp
执行本程序，窗体上将显示九九乘法表。Ssfrm.frm
思考：打印上三角或下三角程序如何改动？要打印下 三角?
8. 打印图形
见下页
编写程序打印如外的循行右环数边用及图来每控行形制第：输一出个 Private Sub For字m符_C的l输ic出k(位) 置
******* ***** *** *