经典算法程序实现15(常见算法).docx

《经典算法程序实现15(常见算法).docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、绍兴鲁迅中学程序阅读编辑：沈云良经典算法程序实现2018(综合练习)班级：__________姓名：__________1.用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。PublicSubGetTJput()Dima(1To100)AsIntegerDimx(1To10)AsIntegerDimiAsInteger,pAsInteger'产生100个[0，99]范围内的随机整数Fori=1To100a(i)=Int(Rnd*100)Ifa(i)<10ThenLab1.Captio

2、n=Lab1.Caption&""&Str(a(i))ElseLab1.Caption=Lab1.Caption&Str(a(i))EndIf'每行10个在标签Lab1显示出来If______________Then'字符串常量VbCrLf的作用：换行Lab1.Caption=Lab1.Caption&VbCrLfEndIfNexti'统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0'的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)'中，将统计结果在标签Lab2显示出来Fori=1To100p=______________'求个位

3、上的数字Ifp=0Thenp=10x(p)=______________NextiLab2.Caption="统计结果"Fori=1To10p=iIfi=10Then_____________Lab2.Caption=Lab2.Caption&"个位数为"+_Str(p)+"共"+Str(x(i))+"个"NextiEndSub2.哥德巴赫猜想:任意一个大于等于6的偶数都可以分解为两个素数之和。基本思想：n为大于等于6的任一偶数，可分解为n1和n2两个数，分别检查n1和n2是否为素数，如都是，则为一组解。如n1不是素数，就不必再检查n2是否素数。先从n1=3开始，检

4、验n1和n2（n2=N-n1）是否素数。然后使n1+2再检验n1、n2是否素数，…直到n1=n/2为止。’Prime函数功能：若为素数返回True，不是则返回FalseFunctionPrime(masInteger)As_____________DimiAsInteger_____________Fori=2Toint(sqr(m))IfmModi=0ThenPrime=False:ExitForNextiEndFunction’利用上面的Prime函数，验证哥德巴赫猜想DimnAsInteger,n1AsInteger,n2AsIntegern=Val(Inpu

5、tBox("输入大于6的正整数"))Forn1=3ton2step2n2=n-n1Ifprime(n1)ThenIf_____________thenPrintn&"="&n1&"+"&n2ExitFor'结束循环EndifEndifNextn13．合并法排序（将两个有序数组A、B合并成另一个有序的数组C，升序）基本思想：1）先在A、B数组中各取第一个元素进行比较，将小的元素放入C数组；2）取小的元素所在数组的下一个元素与另一数组中上次比较后较大的元素比较，重复上述比较过程，直到某个数组被先排完；3）将另一个数组剩余元素抄入C数组，合并排序完成。程序段如下：'当A

6、和B数组均未比较完PrivateSubCmd_Click()DimA(1To200)AsIntegerDimB(1To200)AsIntegerDimiaAsInteger,ibAsIntegerDimnaAsInteger,nbAsInteger'A、B数组数据从外部文件读入，分别存储在A(1)、B(1)开始的元素中，数据个数存储在na、nb中ia=1:ib=1:ic=_______DoWhile_______________________IfA(ia)

7、If_____________Loop'A数组中的剩余元素抄入C数组2/2绍兴鲁迅中学程序阅读编辑：沈云良DoWhileia<=naC(ic)=A(ia)ia=ia+1：ic=ic+1Loop'B数组中的剩余元素抄入C数组DoWhileib<=nbC(ic)=B(ib)__________：ic=ic+1LoopEndSub4．顺序查找法（在一列数中查找某数key）PrivateCommand1_Click()Dima(1To100)AsIntegerDimnAsInteger,pAsInteger,iAsIntegerDomkeyAsIntegerkey=Va