VB编程题及答案

VB 编程题1、 求100以内的素数。2、 从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。3、 计算0~200之间所有能被11或5整除的数之和4、 输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）5、 已知x,y,z3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得xvyvz。6、 求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。7、 计算100~300之间所有能被3和7整除的数之和。8、 编程求200--400范围内5的倍数或7的倍数之和。（一个数如果同时是7和5的倍数，则只能加一次。）9、 找出被3、5、7除，余数为1的最小的5个正整数。10、 某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。11、 编程显示100~500之间所有的水仙花数之和。（水仙花数是3位数，其各位数之和等于该数本身）12、 随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246,输出是642。13、 从键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。14、 已知数组a（），编程删除a中第5个元素。数组a中的元素分别为｛12,6,4，89，75，63，100，20，31｝。15、 随机生成一个整型的二维数组，范围在［10,20］之间，以上三角形式输出该数组。16、 利用随机函数生成一个4x4的矩阵（即二维矩阵）,范围是［20,50］内的整数,输出每行中的最大值和下标。17、 利用随机函数生成一个4x4的矩阵（即二维矩阵）,范围是［40,80］内的整数，求它的最大值及所对应的下标。18、 输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。19、 利用随机函数生成一个4x4的矩阵（即二维矩阵）,范围是［20,50］内的整数,输出该矩阵所有数据之和20、 输入一系列字符串，将字符串按递减次序排列。请编程实现。21、 随机产生10个［30,100］内的整数，求最大值、最小值和平均值。22、 定义三个4x4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1〜20,数组B的范围是100〜200,数组C是A和B相乘得到的。请编程生成并输出A,B,C。23、 随机产生15个小写字母，放在字符数组中。提示：c=chr（int（rnd*26+97））24、 随机产生10个［30,100］内的整数，求最大值及所对应的下标。25、 定义三个4x4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1〜20,数组B的范围是100〜200,数组C是A和B相加得到的。请编程生成并输出A,B,CO26、 利用随机函数生成一个4x4的矩阵（即二维矩阵）,范围是［20,50］内的整数，求它的两条对角线上元素之和。27、 利用随机函数生成一个4x4的矩阵（即二维矩阵）,范围是［40,80］内的整数，求它的最小值及所对应的下标。28、 随机生成一个整型的二维数组，范围在［10,20］之间，以下三角形式输出该数组。29、 有10个评委对歌手进行打分（分数存放在A数组中）要求编程计算歌手平均得分（按去掉一个最高分和一个最低分的计算办法计算）。a=Array（98,97,95,91,90,99,93,94,93,96）30、 编程输出n行杨辉三角图形，n由31、 声明一个整型的二维数组a(1to4,1to4),用随机函数产生各元素，范围介于［1,20］之间，编程将第1行和第3行对应元素交换。32、 随机产生15个大写字母，放在字符数组中。提示：c=chr(int(rnd*26+65))33、 编写一个过程计算并输出区间［100,1000］内所有素数的和(要求判断素数使用过程(函数或子过程)来实现。调用该过程。(提示：只能被1和自身整除的自然数称为素数。),34、 随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。35、 已知一维数组a()中的元素已排序,分另U为｛12，15，21，25，27，35，36、 39,48，52｝，编程将30插入数组a，并使a依然有序。37、 声明一个整型的二维数组a(1to4,1to4),用随机函数产生各元素，范围介于［1,20］之间，编程将第2行和第38、 随机产生10个［30,100］内的整数,求最小值及所对应的下标。39、 编写一个判断素数的通用过程(函数或子程序)。调用该过程，计算并输出区间［1000,1100］内所有素数的和。(提示：只能被1和自身整除的自然数称为素数。)40、 编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。41、 编一个冒泡排序法子过程，对已知的若干整数按递减次序排列。提示：子过程的形式为subsort1(a%())。42、 编一个选择排序法子过程，对已知的若干整数按递减次序排列。提示：子过程的形式为subsort1(a%())。43、 编一个选择排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为subsort1(a%())。44、 编一个冒泡排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为subsort1(a%())。45、 编一个冒泡排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为subsort1(a%())。VB答案1、求100以内的素数。.PrivateSubCommand1_Click()Dimi,a,kFori=1To100k=1Fora=2ToSqr(i)IfiModa=oThenk=0NextaIfk=1ThenPrinti；NextiEndSub2从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。.PrivateSubCommand1_Click()Dimi,a,b,nasstringn=InputBox("输入字符")i=Len(n)Fora=1Toi/2Mid(n,a,1)=Mid(n,i+1-a,1)Mid(n,i+1-a,1)=bNextaPrintnEndSub3•计算0~200之间所有能被11或5整除的数之和PrivateSubCommand1_Click()Dimi%,sumsum=0Fori=1To200IfiMod5=0OriMod11=0Thensum=sum+iEndIfNextiPrintsumEndSub4•输入一年份，判断它是否为闰年，并显示有关信息。(判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除)b=b=Mid(n,a,1)Dimi% x=yn=InputBox("输入年份n") y=ii=0IfnMod4=0AndnMod100<>0OrnMod400=0Theni=1EndIfIfi=1ThenPrintn&"为闰年"ElsePrintn&"为平年"EndIfEndSub5.已知x,y,z3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z。PrivateSubCommandl_Click()Dimx%,y%,z%,ix=Int(Rnd*100)y=Int(Rnd*100)z=Int(Rnd*100)Ifx>yTheni=xEndIfIfx>zTheni=xx=zz=iEndIfIfy>zTheni=yy=zz=iEndIfPrintx&"<"&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。PrivateSubCommand1_Click()Dimc(1To10),a%,n%,s#,i%,m#

n=Int(Rnd*6+5)a=Int(Rnd*9+1)m=ac(l)=mFori=1To10c(i)=mm=10*m+aNextis=c(1)+c(2)+c(3)+c(4)Fori=5Tons=s+c(i)NextiPrint"a="&a,"n="&n,"s="&sEndSub7计算100〜300之间所有能被3和7整除的数之和。.PrivateSubCommand1_Click()Dims%,i%s=0Fori=100To300IfiMod3=0OriMod7=0Thens=s+iNextiPrint"s="&sEndSub8编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。).PrivateSubCommand1_Click()Dims1%,s2%,s3%,i%s1=0s2=0Fori=200To400IfiMod5=0OriMod7=0Thens1=s1+iEndIfNextiFori=200To400IfiMod5=0AndiMod7=0Thens2=s2+iEndIfNextis3=s1-s2EndIf EndSubPrints3EndIf EndSub9..找出被3、5、7除，余数为1的最小的5个正整数。.PrivateSubForm_Click()Dimt%Fori=0To500IfiMod5=1AndiMod7=1AndiMod3=1ThenPrinti；NextiEndSub10某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。.PrivateSubCommand1_Click()Dima(6),imin!,imax!,i!,j%,n%,t%,k%,f%a(0)=Val(InputBox("a(0)"))a(1)=Val(InputBox("a(1)"))a(2)=Val(InputBox("a(2)"))a(3)=Val(InputBox("a(3)"))a(4)=Val(InputBox("a(4)"))a(5)=Val(InputBox("a(5)"))a(6)=Val(InputBox("a(6)"))Fori=0To6imin=iForj=i+1To6Ifa(j)<a(imin)Thenimin=jNextjt=a(i)a(i)=a(imin)a(imin)=tNextia(i-1)=0Fork=0To6imax=kForf=k+1To6Ifa(f)>a(imax)Thenimin=fNextft=a(k)a(k)=a(imax)a(imax)=tNextka(k-1)=0n=(a(0)+a(1)+a(2)+a(3)+a(4)+a(5)+a(6))/5PrintnEndSub11、题编程显示100〜500之间所有的水仙花数之和。(水仙花数是3位数，其各位数之和等于该数本身)PrivateSubForm_Click()Print"100~500之间所有的水仙花数为："Dimx%,a%,b%,c%Forx=100To500a=xMod10b=(xMod100)\10c=x\100Ifx=a八3+b八3+c八3ThenPrintxNextxEndSub12题随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。:PrivateSubCommand1_Click()Text1=Int(Rnd*900+100)EndSubPrivateSubCommand2_Click()Dimx%,a%,b%,c%x=Val(Text1)a=xMod10b=(xMod100)\10c=x\100Text2=a*100+b*10+cEndSub13题从键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形:PrivateSubForm_Click()Dima,b,c,a=Text1.Textb=Text2.Textc=Text3.TextIfa+b>cAnda+c>bAndb+c>aThenMsgBox"能够成三角形"ElseMsgBox"不能构成三角形"EndIfEndSub14题已知数组a(),编程删除a中第5个元素。数组a中的元素分别为｛12,6,4,89,75,63,100,20,31｝。PrivateSubForm_Click()Dima(),i%,j%a=Array(12,6,4,89,75,63,100,20,31)j=UBound(a)Fori=0TojPrinta(i)NextiPrintFori=5Toja(i-1)=a(i)Nextij=j-1ReDimPreservea(j)Fori=0TojPrinta(i)NextiPrintEndSub15题随机生成一个整型的二维数组，范围在［10,20］之间，以上三角形式输出该数组。Dima%(3,3)PrivateSubForm_Load()Fori=0To3Forj=0To3a(i,j)=Int(Rnd*11+10)NextjNextiEndSubPrivateSubPicture1_Click()Fori=0To3Forj=iTo3Picture1.PrintTab(j*5)；a(i,j)；NextjPicture1.PrintNextiEndSub16、利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是［20,50］内的整数，输出每行中的最大值和下标Dima%(3,3),i%,k%,imax%PrivateSubcommandl_click()

