计算机二级vb常用算法经典题型代码文档格式.docx
- 文档编号:22934509
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:4
- 大小:15.50KB
计算机二级vb常用算法经典题型代码文档格式.docx
《计算机二级vb常用算法经典题型代码文档格式.docx》由会员分享,可在线阅读,更多相关《计算机二级vb常用算法经典题型代码文档格式.docx(4页珍藏版)》请在冰豆网上搜索。
算法分类
数值算法和非数值算法。
数值算法和非数值算法。
常用算法:
迭代、穷举、递推、递归、分解等
典型算法例子
(1)交换a,b的值temp=aa=bb=temp
或者temp=bb=aa=temp
(2)求1~n个自然数的累加和
s=0fori=1tons=s+i‘注意,此句是累加的关键。
nexti
求一维数组各元素的和
s=0fori=1tons=s+a(i)nexti
求二维数组各元素的和
s=0fori=1tonforj=1toms=s+a(i,j)nextjnexti
求二维数组周边元素的和
s=0Fori=1toNs=s+A(1,i)+A(M,i)NextiFori=2toM-1s=s+A(i,1)+A(i,N)Nexti
求二维数组A(N,N)主对角线元素的和
s=0Fori=1toNS=s+A(i,i)NextI
求二维数组A(N,N)次对角线元素的和
s=0Fori=1toNS=s+A(i,N+1-i)Nexti
(3)求n!
(求累乘积)
fact=1Fori=1tonfact=fact*iNexti
(4)求斐波那契数列
Dimfib()AsInteger’数组声明N=InputBox(“请输入要求的项数:
”)Redimfib(n)
fib
(1)=1:
fib
(2)=1’处理部分ForI=3tonfib(I)=fib(I-1)+fib(I-2)NextI’输出语句
Print“斐波那契数列的前”;
n;
“项是:
”ForI=1tonPrintfib(I);
NextI
(5)将一维数组的前N项颠倒
m=Int(n/2)ForI=1tomT=A(I)A(I)=A(n+1-I)A(n+1-I)=TNextI
(6)删除数组A(N)中的第I项元素
ForJ=ItoN-1A(J)=A(J+1)NextJN=N-1RedimPreserveA(N)
(7)求两个数的最大公约数(欧几里得算法)
do’输入数据的合法性检查m=InputBox(“请输入m:
”)n=InputBox(“请输入n”)ifm<
>
0andn<
0thenexitdoprint“dataerror!
Reinput!
”loop
dor=mmodnm=nn=rloopuntilr=0print“theGCD=”;
m
(8)求两个数的最小公倍数
t=mdowhiletmodn<
0’判断t是n的倍数?
t=t+m’保证t是m的倍数loopprintm;
”和”;
“的最小公倍数是:
”;
t
(9)求无穷级数的近似值
关键是找出通项表达式,例如:
利用级数公式1+1/3^2+1/5^2+…+1/(2*n+1)^2求π的值,结束计算的条件是n>
2000(n是项数)或an<
=0.00000001
程序代码如下:
s=1:
n=1dowhilen<
=2000a=1/(2*n+1)^2’单项值s=s+a’累加n=n+1’计数loopuntila<
=1e-7p=sqr(s*8)print“pi=”;
p
(10)顺序检索
在50个同学的成绩中,找出某同学的成绩。
DimA(50,2)AsStringForI=1to50A(I,1)=InputBox(“请输入姓名”)A(I,2)=InputBox(“请输入成绩”)NextIName=Inputbox(“输入要查找的学生姓名”)
在50个同学的数据中,找出某同学的成绩。
ForI=1to50IfA(I,1)=Namethenscore=val(A(I,2))’记录分数ExitforEndIfNextI
输出结果
ifI>
50thenprint“没找到”elseprintName;
“的成绩是:
”;
scoreendif
(11)二分检索
被检索的数组元素已排好序才能使用二分检索。
low=1high=nf=0(处理部分)Iff=0thenPrint“Notfound”ElsePrintx
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 vb 常用 算法 经典 题型 代码
![提示](https://static.bdocx.com/images/bang_tan.gif)