资源描述：
《湖南省计算机二级visual basic考试》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VisualBasic编程题分类稿题型一：根据文字提示，找出数列的组成规律，即如何由已知项求出下一项，这样，经过若干次更迭，可求出数列中任何项，也可以求出前若干项的和。1、已知数列前3项为0、0、1，以后每项为前3项的和，求此数列的第36项。（334745777）10方法一：PrivateSubForm_Click()Dima&,b&,c&,d&,n%a=0:b=0:c=1Forn=1To33Step1d=a+b+ca=bb=cc=dNextnPrintdEndSub方法二：PrivateSubForm_Click()Dimd
2、(36)AsDouble,nAsIntegerd(1)=0d(2)=0d(3)=1Forn=4To36d(n)=d(n-1)+d(n-2)+d(n-3)NextnPrintd(36)EndSub102、计算y=1+2/3+3/5+4/7+…+n/(2*n-1)(n=50),要求：按四舍五入的方式精确到小数点后第二位。(26.47)PrivateSubForm_Click()DimsAsSingle,nasintegers=0Forn=1To50s=s+n/(2*n-1)NextnPrintRound(s,2)EndSub3、求
3、数列2/1,3/2,5/3,8/5,……，的前10项的和。（16.47991）10方法一：privatesubform_click()dimI%,a%,b%,t%,s!a=2:b=1forI=1to10step1s=s+a/bt=aa=a+bb=tnextIprintsendsub方法二：PrivateSubForm_Click()Dimd(10)AsSingle,nAsInteger,sAsSingled(1)=2/1s=2/1Forn=2To10d(n)=1+1/d(n-1)s=s+d(n)NextnPrintsEndSu
4、b104、编程求fibonacci数列：1，1，2，3，5，8……的前30个数的和。(2178308)10方法一：PrivateSubForm_Click()Dima&,b&,c&,s&a=1:b=1:s=2Fori=3To30c=a+bs=s+ca=bb=cnextiprintsEndSub方法二：PrivateSubForm_Click()10Dimd(30)AsDouble,nAsInteger,sAsDoubled(1)=1d(2)=1s=2Forn=3To30d(n)=d(n-1)+d(n-2)NextiPrints
5、EndsubNextnPrintsEndsub101、编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。（4720）PrivateSubForm_Click()Dima%,b%Fora=0To6Forb=0To3Ifa+(a+b)+(a+2*b)+(a+3*b)=26Anda*(a+b)*(a+2*b)*(a+3*b)=880ThenPrinta^3+(a+b)^3+(a+2*b)^3+(a+3*b)^3+(a+4*b)^3EndIfNextbNextaEndSub2、猴子吃桃问题：猴子第1天
6、摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。(1534)10方法一：PrivateSubForm_Click()DimdayAsInteger,sumAsIntegerday=10:sum=1DoWhileday>1sum=(sum+1)*2day=day-1LoopPrintsumEndSub方法二：PrivateSubForm_Click()DimdayAsInteger,sumAsIntegerday=10:sum=1Forday=9
7、To1Step-1sum=(sum+1)*2NextdayPrintsumEndSub103、我国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?（9）PrivateSubCommand1_Click()Dims&,n%n=0s=45600DoWhiles<45600*2s=s*1.09n=n+1LoopPrintnEndSub题型二：求某个范围内满足条件的数的和、积、个数：关键在于如何表示所谓的“条件”。1、编写程序，编写程序，求在10~1000之间所有能被4除余3，被
8、7除余4，被9除余4的数的平方和。(1109620)PrivateSubForm_Click()Dims#,n%s=0Forn=10To1000IfnMod4=3AndnMod7=4AndnMod9=4Then10s=s+n^2EndIfNextnPrintsEndSub1、
