VB编程题及答案

《VB编程题及答案》由会员分享，可在线阅读，更多相关《VB编程题及答案（18页珍藏版）》请在装配图网上搜索。

1、VB 编程题1、求 100 以内的素数。2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG变换成“GFEDCBA”。3、计算 0200 之间所有能被 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,

2、则s=3+33+333+3333+33333+333333。编程确定 n 和 a 的值，并计算 s。7、计算 100300 之间所有能被 3 和 7 整除的数之和。8、编程求 200-400 范围内 5 的倍数或 7 的倍数之和。（一个数如果同时是 7 和 5 的倍数，则只能加一次。）9、找出被 3、5、7 除，余数为 1 的最小的 5 个正整数。10、某次歌曲大奖赛，有 7 个评委。如果分别输入7 个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。11、编程显示 100500 之间所有的水仙花数之和。（水仙花数是 3位数，其各位数之和等于该数本身）

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内的整数，求它的

4、最大值及所对应的下标。18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。19、利用随机函数生成一个 4x4 的矩阵（即二维矩阵）,范围是20,50内的整数,输出该矩阵所有数据之和20、输入一系列字符串，将字符串按递减次序排列。请编程实现。21、随机产生 10 个30,100内的整数，求最大值、最小值和平均值。22、定义三个 4x4 的二维数组 A,B,C，A 和 B 中的元素均随机生成，数组 A 的范围是 120,数组 B 的范围是 100200,数组 C 是A 和 B 相乘得到的。请编程生成并输出 A,B,C。23、随机产生 15 个小写字母，放在字符数组中。提示：c=c

5、hr（int（rnd*26+97）24、随机产生 10 个30,100内的整数，求最大值及所对应的下标。25、定义三个 4x4 的二维数组 A,B,C，A 和 B 中的元素均随机生成，数组 A 的范围是 120,数组 B 的范围是 100200,数组 C 是A 和 B 相加得到的。请编程生成并输出 A,B,C。26、利用随机函数生成一个 4x4 的矩阵（即二维矩阵）,范围是20,50内的整数，求它的两条对角线上元素之和。27、利用随机函数生成一个 4x4 的矩阵（即二维矩阵）,范围是40,80内的整数，求它的最小值及所对应的下标。28、随机生成一个整型的二维数组，范围在10,20之间，以下三角

6、形式输出该数组。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内所有素数的和（要求判断素数使用过程

7、（函数或子过程）来实现。调用该过程。（提示：只能被 1 和自身整除的自然数称为素数。）34、随机产生 10 个 1100 的正整数放入数组，显示产生的数，求最大值、最小值、平均值。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、编写一个判断素数的通用过程(函数或子程序)。调

