VB编程题及答案

VB编程题1、求100以内的素数。2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。3、计算0~200之间所有能被11或5整除的数之和4、输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）5、已知x,y,z3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得xyz。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、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下标。17、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最大值及所对应的下标。18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。19、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和20、输入一系列字符串，将字符串按递减次序排列。请编程实现。21、随机产生10个[30,100]内的整数，求最大值、最小值和平均值。22、定义三个4×4的二维数组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、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相加得到的。请编程生成并输出A,B,C。26、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数，求它的两条对角线上元素之和。27、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[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()中的元素已排序，分别为{12，15，21，25，27，35，36，39，48，52}，编程将30插入数组a，并使a依然有序。37、声明一个整型的二维数组a(1to4,1to4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第2行和第4行对应元素交换。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/2b=Mid(n,a,1)?Mid(n,a,1)=Mid(n,i+1-a,1)?Mid(n,i+1-a,1)=b?Nexta?PrintnEndSub3.计算0~200之间所有能被11或5整除的数之和PrivateSubCommand1_Click()Dimi%,sumsum=0Fori=1To200?IfiMod5=0OriMod11=0Then?sum=sum+iEndIfNextiPrintsumEndSub4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）PrivateSubCommand1_Click()?Dimi%?n=InputBox(输入年份n)?i=0?IfnMod4=0AndnMod1000OrnMod400=0Then?i=1?EndIf?Ifi=1Then?Printn&为闰年?Else?Printn&为平年EndIfEndSub5.已知x,y,z3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得xyz。PrivateSubCommand1_Click()Dimx%,y%,z%,ix=Int(Rnd*100)y=Int(Rnd*100)z=Int(Rnd*100)IfxyTheni=xx=yy=iEndIfIfxzTheni=xx=zz=iEndIfIfyzTheni=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(1)=mFori=1To10c(i)=mm=10*m+aNextis=c(1)+c(2)+c(3)+c(4)Fori=5Tons=s+c(i)NextiPrinta=&a,n=&n,s=&sEndSub7计算100~300之间所有能被3和7整除的数之和。.PrivateSubCommand1_Click()Dims%,i%s=0Fori=100To300IfiMod3=0OriMod7=0Thens=s+iEndIfNextiPrints=&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-s2Prints3EndSub9..找出被3、5、7除，余数为1的最小的5个正整数。.PrivateSubForm_Click()Dimt%Fori=0To500?IfiMod5=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()Print100~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题从键盘输入三角形的三条边