VB程序设计的常用算法(复习).doc

《VB程序设计的常用算法(复习).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB程序设计的常用算法介绍算法（Algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。一、计数、求和、求阶乘等简单算法　　此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。　具体程序见课本！二、求两个整数的最大公约数、最小公倍数分析：求最大公约数的算法思想：(1)对于已知两数m，n，使得m

2、>n；(2)m除以n得余数r；(3)若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；(4)m←n，n←r，再重复执行(2)。例如:求m=14,n=6的最大公约数.mnr1462620PrivateSubForm_Click()m=InputBox("m=")n=InputBox("n=")Ifm0)m=nn=rr=mModnLoopPrint"最大公约数=",nEndSub最小公倍数：(最小公倍数=两个整数之积/最大公约数)PrivateSubForm_Click()m=InputBox("

3、m=")n=InputBox("n=")nm=n*mIfm0)m=nn=rr=mModnLoopPrint"最大公约数=",nPrint"最小公倍数=",nm/nEndSub三、判断素数　　（1）只能被1或本身整除的数称为素数基本思想：把m作为被除数，将2—INT（）作为除数，如果都除不尽，m就是素数，否则就不是。（可用以下程序实现）PrivateSubCommand2_Click()DimmAsInteger,iAsIntegerm=InputBox("请输入一个正整数")i=2swit=0'检测开关

4、Whilei<=(m-1)Andswit=0IfmModi=0Thenswit=1Elsei=i+1EndIfWendIfswit=0ThenPrintm;"是一个素数"ElsePrintm;"不是素数"EndIfEndSub（2）打印出100以内的所有素数。PrivateSubCommand1_Click()DimiAsInteger,mAsIntegerj=0Form=2To100swit=0'检测开关i=2Whilei<=Int(Sqr(m))Andswit=0IfmModi=0Thenswit=1Elsei=i+1EndIfWendIfswit=0ThenPrin

5、tm;"";j=j+1Ifj=5Thenj=0:Print'IfjMod5=0ThenPrintEndIfNextmEndSub四、排序问题1．选择法排序（升序）　　基本思想：　　1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置；　　2）除第1个数外，其余n-1个数中选最小的数，与第2个数交换位置；　　3）依次类推，选择了n-1次后，这个数列已按升序排列。程序代码见课本P172.　　PrivateSubCommand1_Click()Dima(1To10)n=10RandomizeFori=1To10a(i)=Int(90*Rnd+10)

6、NextiPrint"原始数据为："Fork=1TonPrinta(k);NextkPrintPrint"选择法排序为："Fori=1Ton-1'共进行n-1遍比较imin=i'对第i遍比较时，初始假定第i个元素最小Forj=i+1Ton'在数组i~n个个元素中选最小元素的下标Ifa(j)

7、2．冒泡法排序（升序）　　基本思想：(将相邻两个数比较，小的调到前头)　　1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”；2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数；　　　3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。　　　程序代码见课本P171.PrivateSubCommand1_Click()Dimb(1To10)Randomiz