vb算法重点修改版

《vb算法重点修改版》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1．市营老师给重点，说会出两道题2．一“一个范围内判断素数，并求素数和”3．二“统计每个字符出现的个数表达式Fix(-32.68)+Int(-23.02)的值为【13】-56fix（取整，舍弃小数点后面的）int（取小于或等于N的最大整数）4．冒泡从大到小OptionBase1PrivateSubCommand1_Click()Dimaa=Array(67,45,24,52,49,37,87,58,23,82)Fori=1ToUBound(a)-1Forj=1ToUBound(a)-iIfa(j)

2、(j)=a(j+1)a(j+1)=tEndIfNextjNextiFori=1ToUBound(a)Printa(i);NextiEndSub2.三个数中找出最大的ifa>bthenmax=aElsemax=bEndifIfc>maxthenmax=c3.随机生成10个500-1000的数，能被5整除的print出来fori=1to10n=Int(Rnt*501)+500Ifxmod5=0thenPrintnEndifNext64.一串字符中找到字母，print出来PrivateSubCommand1_Click()t=Text1.

3、TextFori=1ToLen(t)r=Mid(t,i,1):r1=UCase(r)If(r1>"A"Andr1<="Z")Thenm=m&rEndIfNextPrintmEndSub5.20个数中找最大最小OptionBase1PrivateSubCommand1_Click()Dimi%,arr(10)randomizeFori=1To10arr(i)=Int(Rnd*101)+100NextiPrint"arr数组的最小值为";FunMin(arr)EndSubFunctionFunMin(a())AsVariantDimi%

4、,minmin=a(LBound(a))Fori=LBound(a)+1ToUBound(a)Ifa(i)”即可。）NextFunMin=minEndFunction6.求斐波那契级数的前5项，以及，求和PrivateSubForm_click()Dimi%,a&(5),s#a(1)=1:a(2)=1Printa(1);a(2)Fori=3To20a(i)=a(i-2)+a(i-1)s=s+a(i)Printa(i);NextPrints6EndSub7.判断素数，并求范围内的素数之

5、和a.函数求解FunctionPrime(n%)AsBooleantag=TrueFori=2Ton/2Ifnmodi=0Thentag=FalseExitForEndIfNextPrime=tagEndFunctionb.调用过程求解PrivateSubCommand1_Click()Dimi%,n1%,n2%,s%Ifop1.ValueThenn1=100:n2=200Elsen1=200:n2=400EndIfFori=n1ton2IfPrime(i)thens=s+iNextText1.Text=sEndSub例:输入一个正

6、整数，判断该数是否为素数。（素数是指一个数只能被1和其本身整除。）Dimi%,n%,s$n=Val(InputBox("请输入一个正整数："))s=n&"是素数“Fori=2Ton-1IfnModi=0Thens=n&"不是素数"ExitForEndIfNextPrints6例：输出100以内的素数Dimi%,n%,TagasBooleann=Val(InputBox("请输入一个正整数："))Tag=TrueFori=2Ton-1IfnModi=0ThenTag=FalseExitForEndIfNextiIfTag=Trueth

7、enPrintn子过程求解Subsubprime(n%,flagAsBoolean)flag=TrueFori=2ToSqr(n)IfnModi=0Thenflag=FalseExitForEndIfNextiEndSub控件，添加Fad=array(“馒头”，“包子”，“稀饭”)Fori=Lbound(fad)toUbound(fad)Combo1.additemfad(i)双击List1中的某一项，就从该项删除添加至list2Privatesublist1_DblClickList2.AddItemList1.TextList1

8、.RemoveItemList1.listIndex9.把文本框内容选中放入另外一个文本框设当前文件夹已有文件t1.txt和t2.txt，其中各有若干文字。现要将t2.txt的内容合并到t1.txt中。例如t1.txt原来内容为"AB