欢迎来到天天文库
浏览记录
ID:26171405
大小:78.50 KB
页数:8页
时间:2018-11-25
《计算机等级考试二级vb常用算法sfa》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、1求任意自然数n的阶乘:方法一Do循环法S=1ForI=1ToNS=S*INextI方法二For循环S=1:T=1DoWhileT<=5S=S*TT=T+1Loop2闰年判断Y=Text1.TextIf(YMod4=0AndYMod100<>0)OrYMod400=0ThenMsgboxY&"是闰年"ElseMsgboxY&"不是闰年"EndIf3求两个自然数m、N的最大公约数hmax和最小公倍数hminM=Text1.Text:N=Text2.Text‘M和n可通过其他途径赋值mn=M*N‘暂存m和n的乘积,以便后面算最小公倍数IfM2、=TEndIfR=MModNDoWhileR<>0M=NN=RR=MModNLoopHmax=NHmin=Mn/Hmax4.素数判断素数判断方法一提前退出法N=Inputbox(“输入>=3的正整数”)ForI=2ToN-1‘或sqr(N),提前退出法If(NModI=0)ThenExitForNextIIfI>N-1ThenPrintN;“是素数”ElsePrintN;“不是素数”EndIf方法二标志法N=Inputbox(“输入一个>=3的正整数”)EndIfF=0‘F也可用逻辑型变量,标志法ForI=2ToN-1‘或sqr(N)If(NModI=0)ThenF3、=1NextIIfF=0ThenPrintN;“是素数”ElsePrintN;“不是素数”EndIfText2.Text=""m=Val(Text1.Text)Ifm>0Then'正数Text2.Text="1"ElseIfm<0Then'负数Text2.Text="-1"EndIfm=Abs(m)n=mFori=2TonDoWhilemModi=0'找相同因子Text2.Text=Text2.Text&"*"&im=miLoopNextiEndIf4单词数统计方法一标志法,以空格作为单词间的间隔(假设只有空格和字母)DimA$,Temp$DimN%,I%DimN4、ewwordAsBoolean,WordnumAsIntegerA=Text1.Text'A=Ltrim(Text1.Text)N=Len(A)Newword=False'未遇到新单词(也可用数值变量)Wordnum=0ForI=1ToNTemp=Mid(A,I,1)IfTemp=""ThenNewword=False'简化为elseifNewword=FalseThenElseifUcase(Temp)>="A"AndUcase(Temp)<="Z"AndNewword=FalseThenWordnum=Wordnum+1Newword=TrueEndIfNext5、IText2.Text=Wordnum方法二根据相邻两字符特征判断DimA$,Tempf$,Tempb$DimN%,Wnum%,I%A=Text1.Text'A=Ltrim(Text1.Text)Wnum=0N=Len(A)ForI=1ToN-1'避免超出范围Tempf=Mid(A,I,1)Tempb=Mid(A,I+1,1)IfWnum=0AndTempf<>""Then'对第一个单词特殊处理Wnum=Wnum+1ElseifTempf=""AndTempb<>""ThenWnum=Wnum+1EndIfNextIText2.Text=Wnum5找出二维矩阵中的最6、大元素、最小元素及其所在位置DimDmax%,Rowmax%,Colmax%'最大值、所在行、所在列DimDmin%,Rowmin%,Colmin%'最小值、所在行、所在列DimI%,J%Dmax=A(1,1):Rowmax=1:Colmax=1'假设a(1,1)最大,记录位置Dmin=A(1,1):Rowmin=1:Colmin=1'假设a(1,1)最小,记录位置ForI=1ToUbound(A,1)'第一维下标范围ForJ=1ToUbound(A,2)'第二维下标范围'找最大IfDmax7、ax=IColmax=JEndIf'找最小IfDmin>A(I,J)ThenDmin=A(I,J)Rowmin=IColmin=JEndIfNextJNextIPrint"最大元素:";Dmax;",它在第";Rowmax;"行,第";Colmax;"列"Print"最小元素:";Dmin;",它在第";Rowmin;"行,第";Colmin;"列"产生n个[10,100]范围内互不相同的数据DimT()AsInteger'过程级动态数组DimNAsIntegerForm1.ClsN=Inputbox("输入一个值")RedimT(N)RandomizeForI
2、=TEndIfR=MModNDoWhileR<>0M=NN=RR=MModNLoopHmax=NHmin=Mn/Hmax4.素数判断素数判断方法一提前退出法N=Inputbox(“输入>=3的正整数”)ForI=2ToN-1‘或sqr(N),提前退出法If(NModI=0)ThenExitForNextIIfI>N-1ThenPrintN;“是素数”ElsePrintN;“不是素数”EndIf方法二标志法N=Inputbox(“输入一个>=3的正整数”)EndIfF=0‘F也可用逻辑型变量,标志法ForI=2ToN-1‘或sqr(N)If(NModI=0)ThenF
3、=1NextIIfF=0ThenPrintN;“是素数”ElsePrintN;“不是素数”EndIfText2.Text=""m=Val(Text1.Text)Ifm>0Then'正数Text2.Text="1"ElseIfm<0Then'负数Text2.Text="-1"EndIfm=Abs(m)n=mFori=2TonDoWhilemModi=0'找相同因子Text2.Text=Text2.Text&"*"&im=miLoopNextiEndIf4单词数统计方法一标志法,以空格作为单词间的间隔(假设只有空格和字母)DimA$,Temp$DimN%,I%DimN
4、ewwordAsBoolean,WordnumAsIntegerA=Text1.Text'A=Ltrim(Text1.Text)N=Len(A)Newword=False'未遇到新单词(也可用数值变量)Wordnum=0ForI=1ToNTemp=Mid(A,I,1)IfTemp=""ThenNewword=False'简化为elseifNewword=FalseThenElseifUcase(Temp)>="A"AndUcase(Temp)<="Z"AndNewword=FalseThenWordnum=Wordnum+1Newword=TrueEndIfNext
5、IText2.Text=Wordnum方法二根据相邻两字符特征判断DimA$,Tempf$,Tempb$DimN%,Wnum%,I%A=Text1.Text'A=Ltrim(Text1.Text)Wnum=0N=Len(A)ForI=1ToN-1'避免超出范围Tempf=Mid(A,I,1)Tempb=Mid(A,I+1,1)IfWnum=0AndTempf<>""Then'对第一个单词特殊处理Wnum=Wnum+1ElseifTempf=""AndTempb<>""ThenWnum=Wnum+1EndIfNextIText2.Text=Wnum5找出二维矩阵中的最
6、大元素、最小元素及其所在位置DimDmax%,Rowmax%,Colmax%'最大值、所在行、所在列DimDmin%,Rowmin%,Colmin%'最小值、所在行、所在列DimI%,J%Dmax=A(1,1):Rowmax=1:Colmax=1'假设a(1,1)最大,记录位置Dmin=A(1,1):Rowmin=1:Colmin=1'假设a(1,1)最小,记录位置ForI=1ToUbound(A,1)'第一维下标范围ForJ=1ToUbound(A,2)'第二维下标范围'找最大IfDmax7、ax=IColmax=JEndIf'找最小IfDmin>A(I,J)ThenDmin=A(I,J)Rowmin=IColmin=JEndIfNextJNextIPrint"最大元素:";Dmax;",它在第";Rowmax;"行,第";Colmax;"列"Print"最小元素:";Dmin;",它在第";Rowmin;"行,第";Colmin;"列"产生n个[10,100]范围内互不相同的数据DimT()AsInteger'过程级动态数组DimNAsIntegerForm1.ClsN=Inputbox("输入一个值")RedimT(N)RandomizeForI
7、ax=IColmax=JEndIf'找最小IfDmin>A(I,J)ThenDmin=A(I,J)Rowmin=IColmin=JEndIfNextJNextIPrint"最大元素:";Dmax;",它在第";Rowmax;"行,第";Colmax;"列"Print"最小元素:";Dmin;",它在第";Rowmin;"行,第";Colmin;"列"产生n个[10,100]范围内互不相同的数据DimT()AsInteger'过程级动态数组DimNAsIntegerForm1.ClsN=Inputbox("输入一个值")RedimT(N)RandomizeForI
此文档下载收益归作者所有