计算机二级vb常用算法经典题型代码.docx

计算机二级vb常用算法经典题型代码.docx

《计算机二级vb常用算法经典题型代码.docx》由会员分享，可在线阅读，更多相关《计算机二级vb常用算法经典题型代码.docx（4页珍藏版）》请在冰豆网上搜索。

计算机二级vb常用算法经典题型代码

VB基本算法

加书签收藏下载跳至底部↓

阅读:

601次大小:

32KB（共2页）

VB基本算法

主讲人：

许洋

算法分类

数值算法和非数值算法。

数值算法和非数值算法。

常用算法：

迭代、穷举、递推、递归、分解等

典型算法例子

（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

（7）求两个数的最大公约数（欧几里得算法）

dor=mmodnm=nn=rloopuntilr=0print“theGCD=”;m

（8）求两个数的最小公倍数

t=mdowhiletmodn<>0’判断t是n的倍数?

t=t+m’保证t是m的倍数loopprintm;”和”;n;“的最小公倍数是:

”;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