8、用该过程,计算并输出区间1000,1100内所有素数的和。(提示：只能被 1 和自身整除的自然数称为素数。)40、编一子过程 ProcMin,求一维数组 a 中的最小值,子过程的形参自己确定。41、编一个冒泡排序法子过程,对已知的若干整数按递减次序排列。提示：子过程的形式为 subsort1(a%()。42、编一个选择排序法子过程,对已知的若干整数按递减次序排列。提示：子过程的形式为 subsort1(a%()。43、编一个选择排序法子过程,对已知的若干整数按递增次序排列。提示：子过程的形式为 subsort1(a%()。44、编一个冒泡排序法子过程,对已知的若干整数按递增次序排列。提示：子过

9、程的形式为 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,nasstri

10、ngn=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)=bNextaPrintnEndSub3.计算0200之间所有能被11或5整除的数之和PrivateSubCommand1_Click()Dimi%,sumsum=0Fori=1To200IfiMod5=0OriMod11=0Thensum=sum+iEndIfNextiPrintsumEndSub4.输入一年份，判断它是否为闰年，并显示有关信息。(判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除)

11、PrivateSubCommand1_Click()Dimi%n=InputBox(输入年份n)i=0IfnMod4=0AndnMod1000OrnMod400=0Theni=1EndIfIfi=1ThenPrintn&为闰年ElsePrintn&为平年EndIfEndSub5.已知x,y,z3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得xyyTheni=xx=yy=iEndIfIfxzTheni=xx=zz=iEndIfIfyzTheni=yy=zz=iEndIfPrintx&y&zEndSub6.求s=a+aa+aaa+.aaaaa(n个a),其中a和n的值随机产生，a的范围

12、是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计算100300之间所有能被3和7整除的数之和。.PrivateSubComman

13、d1_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-s

14、2Prints3EndSub9.找出被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(Input

15、Box(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(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、题编程显示100500之间所有的水仙花数之和。(水仙花数是3位数，其

16、各位数之和等于该数本身)PrivateSubForm_Click()Print100500之间所有的水仙花数为：Dimx%,a%,b%,c%Forx=100To500a=xMod10b=(xMod100)10c=x100Ifx=a八3+b八3+c八3ThenPrintxNextxEndSub12题随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。：PrivateSubCommand1_Click()Text1=Int(Rnd*900+100)EndSubPrivateSubCommand2_Click()Dimx%,a%,b%,c%x=Val(Te

17、xt1)a=xMod10b=(xMod100)10c=x100Text2=a*100+b*10+cEndSub13题从键盘输入三角形的三条边a,b,c的值，根据其数值，判断能否构成三角形：PrivateSubForm_Click()Dima,b,c,a=Text1.Textb=Text2.Textc=Text3.TextIfa+bcAnda+cbAndb+caThenMsgBox能够成三角形ElseMsgBox不能构成三角形EndIfEndSub14题已知数组a(),编程删除a中第5个元素。数组a中的元素分别为12,6,4,89,75,63,100,20,31。PrivateSubForm_C

18、lick()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)NextjNextiEndSubPr

19、ivateSubPicture1_Click()Fori=0To3Forj=iTo3Picture1.PrintTab(j*5);a(i,j);NextjPicture1.PrintNextiEndSub16、利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是20,50内的整数,输出每行中的最大值和下标Dima%(3,3),i%,k%,imax%PrivateSubcommand1_click()Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)Picture1.Printa(i,j);NextjPicture1.PrintNextiimax=0Fori=0To

20、3Forj=0To3Ifa(i,imax)a(i,j)Thenimax=0EndIfNextjPicture2.Print第;i+1;行;最大值为;a(i,imax);下标为;(;i;imax;)NextiEndSub17.利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是40,80内的整数，求它的最大值及所对应的下标PrivateSubForm_Click()Dima(3,3),max%,imax%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*41+40)NextjNextiFori=0To3Forj=0To3Printa(i,j);NextjPrintNextiFo

21、ri=0To3Forj=0To3Ifmaxa(i,j)Thenmax=a(i,j):imax=i&jNextjNextiPrintmax=;max;imax=;imaxEndSub18.输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。.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=iNexti

22、Printmax=;a(i)Printcixu=;imax+1EndSub19.利用随机函数生成一个4X4的矩阵(即二维矩阵),范围是20,50内的整数,输出该矩阵所有数据之和.PrivateSubForm_Click()Dima(3,3),sum%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)NextjNextiFori=0To3Forj=0To3Printa(i,j);NextjPrintNextiFori=0To3Forj=0To3sum=sum+a(i,j)NextjNextiPrintsum=;sumEndSub20、输入一系列字符串，将字符串按递减次

23、序排列。请编程实现。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-1Ifa(j)maxaThenmaxa=a(i)Ifa(i)minaThenmina=a(i)avera=avera+a(i)NextiFori=1To10Printa(i

24、)NextiPrintPrintmax=;maxa,min=;mina,aver=;avera/10EndSub22(维数错误！)、定义三个4X4的二维数组A,B,C,A和B中的元素均随机生成，数组A的范围是120,数组B的范围是100200,数组C是A和B相乘得到的。请编程生成并输出A,B,C。PrivateSubForm_click()Dima%(1To4,1To4),b%(1To4),c%(1To4,1To4)Print数组AFori=1To4Forj=1To4a(i,j)=Int(Rnd*20+1)PrintTab(j*4);a(i,j);NextjPrintNextiPrint数组B

25、Fori=1To4Forj=1To4b(i,j)=Int(Rnd*100+100)PrintTab(j*6);b(i,j)NextjPrintNextiPrint数组CFori=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

26、(i);Spc(1);NextiPrintEndSubPrivateSubform_load()FontSize=10EndSub24随机产生10个30,100内的整数，求最大值及所对应的下标。PrivateSubForm_Click()Dima(9),max%,imax%Fori=0To9a(i)=Int(Rnd*71+30)Printa(i);NextiPrintmax=a(0)Fori=1To9Ifmaxa(i,j)Thenimin=jEndIfNextjPicture2.Print第;i+1;行;最小值为;a(i,imin);下标为;(;i;imin;)NextiEndSub.28、随

27、机生成一个整型的二维数组，范围在10,20之间，以下三角形式输出该数组。.PrivateSubForm_Click()Dima(4,4)AsIntegerFori=0To4Forj=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,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)minThenmin=a(i):imin=iNextiPrintmin=;min;imin=;iminFori=imin+1Tona(i-1)=a(i)NextiReDimPreservea(n-1)Fori=0Ton-1Printa(i);