应的下标。行"；行"；"最大（"；i；imax；NextiEndSub17..利用随机函数生成一个4X4的矩阵（即二维矩阵）,范围是a(i,j):imaxFori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)Picturel.Printa(i,j)；"";NextjPicturel.PrintNextiimax=0Fori=0To3Forj=0To3Ifa(i,imax)<a(i,j)Thenimax=0EndIfNextjPicture2.Print"第"；i+1;'值为"；a(i,imax);'下标为"；'

PrivateSubForm_Click()Dima(3,3),max%,imax%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*41+40)NextjNextiFori=0To3Forj=0To3Printa(i,j);NextjPrintNextiFori=0To3Forj=0To3Ifmax<a(i,j)Thenmax:imax=i&jNextjNextiPrint"max=";max；"imax="；EndSub[40,80]内的整数，求它的最大值及所对

•输入一系列字符串，编程求出长度最.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=0To4Ifmax<b(i)Thenmax=b(i)：imax=iNextiPrint"max=";a(i)Print"cixu=";imax+1EndSub利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是［20,50］内的整数，输出该矩阵所有数据之和.PrivateSubForm_Click()Forj=0To3a(i,j)=Int(Rnd*31+20)NextjNextiFori=0To3Forj=0To3Printa(i,j)；NextjPrintNextiFori=0To3Forj=0To3sum=sum+a(i,j)NextjNextiPrint"sum="；sumEndSub20、输入一系列字符串，将字符串按递减次序排列。请编程实现。Dima()AsString,n%,i%,j%PrivateSubCommand1_Click()ReDima(1Ton)AsStringFori=LBound(a)ToUBound(a)a(i)=InputBox("请输入字符串")Picturel.Printa(i)；Spc(l)；NextiEndSubPrivateSubCommand2_Click()Fori=1TonForj=1Ton-1Ifa(j)<a(j+1)Thent=a(j)：a(j)=a(j+1):a(j+1)=t qNextjNextiFori=1Ton彳Picture2.Printa(i);Spc(1)NextiEndSubPrivateSubForm_Load()Text1=""EndSub21、随机产生10个［30,100］内的整数,求最大值、最小值和平均值。PrivateSubForm_click()Dima(1To10)AsInteger,i%,maxa%,mina%,aver!Fori=1To10a(i)=Int(Rnd*71+30)Nextimina=a(1)maxa=a(1)avera=a(1)Fori=2To10Ifa(i)>maxaThenmaxa=a(i)Ifa(i)<minaThenmina=a(i)avera=avera+a(i)NextiFori=1To10Printa(i)NextiPrintPrint"max="；maxa,"min="；mina,"aver="；avera/10EndSub22(维数错误！！！！！！！)、定义三个4X4的二维数组A,B,C,A和B中的元素均随机生成，数组A的范围是1〜20,数组B的范围是100〜200,数组C是A和B相乘得到的。请编程生成并输出A,B,C。PrivateSubForm_click()Dima%(1To4,1To4),b%(1To4),c%(1To4,1To4)Print"数组A"Fori=1To4Forj=1To4a(i,j)=Int(Rnd*20+1)PrintTab(j*4);a(i,j)；NextjPrintNextiPrint"数组B",Fori=1To4Forj=1To4b(i,j)=Int(Rnd*100+100)PrintTab(j*6)；b(i,j)NextjPrintNextiPrint"数组C"Fori=1To4Forj=1To4c(i,j)=b(i,j)*a(i,j)PrintTab(j*4);c(i,j)NextjPrintNextiEndSub23、随机产生15个小写字母，放在字符数组中。提示：c=chr(int(rnd*26+97))PrivateSubForm_click()Dima$(1To15),i%Print"字符数组为a(i):"Fori=1To15a(i)=Chr(Int(Rnd*26+97))Printa(i);Spc(1)；NextiPrintEndSubPrivateSubform」oad()FontSize="10"EndSub24随机产生10个［30,100］内的整数，PrivateSubForm_Click()Dima(9),max%,imax%Fori=0To9a(i)=Int(Rnd*71+30)Printa(i);NextiPrintmax=a(0)Fori=1To9Ifmax<a(i)Thenmax=a(i):imax=iNextiPrint"max=";maxPrint"imax=";imaxEndSub25定义三个4X4的二维数组A,B,C,A和B中的元素均随机生成，数组A的范围是1〜20,数组B的范围是100〜200,数组C是A和B相加得到的。请编程生成并输出A,B,C。PrivateSubCommand1_Click()Dima(3,3),b(3,3),c(3,3),t%,m%Forj=0To3a(i,j)=Int(Rnd*20+1)Picturel.Printa(i,j)；NextjNextiPicturel.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)Picture1.Printc(i,j)；NextjNextiEndSub26、利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是［20,50］内的整数，求它的两条对角线上元素之和。PrivateSubCommandl_Click()Dima%(3,3),i%,j%,sum%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)Picturel.Printa(i,j);"";NextjPicturel.PrintNextisum=0Fori=0To3sum=sum+a(i,i)+a(i,3-i)NextiText1=sumEndSub27、利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是［40,80］内的整数，求它的最小值及所对应的下标。PrivateSubCommand1_Click()Dima%(3,3),i%,j%,sum%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*21+40)Picturel.Printa(i,j)；""；NextjPicturel.PrintNextiimax=0Fori=0To3Forj=0To3Ifa(i,imin)>a(i,j)Thenimin=jEndIfNextjPicture2.Print"第"；i+1；"行"；"最小值为"；a(i,imin)；"下标为"；"("；i；imin；")"NextiEndSub.28、随机生成一个整型的二维数组，范围在［10,20］之间，以下三角形式输出该数组。.PrivateSubForm_Click()Dima(4,4)AsIntegerFori=0To4a(i,j)=Int(Rnd*11+10)NextjNextiFori=0To4Forj=0ToiPrinta(i,j)；NextjPrintNextiEndSub29.有10个评委对歌手进行打分(分数存放在A数组中)要求编程计算歌手平均得分(按去掉一个最高分和一个最低分的计算办法计算)。a=Array(9&97,95,91,90,99,93,94,96)..PrivateSubForm_Click()Dima(),max%,min%,imax%,imin%,s!a=Array(9&97,95,91,90,99,93,93,96)n=UBound(a)Printa(i);NextiPrintmin=a(0):imin=0Fori=0TonIfa(i)<minThenmin=a(i):imin:iNextiPrint"min=";min；"imin="；iminFori=imin+1Tona(i-1)=a(i)NextiReDimPreservea(n-1)Fori=0Ton-1Printa(i);NextiPrintFori=0Ton-1Ifa(i)>maxThenmax=a(i)：imaxiNextiPrint"max="；max；"imax="；imaxReDimPreservea(n-2)s=0Fori=0Ton-2s=s+a(i)Printa(i)；NextiPrintPrint"avr="；s/(n-1)EndSub30..编程输出n行杨辉三角图形，n由键盘输入。 彳PrivateSubCommandl_Click()Dimn%,i%,j%n=Val(Textl)斗Dima%(1To1000,1To1000)Fori=1Tona(i,i)=1NextiForj=2Ton-1Fori=3Tona(i,j)=a(i-1,j-1)+a(i-1,j)NextiNextjPicture1.PrintTab(j*n)；a(i,j)Fori=1TonForj=1ToiPicture1.Printa(i,j)；""；NextjPicture1.PrintNextiEndSub31、声明一个整型的二维数组a(1to4,1to4)，用随机函数产生各元素，范围介于［1,20］之间，编程将第1行和第3行对应元素交换。PrivateSubForm_click()Dima%(1To10,1To10),i%,j%Print"排序前"Fori=1To4Forj=1To4a(i,j)=Int(Rnd*20+1)PrintTab(j*4)；a(i,j)；NextjPrintForj=1To4t=a(l,j)：a(l,j)=a(3,j)：a(3,j)=tNextjFori=1To4Forj=1To4PrintTab(j*4)；a(i,j)；NextjPrintNextiEndSub32•随机产生15个大写字母，放在字符数组中。提示：c=chr(int(rnd*26+65))PrivateSubForm_Click()Dima(1To15)AsStringFori=1To15a(i)=Chr(Int(Rnd*26+65))PrintTab(i*2)；a(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]内所有的素数和为："&sum34.随机产生10个1〜100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。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)；NextiPrintPrint"max="；maxa,"min="；mina,EndSub35、已知一维数组a()中的元素已排序，分别为｛12,15,21，25,27,35,36,39，48,52｝，编程将30插入数组a,并使a依然有序。PrivateSubForm_Load()Dima(),i%,k%,x%,n%a=Array(12,15,25,27,35,36,39,4&52)n=UBound(a)Fori=oTonList1.AddItema(i)NextiEndSubPrivateSubCommand1_Click()x=Val(Text1)Fork=0ToList1.ListCount一1Ifx<Val(List1.List(k))ThenExitforNextkList1.AddItemx,kEndSub37.、声明一个整型的二维数组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)；NextjNexti 彳PrintPrintForj=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,zb%,mina%,i%Fori=1To10a(i)=Int(Rnd*71+30)Printa(i)；Nextizb=1mina=a(1)Fori=2To10Ifmina>a(i)Thenmina=a(i)：zb=iNextiPrintPrint"min="；mina,"zb="；zbEndSub39编写一个判断素数的通用过程(函数或子程序)。调用该过程，计算并输出区间［1000，1100］内所有素数的和。(提示：只能被1和自身整除的自然数称为素数。).PrivateSubPicture1_Click()Dimi%,averaavera=0Fori=1000To1100Ifss(i)<>0ThenPrintss(i)avera=avera+ss(i)NextiPicture1.PrintaveraEndSubFunctionss(n)AsIntegerDimi%,tagAsBooleantag=True 1Fori=3Ton/2If(nModi)=0Thentag=FalseNextiIftagThenss=nEndFunction40.编一子过程ProcMin，求一维数组a中的最小值，子过程的形参自己确定PrivateSubForm_Click()Dima(1To10),amin,i%Fori=1To10a(i)=-Int(Rnd*101+300)Printa