VB常用算法总结大全PPT格式课件下载.ppt
- 文档编号:14309689
- 上传时间:2022-10-22
- 格式:PPT
- 页数:83
- 大小:502KB
VB常用算法总结大全PPT格式课件下载.ppt
《VB常用算法总结大全PPT格式课件下载.ppt》由会员分享,可在线阅读,更多相关《VB常用算法总结大全PPT格式课件下载.ppt(83页珍藏版)》请在冰豆网上搜索。
n=n*i循环体外对连乘积变量置1n=1PrivateSubForm_Click()Dimi%,neEndSub,2.求素数判别某数m是否为素数最简单的方法是:
对于m从i=2,3,m-1判别m能否被i整除,只要有一个能整除,m不是素数,否则m是素数。
Form=2To100Fori=2Tom-1If(mModi)=0ThenexitforNextiifIm-1thenmsgboxstr(m)+”是素数”Elsemsgboxstr(m)+”不是素数”EndIfNextm,m是否为素数,求100以内的素数,3.穷举法“穷举法”也称为“枚举法”或“试凑法”,即将可能出现的各种情况一一测试,判断是否满足条件,一般采用循环来实现。
例百元买百鸡问题。
假定小鸡每只5角,公鸡每只2元,母鸡每只3元。
现在有100元钱要求买100只鸡,编程列出所有可能的购鸡方案。
设母鸡、公鸡、小鸡各为x、y、z只,根据题目要求,列出方程为:
x+y+y=1003x+2y+0.5z=100三个未知数,两个方程,此题有若干个解。
解决此类问题采用“试凑法”,把每一种情况都考虑到。
方法一:
最简单三个未知数利用三重循环来实现。
方法二:
从三个未知数的关系,利用两重循环来实现。
方法一:
PrivateSubForm_click()DimX%,y%,z%ForX=0To100ForY=0To100ForZ=0To100IfX+y+z=100And3*x+2*y+.5*z=100ThenPrintX,y,zEndIfNextZNextYNextXEndsub,方法二:
ForX=0To33ForY=0To50Z=100-x-yIf3*x+2*y+.5*z=100ThenPrintX,Y,ZEndIfNextYNextX,4.递推法“递推法”又称为“迭代法”,其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。
每次重复都从旧值的基础上递推出新值,并由新值代替旧值。
例猴子吃桃子。
小猴在一天摘了若干个桃子,当天吃掉一半多一个;
第二天接着吃了剩下的桃子的一半多一个;
以后每天都吃尚存桃子的一半零一个,到第7天早上要吃时只剩下一个了,问小猴那天共摘下了多少个桃子?
分析:
这是一个“递推”问题,先从最后一天推出倒数第二天的桃子,再从倒数第二天的桃子推出倒数第三天的桃子。
设第n天的桃子为xn,那么它前一天的桃子数是xn-1。
已知:
当N=7第7天的桃子数为1,则第6天的桃子数由公式得4个,依次类推,可求得第1天的桃子数。
程序如下:
Privatesubform_click()DimIasintegerx=1print“第7天的桃子数为:
1只”forI=6to1step1x=(x+1)*2print“第”;
I;
”天的桃子数为:
”;
x;
”只”nextIEndsub,5.最小、最大值在若干个数中求最大值,一般先假设一个较小的数为最大值的初值,若无法估计较小的值,则取第一个数为最大值的初值;
然后将每一个数与最大值比较,若该数大于最大值,将该数替换为最大值;
依次逐一比较。
例随机产生10个100200之间的数,求最大值。
PrivateSubCommand1_Click()Max=100Fori=1To10x=Int(Rnd*101)+100Printx;
IfxMaxThenMax=xNextiPrintPrint最大值=;
MaxEndSub,6、求最大公约数,PrivateSubCommand1_Click()Dimm,n,rAsLongm=Val(Text1.Text)取数据Mn=Val(Text2.Text)取数据NIfmInt(m)ormInt(n)orn1ThenText3.Text=数据错误!
ElseDo求最大公约数r=mModnm=nn=rLoopUntilr=0Text3.Text=CStr(m)输出最大公约数EndIfEndSub,判断数据是否合法,PrivateSubForm_Click()Fori=1To9Forj=1To9Printi;
*;
j;
=;
i*j;
NextjPrintNextiEndSub执行本程序,窗体上将显示九九乘法表。
Forj=1Toi,7、关于循环嵌套(一个循环体内又包含了一个完整的循环结构称为循环的嵌套.),换行!
作用?
例:
xh2.vbpSsfrm.frm,思考:
打印上三角或下三角程序如何改动?
要打印下三角?
8.打印图形见下页,编写程序打印如右边图形:
PrivateSubForm_Click()Fori=1To4PrintSpace(5-i);
Forj=1To2*i-1Print*;
NextjPrintNextiPrintEndSub,*,*,外循环用来控制输出的行数及每行第一个字符的输出位置,内循环用来控制每行输出的字符个数。
xh2.vbpshjs.frm,9.判断同构数(复习材料P39第7题),10.找亲密对数P111例5-1011.判断完数实验P55实验7-212.计算多项式的和实验P51实验6-313.求一个正整数K的各位数字之和复习材料P334.4练习题第1题14.报数问题P114例5-1215.判断回文数复习材料P41第10题或P81习题4,16.求自然数的因子P81习题5,PrivateSubCommand1_Click()DimaAsInteger,I%a=InputBox(输入一个自然数)Label1.Caption=Str(a)+的所有因子:
ForI=1Toa-1IfaModI=0ThenList1.AddItem(Str(I)EndIfNextEndSub,二、数组的算法,1.数组元素的赋初值
(1)用循环Fori=1To10A(i)=0NextiforI=1to10forJ=1to10B(I,J)=0nextJnexti,
(2)Array函数DimibAsVariantib=Array(abc,def,67)Fori=0ToUBound(ib)Picture1.Printib(i);
Nexti,注意:
(1)利用Array对数组各元素赋值,声明的数组是可调数组或连圆括号都可省,并且其类型只能是Variant。
(2)数组的下阶为零,上界由Array函数括号内的参数个数可决定,也可通过函数Ubound获得。
2数组的赋值在VB6.0中,提供了数组直接对数组的赋值。
例如:
Dima()AsVariant,b()AsVariant,i%a=Array(1,2,3,4,5)ReDimb(UBound(a)b=a,Fori=0ToUBound(a)b(i)=a(i)Nexti,相当于,注意:
赋值号左边的数组只能声明为Variant的可调数组或简单变量。
3.数组的输出输出方阵SC中的下三角元素Fori=0To4Forj=0ToIj=0to4则输出整个数组sc(i,j)=i*5+jPrintsc(i,j);
NextjPrint换行NextI,4.将数组中各元素交换(P115习题1)Fori=1To152t=A(i)A(i)=A(10-i+1)A(10-i+1)=tNexti,5、对数组的行/列操作(行、列的和),P115习题3:
求二维数组每行的和数与每列的和数,数组元素为19之间的随机数。
OptionexplicitOptionbase1生成数组PrivateSubCommand1_Click()ForI=1To4ForJ=1To5A(I,J)=Int(9*Rnd)+1Picture1.PrintA(I,J);
NextJPicture1.PrintNextIEndSub,求列和PrivateSubCommand2_Click()ForJ=1To5L(J)=0ForI=1To4L(J)=L(J)+A(I,J)NextIText2=Text2&
Str(L(J)NextJEndSub,PrivateSubCommand3_Click()ForI=1To4H(I)=0ForJ=1To5H(I)=H(I)+A(I,J)NextJText1=Text1&
Str(H(I)&
vbCrLfNextIEndSub,清除图片框和文本框PrivateSubCommand4_Click()Picture1.ClsText1=Text2=EndSub,求行和,6、同维数组对应元素的算术运算(+、-、*、/),OptionexplicitOptionbase1Privatesubform_click()DimX%(5,5),Y%(5,5),Z%(5,5)ForI=1to5forj=1to5x(I,j)=int(100*rnd)+1y(I,j)=int(100*rnd)+1nextjNextiForI=1to5forJ=1to5Z(I,J)=X(I,J)Y(I,J)nextjNexti,可改为减法、乘法,存放结果数组也必须定义,ForI=1to5forJ=1to5printZ(I,J);
nextjprintNextIEndsub除法:
除法操作必须先判别分母不为零,然后再进行对应元素的除法操作。
7、求数组靠边元素之和,不靠边元素之和P115习题6,Optionbase1Privatesubform_click()DimX%(4,5),s%(4),sum%ForI=1to4s(I)=0forj=1to5x(I,j)=inextjNextiForJ=1to5S
(1)=S
(1)+X(1,J)S(4)=S(4)+X(4,J)Nextj,11111222223333344444,ForI=2to3S
(2)=S
(2)+X(I,1)S(3)=S(3)+X(I,5)NextiforI=1to4SUM=SUM+S(I)NextiprintSUMEndsub,8,求数组对角线元素之积或和,Optionbase1Privatesubform_click()DimX%(4,4),S1&
S2&
S=1:
S2=1ForI=1to4forj=1to4x(I,j)=inextjNextiFori=1to4S1=s1*X(i,i)NextIprintSEndsub,1111222233334444,若为“+”,则为对角线的和,但S1,S2初值为0,For
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 常用 算法 总结 大全
![提示](https://static.bdocx.com/images/bang_tan.gif)