最新VB考试题库.docx
- 文档编号:25077852
- 上传时间:2023-06-04
- 格式:DOCX
- 页数:13
- 大小:21.65KB
最新VB考试题库.docx
《最新VB考试题库.docx》由会员分享,可在线阅读,更多相关《最新VB考试题库.docx(13页珍藏版)》请在冰豆网上搜索。
最新VB考试题库
VB考试题库
VB编程题
1、求100以内的素数。
2、从键盘输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的“ABCDEFG”变换成“GFEDCBA”。
3、计算0~200之间所有能被11或5整除的数之和4、输入一年份,判断它是否为闰年,并显示有关信息。
(判断闰年的条件是:
年份能被4整除但不能被100整除,或者能被400整除)
5、已知x,y,z3个变量中存放了3个不同的数,比较它们的大小并进行调整,使得x 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=2 ToSqr(i)IfiModa=oThenk=0NextaIfk=1ThenPrinti;NextiEndSub 2从键盘输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的“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? PrintnEndSub 3.计算0~200之间所有能被11或5整除的数之和PrivateSubCommand1_Click()Dimi%, s%sum=0Fori=1To200IfiMod5=0OriMod11=0Thens=s+iEndIfNextiPrintsumEnd Sub 4.输入一年份,判断它是否为闰年,并显示有关信息。 (判断闰年的条件是: 年份能被4整 除但不能被100整除,或者能被400整除)PrivateSubCommand1_Click()? Dimi%? n= InputBox("输入年份n")? i=0? IfnMod4=0AndnMod100<>0OrnMod400=0Then? i=1? EndIf? Ifi=1Then? Printn&"为闰年"? Else? Printn&"为平年"EndIfEndSub 5.已知x,y,z3个变量中存放了3个不同的数,比较它们的大小并进行调整,使得x Private SubCommand1_Click()Dimx%,y%,z%,ix=Int(Rnd*100)y=Int(Rnd*100)z=Int(Rnd*100)Ifx>yTheni=xx=yy=iEndIfIfx>zTheni=xx=zz=iEndIfIfy>zTheni=yy=zz=iEndIfPrintx&"<"&y&"<"&zEndSub 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。 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)NextiPrint"a="&a,"n="&n,"s="&sEndSub7计算100~300之间所有能被3和7整除的数之和。 PrivateSubCommand1_Click()Dims%, i%s=0Fori=100To300IfiMod3=0OriMod7=0Thens=s+iEndIfNextiPrint"s="&sEndSub 8编程求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-s2Prints3EndSub 9..找出被3、5、7除,余数为1的最小的5个正整数。 .PrivateSubForm_Click()Dimt%Fori =0To500? IfiMod5=1AndiMod7=1AndiMod3=1ThenPrinti;? NextiEndSub10某次歌曲大奖赛,有7个评委。 如果分别输入7个评委对某个参赛者的打分数,按照去 掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分。 .PrivateSub Command1_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(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))/5PrintnEndSub 11、题编程显示100~500之间所有的水仙花数之和。 (水仙花数是3位数,其各位数之和等 于该数本身)PrivateSubForm_Click()Print"100~500之间所有的水仙花数为: "? Dimx%,a%, b%,c%Forx=100To500a=xMod10b=(xMod100)\10c=x\100Ifx=a^3+b^3+c^3ThenPrintxNextxEndSub 12题随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。 例如,产生 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+cEndSub 13题从键盘输入三角形的三条边a,b,c的值,根据其数值,判断能否构成三角形PrivateSub command1_Click()Dima%,b%,c%,a=val(inputbox(”inputa”))b=val(inputbox(”input b”))c=val(inputbox(”inputc”))Ifa+b>cAnda+c>bAndb+c>aThenMsgBox"能 够成三角形"ElseMsgBox"不能构成三角形"EndIfEndSub 14题已知数组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=6Toja(i-1)=a(i)Nextij=j-1ReDimPreservea(j)Fori=0TojPrinta(i)NextiPrintEndSub 15题随机生成一个整型的二维数组,范围在[10,20]之间,以上三角形式输出该数组。 Dim a%(3,3)PrivateSubForm_Load()Fori=0To3Forj=0To3a(i,j)=Int(Rnd*11+10)NextjNextiFori=0to3Forj=ito3Printa(i,j);NextjPrintNextiEndsubPrivateSubPicture1_Click()? Fori=0To3? Forj=iTo3? Picture1.PrintTab(j*5);a(i,j);? Nextj? Picture1.Print? NextiEndSub 16、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[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=0To3Forj=0To3Ifa(i,imax) 行";"最大值为";a(i,imax);"下标为";"(";i;imax;")"NextiEndSub 17..利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数,求它的最大值 及所对应的下标。 PrivateSubForm_Click()Dima(3,3),max%,imax%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*41+40)NextjNextiFori=0To3Forj=0To3Printa(i,j);NextjPrintNextiMax=a(0,0)imax=(0,0)Fori=0To3Forj=0To3Ifmax imax=i&jNextjNextiPrint"max=";max,"imax=";imaxEndSub 18..输入一系列字符串,编程求出长度最大的字符串并输出其所对应的次序。 .PrivateSub Form_Click()Dima(5)AsString,b(4)AsInteger,t%,max%,imax%Fori=1To5? a(i)=InputBox("a")? NextiFori=0To4? b(i)=Len(Trim(a(i)))? Nexti? max=1Fori=0To4? Ifmax imax=i? Nexti? Print"max=";a(i)? Print"cixu=";imax+1EndSub19.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所 有数据之和PrivateSubForm_Click()Dima(3,3),sum%Fori=0To3? Forj=0To3a(i,j)=Int(Rnd*31+20)? NextjNextiFori=0To3? Forj=0To3? Printa(i,j);? ? Nextj? PrintNextiFori=0To3? Forj=0To3? ? sum=sum+a(i,j)? ? Nextj? Nexti? Print"sum=";sumEndSub 20、输入一系列字符串,将字符串按递减次序排列。 请编程实现。 Dima()AsString,n%,i%, j%PrivateSubCommand1_Click()n=Text1ReDima(1Ton)AsStringFori=LBound(a)ToUBound(a)a(i)=InputBox("请输入字符串")Picture1.Printa(i);Spc (1);NextiEndSubPrivateSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 最新 VB 考试 题库