程序设计编程考试题及答案

1、VB程序设计编程测试题及答案1.输入3个数,输出最大的数2. 有一元二次方程：aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根3. 输入一个百分制的成绩,假设大于等于60,那么用消息框弹出,显示“恭喜！成绩通过！,假设小于60,那么弹出消息框,显示“抱歉！成绩没有通过！4. 输入学生的百分制成绩,转换输出为五级制成绩,90100分转换为优秀,8089转换为良好,7079转换为中等,6069转换为及格,060转换为不及格.5. 随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示.例如,产生246,输出是642.6. 输入两个整数,求它们的最大公约数.7. 分别统计1-1

2、00中,满足3的倍数、7的倍数的数各有多少.8. 输入一串字符,统计其中字母A(不区分大小写)出现的次数.9. 我国目前有13亿人口,按人口年增长率%计算,多少年后我国人口将超过26亿.10. 小猴有桃假设干,第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少11. 百元买百鸡问题.假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方案.12. 编程求斐波那契数列前11项.(斐波那契数列：F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n>=2)13. 有序数组a(),编程插入x(x的值为14).数

3、组a中的元素分别为12,6,4,89,75,63,100,20,31.14. 找出被3、5、7除,余数均为1的最小的5个正整数.15利用随机函数产生50100范围内的20个随机数,显示其中的最大值、最小值和平均值.16.编一函数,统计字符串中汉字的个数.1.输入3个数,输出最大的数PrivateSubcommand1_click()DimmaxFori=1To3n=Val(InputBox("输入第"&i&"个数")Ifn>maxThenmax=nEndIfNextPrint"三个数中最大的数是"maxEndSu

4、b2. 有一元二次方程：aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根PrivateSubCommand1_Click()Dima,b,c,na=Text1b=Text2c=Text3n=b*b-4*a*cIfn>=0ThenLabel4="方程有根"ElseLabel4="方程无根"EndIfEndSub3. 输入一个百分制的成绩,假设大于等于60,那么用消息框弹出,显示“恭喜！成绩通过！,假设小于60,那么弹出消息框,显示“抱歉！成绩没有通过！PrivateSubForm_Load()Text1=""EndS

5、ubPrivateSubCommand1_Click()Dimnn=Text1Ifn>60ThenVal(MsgBox("恭喜！成绩通过！")ElseVal(MsgBox("抱歉！成绩没有通过！")EndIfEndSub4. 输入学生的百分制成绩,转换输出为五级制成绩,90100分转换为优秀,8089转换为良好,7079转换为中等,6069转换为及格,060转换为不及格.PrivateSubCommand1_Click()a=Val(InputBox("请输入成绩")Ifa>100ThenPrint"超出范围&q

6、uot;Ifa>=90Anda<=100ThenPrint"优秀Ifa>=80Anda<90ThenPrint"良好"Ifa>=70Anda<80ThenPrint"中等"Ifa>=60Anda<70ThenPrint"及格"Ifa<60ThenPrint"不及格"EndSub5. 随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示.例如,产生246,输出是642.PrivateSubCommand1_Click()Dimx%,x1%,x2

7、%,x3%x=Text1x1=xMod10x2=(xMod100)10x3=x100Label1=x1*100+x2*10+x3EndSub6. 输入两个整数,求它们的最大公约数.privateSubCommand1_Click()n1=InputBox("输入n")m1=InputBox("输入m")Ifm1>n1Thenm=m1:n=n1Elsem=n1:n=m1EndIfr=mModnDoWhiler<>0m=nn=rr=mModnLoopPrint"mn的最大公约数是："nEndSub7. 分别统计1-100

8、中,满足3的倍数、7的倍数的数各有多少.PrivateSubCommand1_Click()Dimi,s3,s7s3=0s7=0Fori=1To100IfiMod3=0Thens3=s3+1EndIfNextiFori=1To100IfiMod7=0Thens7=s7+1EndIfNextiPrint"3的倍数"s3Print"7的倍数"s7EndSub8. 输入一串字符,统计其中字母A(不区分大小写)出现的次数.PrivateSubCommand1_Click()DimcAsString,aAsIntegerb=InputBox("请输入字符

9、")Fori=1ToLen(b)c=UCase(Mid(b,i,1)Ifc="A"Thena=a+1EndIfNextiPrint"a出现的次数："aEndSub9. 我国目前有13亿人口,按人口年增长率%计算,多少年后我国人口将超过26亿.PrivateSubCommand1_Click()Dima,ia=131 =0DoWhilea<26a=a*i=i+1LoopPrintiEndSub10. 小猴有桃假设干,第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少Pri

10、vateSubCommand1_Click()Dima,ia=1Fori=1To6a=2*(a+1)NextiPrint"小猴原有桃"a;只EndSub11. 百元买百鸡问题.假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡、>:?方案.PrivateSubCommand1_Click()Print"小鸡""""母鸡""""公鸡"Print""Forx=1To100Fory=1To100Forz=1To100If*x+2*y+3*z=100

11、ThenPrint""x;""y;""zEndIfNextzNextyNextxEndSub12. 编程求斐波那契数列前11项.(斐波那契数列：F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n>=2)PrivateSubCommand1_Click()Dimx()AsIntegerDimn%,i%n=11ReDimx(n-1)x(0)=1x(1)=1Fori=2Ton-1x(i)=x(i-1)+x(i-2)NextiFori=0Ton-1Printx(i),If(i+1)Mod5=0ThenPrintNextEnd

12、Subn=Val(InputBox("输入序列数")13. 有序数组a(),编程插入x(x的值为14).数组a中的元素分别为12,6,4,89,75,63,100,20,31.'窗体上放textl、text2、command三个控件DimA()AsIntegerPrivateSubCommand1_Click()Dimi,Ip,t,ins,nAsInteger=""Fori=0ToUBound(A)-1=&""&A(i)NextiIp=Val(InputBox("请输入数字")Fori=0T

13、oUBound(A)IfIp<A(i)ThenReDimPreserveA(UBound(A)+1)t=A(i)A(i)=Ipins=iExitForEndIfNextiFori=ins+1ToUBound(A)-1n=A(i)A(i)=tt=nNexti=""Fori=0ToUBound(A)-1=&""&A(i)NextiEndSubPrivateSubForm_Load()ReDimA(9)A(0)=4:A(1)=6:A(2)=12:A(3)=20A(4)=31:A(5)=63:A(6)=75:A(7)=89A(8)=100E

14、ndSub14.找出被3、5、7除,余数均为1的最小的5个正整数.PrivateSubForm_Click()DimCountN%,n%CountN=0n=1Don=n+1IfnMod3=1AndnMod5=1AndnMod7=1ThenPrintnCountN=CountN+1EndIfLoopUntilCountN=5EndSub15利用随机函数产生50100范围内的20个随机数,显示其中的最大值、最小值和平均值.PrivateSubForm_Click()Dimi%,min%,max%,avg%,x%min=50max=100avg=0Fori=1To20x=Int(Rnd*51+50)Printx;Ifx>maxThenmax=xIfx<minThenmin=xavg=avg+xNextiPrintPrint"最小值="min,"最大值="max,"平均值="avg/20E