VB编程程序代码.doc

VB编程程序代码1、 求100以内的素PrivateSubForm_Click()Dimi%,j%Fori=2To100Forj=2Toi-1 IfiModj=0ThenExitFor NextjIfj=iThenPrintiNextiEndSub2、 从键盘输入任意长度的字符串，要求将字符顺序倒置例如，将输入的“ABCDEFG”变换成“GFEDCBA”。PrivateSubCommand1_Click()Dima$,I%,c$,d$,n%a=InputBox$(输入字符串)n=Len(a)ForI=1ToInt(n2)c=Mid(a,I,1)Mid(a,I,1)=Mid(a,n-I+1,1)Mid(a,n-I+1,1)=cNextIPrintaEndSub3、计算0200之间所有能被11或5整除的数之和PrivateSubForm_Click()Dimn%,i%n=0Fori=1To200IfiMod11=0OriMod5=0Thenn=n+iEndIfNextiPrintnEndSub4、 输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）PrivateSubCommand1_Click()Dimy%y=InputBox(请输入年数)IfyMod4=0AndyMod1000OryMod400=0ThenMsgBox(y&年是闰年)ElseMsgBox(y&年是平年)EndIfEndSub5、已知x,y,z3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得xyyThent=x:x=y:y=tIfxzThent=x:x=z:z=tIfyzThent=y:y=z:z=tPrint排序后;x;y;zEndSub6、 求s=a+aa+aaa+.aaaaa（n个a），其中a和n的值随机产生，a的范围是1,9的整数，n的范围是5,10。如a=3,n=6,则s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。PrivateSubForm_Click()Dims!,t!,i!,a%,n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=0Printa=;a,n=;nFori=1Tont=t*10+as=s+tPrintt;NextiPrintPrints=;sEndSub7、计算100300之间所有能被3和7整除的数之和。PrivateSubForm_Click()Fori=100To300IfiMod21=0Thens=s+iPrinti;EndIfNextiPrintPrints=;sEndSub8、编程求200-400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。)PrivateSubCommand1_Click()Dims1%,s2%,s3%,i%S1=0S2=0Fori=200to400Ifimod5=0orimod7=0thens1=s1+iEndifNextiFori=200to400Ifimod5=0orimod7=0thens2=s2+iEndifNextiS3=s1-s2Prints3Endsub9、找出被3、5、7除，余数为1的最小的5个正整数。PrivateSubCommand1_Click()DimCountN%,n%CountN=0n=1Don=n+1IfnMod3=1AndnMod5=1AndnMod7=1ThenPrintnCountN=CountN+1EndIfLoopUntilCountN=5EndSub10、 某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。PrivateSubCommand1_Click()Dimmark!,max!,min!,aver!,i%aver=0Fori=1To7mark=InputBox(输入第&i&位评委的打分)Ifi=1Thenmax=mark:min=markElseIfmarkmaxThenmax=markEndIfaver=aver+markNextiaver=(aver-min-max)/5PrintaverEndSub11、编程显示100500之间所有的水仙花数之和。(水仙花数是3位数，其各位数之和等于该数本身)PrivateSubForm_Click()Dimi%,s%,s1%,s2%,s3%,a!a=0Fori=0To400s=99+is1=(sMod100)10s2=sMod10s3=s100Ifs13+s23+s33=sThena=s+aEndIfNextiPrintaEndSub12、 随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。Dima%,m%,b%,c%,d%PrivateSubForm_Click()a=Int(Rnd*900+100)Printad=(aMod10)*100b=(aMod100)-(aMod10)c=a100m=c+b+dPrintmEndSub13、从键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。PrivateSubForm_Click()Dima%,b%,c%a=Val(InputBox(inputa)b=Val(InputBox(inputb)c=Val(InputBox(inputc)Ifa+bcAnda+cbAndb+caThenMsgBox(能构成三角形)ElseMsgBox(不能构成三角形)EndIfEndSub14、 已知数组a()，编程删除a中第5个元素。数组a中的元素分别为12，6，4，89，75，63，100，20，31。PrivateSubForm_Click()Dima(),i%,n%a=Array(12,6,4,89,75,63,100,20,31)n=UBound(a)Fori=0TonPrinta(i);NextiPrintFori=5Tona(i-1)=a(i)Nextin=n-1ReDimPreservea(n)Fori=0TonPrinta(i);NextiPrintEndSub15、 随机生成一个整型的二维数组，范围在10,20之间，以上三角形式输出该数组。（下三角、全部元素）Dima%(4,4)PrivateSubCommand1_Click()Picture1.ClsFori=0To4Forj=iTo4Picture1.PrintTab(j*6);a(i,j);NextjPicture1.PrintNextiEndSubPrivateSubForm_Load()Fori=0To4Forj=0To4a(i,j)=Int(Rnd*11+10)NextjNextiEndSub16、利用随机函数生成一个44的矩阵(即二维矩阵),范围是20,50内的整数,输出每行中的最大值和下标。PrivateSubForm_Click()Dima%(3,3),s0%,s1%,s2%,s3%,b0%,b1%,b2%,b3%Max=40Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)PrintTab(j*5);a(i,j);Ifa(0,j)=MaxThens0=a(0,j):b0=jIfa(1,j)=MaxThens1=a(1,j):b1=jIfa(2,j)=MaxThens2=a(2,j):b2=jIfa(3,j)=MaxThens3=a(3,j):b3=jNextjNextiPrintPrint第一行;s0;(;0;b0;)Print第二行;s1;(;1;b1;)Print第三行;s2;(;2;b2;)Print第四行;s3;(;3;b3;)EndSub17、利用随机函数生成一个44的矩阵(即二维矩阵),范围是40,80内的整数，求它的最大值及所对应的下标。PrivateSubForm_Click()Dima%(3,3)Min=80Fori=0To3Forj=0To3 a(i,j)=Int(Rnd*41+40)PrintTab(j*5);a(i,j);Ifa(i,j)=MinThen Min=a(i,j):b=i:c=jEndIfNextjNextiPrintPrint最小值为;MinPrint其下标为;(;b,c;)EndSub18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。PrivateSubForm_Click()Dima(5)asstring,b(4)asinteger,t%,max%,imax%Fori=1to5a(i)=inputbox(a)NextiFori=0to4b(i)=len(trim(a(i)NextiMax=1Fori=0to4Ifmaxb(i)thenmax=b(i):imax=iNextiPrintmax=;a(i)Printcixu=,imax+1Endsub19、利用随机函数生成一个44的矩阵(即二维矩阵),范围是20,50内的整数,输出该矩阵所有数据之和。PrivateSubForm_Click()Dima%(3,3)Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)PrintTab(j*5);a(i,j);NextjNextis=a(0,0)+a(1,1)+a(2,2)+a(3,3)+a(3,0)+a(2,1)+a(1,2)+a(0,3)Prints;EndSub20、输入一系列字符串，将字符串按递减次序排列。请编程实现。Dima()AsString,n%,i%,j%PrivateSubCommand1_Click()n=Text1ReDima(1Ton)AsStringFori=LBound(a)ToUBound(a)a(i)=InputBox(请输入字符串)Picture1.Printa(i);Spc(1);NextiEndSubPrivateSubCommand2_Click()Fori=1TonForj=1Ton-iIfa(j)amaxThenamax=a(i)Ifa(i)a(1)Thenmaxa=a(i):m=iEndIfNextiFori=1To10Printa(i);NextiPrintmaxa=&maxa;下标为&mEndSub25、 定义三个44的二维数组A,B,C，A和B中的元素均随机生成，数组A范围是120，数组B的范围是100200，数组C是A和B相加得到的。请编程生成并输出A,B,C。PrivateSubCommand1_Click()Dima(3,3),b(3,3),c(3,3),t%,m%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*20+1)Picture1.Printa(i,j);NextjNextiPicture1.PrintFori=0To3Forj=0To3b(i,j)=Int(Rnd*101+100)Picture1.Printb(i,j);NextjNextiPicture1.PrintFori=0To3Forj=0To3c(i,j)=a(i,j)+b(i,j)NextjNextiEndSub26、利用随机函数生成一个44的矩阵(即二维矩阵),范围是20,50内的整数，求它的两条对角线上元素之和。PrivateSubForm_Click()Dima%(3,3)Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)PrintTab(j*5);a(i,j);NextjNextis=a(1,1)+a(2,2)+a(3,3)+a(0,0)+a(0,3)+a(1,2)+a(2,1)+a(3,0)PrintPrint两对角线上元素之和为:;sEndSub27、利用随机函数生成一个44的矩阵(即二维矩阵),范围是40,80内的整数，求它的最小值及所对应的下标。PrivateSubForm_Click()Dima%(3,3)Min=80Fori=0To3Forj=0To3a(i,j)=Int(Rnd*41+40)PrintTab(j*5);a(i,j);Ifa(i,j)=MinThenMin=a(i,j):b=i:c=jEndIfNextjNextiPrintPrint最小值为;MinPrint其下标为;(;b,c;)EndSub28、 随机生成一个整型的二维数组，范围在10,20之间，以上三角形式输出该数组。（下三角、全部元素）Dima%(4,4)PrivateSubCommand1_Click()Picture1.ClsFori=0To4Forj=iTo4Picture1.PrintTab(j*6);a(i,j);NextjPicture1.PrintNextiEndSubPrivateSubForm_Load()Fori=0To4Forj=0To4a(i,j)=Int(Rnd*11+10)NextjNextiEndSub29、 有10个评委对歌手进行打分（分数存在A数组中）要求编程计算出歌手平均得分（按去掉一个最高分和一个最低分的计算方法计算。）a=Array(98,97,95,91,90,99,93,94,93,96)PrivateSubForm_Click()Dima(),max%,min%,imax%,imin%,s!a=Array(98,97,95,91,90,99,93,94,93,96)n=UBound(a)Fori=0TonPrinta(i);NextiPrintmin=a(0):imin=0Fori=0TonIfa(i)maxThenmax=a(i):imax=iNextiPrintmax=;imax=;imaxReDimPreservea(n-2)s=0Fori=0Ton-2s=s+a(i)Printa(i);NextiPrintPrintavr=;s/(n-1)EndSub30、编程输出n行杨辉三角图形，n由键盘输入。PrivateSubCommand1_Click()n=Text1.TextReDima(1Ton,1Ton)Fori=1TonForj=1Tona(i,1)=1Ifi=jThena(i,j)=1NextjNextiFori=2TonForj=2Tona(i,j)=a(i-1,j-1)+a(i-1,j)NextjNextiFori=1TonForj=1ToiPicture1.Printa(i,j);NextjPicture1.PrintNextiEndSub31、 声明一个整型的二维数组a(1to4,1to4)，用随机函数产生各元素，范围介于1,20之间，编程将第1行和第3行对应元素交换。Dima%(1To4,1To4),t%PrivateSubCommand1_Click()Picture1.ClsFori=1To4Forj=1To4Picture1.PrintTab(j*4);a(i,j);NextjPicture1.PrintNextiEndSubPrivateSubCommand2_Click()Fori=1To4Forj=1To4t=a(1,j):a(1,j)=a(3,j):a(3,j)=tPicture2.PrintTab(j*4);a(i,j);NextjPicture2.PrintNextiEndSubPrivateSubForm_Load()Fori=1To4Forj=1To4a(i,j)=Int(Rnd*20+1)NextjNextiEndSub32、随机产生15个小写字母，放在字符数组中。提示：c=chr(int(rnd*26+97)PrivateSubCommand1_Click()Dimc$(14),i%Picture1.ClsFori=0To14c(i)=Chr(Int(Rnd*26+97)NextiFori=0To14Picture1.Printc(i);NextiEndSub33、编写一个过程计算并输出区间100，1000内所有素数的和(要求判断素数使用过程（函数或子过程）来实现。调用该过程。(提示：只能被1和自身整除的自然数称为素数。)Functionsushu%(ByValx%)Dimm%,TagAsBoolean,i%m=Val(x)Tag=TrueFori=2Tom-1If(mModi)=0ThenTag=FalseNextiIfTagThensushu=xEndFunctionPrivateSubCommand1_Click()Dimi%,k%Fori=100To1000Ifsushu(i)ThenList1.AddItemiNextiSum=0Fork=0ToList1.ListCount-1Sum=Sum+Val(List1.List(k)NextkLabel1=100，1000内所有素数和为:&SumEndSub34、随机产生10个1100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。PrivateSubForm_Click()Dima(1To10)AsInteger,i%,maxa%,mina%,suma%Fori=1To10a(i)=Int(Rnd*71+30)Nextimina=a(1)maxa=a(1)suma=a(1)Fori=2To10Ifa(i)maxaThenmaxa=a(i)Ifa(i)minaThenmina=a(i)suma=suma+a(i)NextiFori=1To10Printa(i);NextiPrintPrintmax=;maxa,min=;mina;aver=;suma/10EndSub35、 已知一维数组a()中的元素已排序，分别为12，15，21，25，27，35，36，39，48，52，编程将30插入数组a，并使a依然有序。PrivateSubCommand1_Click()Dima(),i%,k%,x%,n%a=Array(12,15,21,25,27,35,36,39,48,52)n=UBound(a)x=Val(Text1)Fork=0TonIfxa(k)ThenExitForNextkReDimPreservea(n+1)Fori=nTokStep-1a(i+1)=a(i)Nextia(k)=xFori=0Ton+1Printa(i);NextiEndSub37、 声明一个整型的二维数组a(1to4,1to4)，用随机函数产生各元素，范围介于1,20之间，编程将第2行和第4行对应元素交换。PrivateSubForm_Click()Dima(0To3,0To3),i%,j%,tFori=0To3Forj=0To3a(i,j)=Int(Rnd*21+1)PrintTab(j*5);a(i,j)NextjNextiPrintPrintForj=0To3t=a(1,j):a(1,j)=a(3,j):a(3,j)=tNextjFori=0To3Forj=0To3PrintTab(j*5);a(i,j)NextjNextiEndSub38、随机产生10个30,100内的整数，求最小值及所对应的下标。PrivateSubForm_Click()Dima(1To10)AsInteger,i%,mina%,m%Fori=1To10a(i)=Int(Rnd*70)+30Nextimina=a(1)Fori=2To10Ifa(i)a(1)Thenmina=a(i):m=iElseIfa(i)=a(1)Thenmina=a(i):m=iEndIfNextiFori=1To10Printa(i);NextiPrintmina=&mina;下标为&mEndSub39、 编一个判断宿舍的通用过程（函数或子过程）。调用该过程，计算并输出区间（1000，,1100）内所有素数的和。Functionss(n)AsIntegerDimi%,tagAsBooleantag=TrueFori=3Ton/2If(nModi)=0Thentag=FalseNextiIftagThenss=nEndFunctionPrivateSubPicture1_Click()Dimi%,averaavera=0Fori=1000To1100Ifss(i)0ThenPrintss(i)avera=avera+ss(i)NextiPicture1.PrintaveraEndSub40、编一子过程ProcMin,求一维数组a中的最小值，