小学生VBS培训班试题[勿损].doc

13小学生VBS培训班试题勿损1、用MsgBox函数和换行符输出：你的姓名、爱好、家庭成员你的学校及家庭地址。2、输入长方体的长x，宽y，高z，输出长方体的表面积（六个面的面积之和）？3、输入长方体的长a，宽b，高c，输出长方体的体积v？4、设:r=10.4，pi=3.1415，求圆的面积S=？ 圆的周长P=？ 球面积QA=？ 球体积QV=？5、编程计算1.5+2.5+3.5+4.5+100.5=？6、编程计算1+2+3+2006=？7、编程计算100+99+98+97+1=的和？8、编程计算2+4+6+8+100的和？9、编程计算1+3+5+7+9+99的和？10、编程计算1+2-3+4-5+6-7+100的值？11、编程计算1*2*3*4*10的积？12、编程计算1/1+1/2+1/3+1/4+1/20的和？13、编程计算1/1+1/2+2/3+3/5+5/8+8/13的和？14、编程输出 + + + + + + + 前20项之和？15、编程求和 2+2(1/2)+3(1/3)+4(1/4)+5(1/5)+2005(1/2005)+2006(1/2006)？16、输入x,y两个数，输出这两个数中的最大数m？17、设:a=7.34，b=9.74。求长方形的面积S和周长C18、输入语文、数学成绩，输出平均分和总分19、输入两个数x和y，输出xy的整数部分I和小数部分F。（如52，则I=2，F=0.5）20、输入两个数i,j，输出它们的最小公倍数M和最大公约数。21、北京奥运会于2008年8月8日开幕，计算今天距北京奥运会开幕还有多少个星期？22、要求随便输入三个数字，这三个数排从小到大排列23、输入三个数，输出三个数中最大的一个。24、输入一字符串，输出它的倒序字符串。（如输入“ABCD1234”，输出为“4321DCBA”）25、编程输出：同时满足下面两个条件的四位数n：1）n是7的倍数；2）n中含有“888”。26、问题：判断一个数能否同时被36和48整除27、当输入以下英语单词时能输出相应的中文单词：英文颜色单词中文颜色名称Red红色Blue蓝色Yellow黄色Green绿色28、闰年的判断，请你判断2060年是不是闰年29、成绩分类王小二的成绩如下语文数学科学英语78927667请你按照优秀（90或以上）良好（80或以上）合格（60或以上）不合格（60以下）来评价一下他的各科成绩。30、QQ密码登陆，输入QQ号码12345678，密码987654321，密码正确登陆欢迎进入QQ!，错误提示密码错误,请重新输入!31、过年了，三年级的小伟同学得到了1024块压岁钱，他想把钱存入银行，银行的年利率为0.2%，请你算一下他到六年级毕业时能拿到多少钱？32、 已知一球从100米高度自由落下,落下后反复弹起，每次弹起的高度都是上次高度的一半。求此球第10次落地后反弹起的高度和球所经过的路程。33、输入一个数，判断它是奇数还是偶数。34、输入一个数，判断能否同时被3和7整除。35、输入三个小数，输出三个小数中的最大的小数36、输入一个数，判断它是否是质数37、计算3到300中的质数有几个38、求两个数的最大公约数39、求两个数的最小公倍数40、输入一个数，并把它分解质因数41、输出九九乘法口诀表42、输出一个三角矩阵43、输出一个拐角矩阵44、输入一个年份，判断它是否是闰年45、输出当前的时间，格式如：2006年10月11日8时13分50秒46、算式9（ ）3=？，输入不同的四则运算符，并计算出相应的结果47、1分的硬币有20个，2分的硬币有10个，5分的硬币有4个。有几种排列方法能够使得总和为20分。48、一本1000页的书，黄强第一天看了10页。以后每天比前一天多看3页，编程求出黄强最后一天看了多少页。49、求出200以内的素数50、编程找出四位正整数ABCD中满足下述关系的数：（AB+CD）*（AB+CD）=ABCD51、输出1100之间的奇数。 52、编程计算从2001年1月20日后的10年是何时？53、编程计算你离50岁那天，还有多少天？54、输出今年的年份与月份！即形式如： 2006年10月55、输出现在的正确年份、月份、日期及时间！即形式如： 2006-10-19 23:52:0956、输入一个数，求这个数和它的倒数之和57、输入三个数，求出最大的数的所有约数58、1分的硬币有50个，2分的硬币有25个，5分的硬币有10个，10分的硬币有5个，将硬币凑成50分，有哪几种方法？再求出整个程序的运行时间？59、随机输出两个数（1-10），求这两个数的最大公约数以及最小公倍数。60、输入一个数，判断是否质数，如果不是，则将它分解质因数。61、输入10个数，输出最大的数。62、输入3个数，将最大的数分解质因数。63、随机输出一道题（随机产生直径为1-10内的数）（算圆周长），输入答案，对正确答案输出“正确”，错误答案输出“错误”。64、我国有13亿人口，按人口年增长0.8%计算，多少年之后我国人口超过56亿？50年后我国人口有多少亿？65、求出1100的5的倍数或7的倍数的和。66、假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在100元要求买100只鸡，编程列出所有可能的购鸡方案。67、猴子吃桃子。小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半零一个，到第7天早上要吃的时候发现只剩下一个了，问小猴子那天总共摘下了多少桃子？68、分别统计1100中，满足的3倍数、7的倍数的数各为多少个？69、利用随机函数产生的20个50100范围内的随机数，显示它们的最大值、最小值和平均值。70、设用1、2、3分的三种硬币组成20分（2角），有多少种方案？71、用辗转相除法求两自然数m、n的最大公约数和最小公倍数。72、（1）、产生一个1=x5的随机数；（2）、产生一个3=xb thens=aelses=bend ifmsgbox s(14)a=1b=1for i=1 to 20s=s+(a/b)b=a+ba=b-anextmsgbox s(13)a=1b=1for i=1 to 6s=s+(a/b)b=a+ba=b-anextmsgbox s(15)for i=2 to 2006s=s+i*(1/i)nextmsgbox s+2(17)a=7.34b=9.74s=a*bv=(a+b)*2msgbox s & vbcr & v(18)a=csng(inputbox(请输入语文成绩)b=csng(inputbox(请输入数学成绩)x=(a+b)/2y=a+bmsgbox x & vbcr & y(19)a=cint(inputbox()b=cint(inputbox()s=int(a/b)v=(a mod b)/bmsgbox s & vbcr & v(20)a=cint(inputbox()b=cint(inputbox()for x=a to 1 step -1if a mod x=0 and b mod x=0 thenh=xexit forend ifnextj=a*b/hmsgbox h & vbcr & j(21)msgbox datediff(ww,now,2008-8-8)(22)a=csng(inputbox()b=csng(inputbox()c=csng(inputbox()if ab thent=aa=bb=tend ifif ac thent=aa=cc=tend ifif b & b & & c(24)msgbox StrReverse(inputbox()(23)a=csng(inputbox()b=csng(inputbox()c=csng(inputbox()if ab thent=aelset=bend ifif tc thent=telset=cend ifmsgbox t(25)for a=1001 to 9999 step 7if mid(a,1,3)=888 or mid(a,2,3)=888 thens=s & a & end ifnextmsgbox s(26)a=cint(inputbox()if a mod 36=0 and a mod 48=0 thenmsgbox yeselsemsgbox noend if(27)a=inputbox()select case acase redmsgbox 红case bluemsgbox 蓝case yellowmsgbox 黄case greenmsgbox 绿end select(28)if 2060 mod 4=0 thenmsgbox yesend if(29)a=78b=92c=76d=67if 60=a80 thenmsgbox 语文及格end ifif 90=b=100 thenmsgbox 数学优秀end ifif 60=c80 thenmsgbox 科学及格end ifif 60=d80 thenmsgbox 英语及格end if(30)a=QQ号=123456789，请输入密码x=inputbox(请输入密码 & a,密码登陆,*)do until x=987654321if x987654321 thenmsgbox密码错误end ifx=inputbox(密码错误,请输入密码 ,密码登陆,*)loopmsgbox欢迎进入QQ(31)a=1024for i=1 to 4a=a+a*0.002nextmsgbox a(33)a=cint(inputbox()if a=0 thenmsgbox 不是奇数,也不是偶数end ifif a mod 2=0 and a0 thenmsgbox 偶数end ifif a mod 20 and a0 thenmsgbox 奇数end if(32)x=100for a=1 to 10s=s+x*2x=x/2nextmsgbox s-100 & vbcr & x(34)a=cint(inputbox()if a mod 3=0 and a mod 7=0 thenmsgbox yeselsemsgbox noend if(35)a=csng(inputbox()b=csng(inputbox()c=csng(inputbox()if ab thenx=aelsex=bend ifif xc thenmsgbox xelsemsgbox cend if(36)a=cint(inputbox()for x=2 to a-1if a mod x=0 and a2 thenk=0exit forelsek=1end ifnextif k=1 or a=2 thenmsgbox yeselsemsgbox noend if(37)for a=3 to 300for b=2 to a-1if a mod b=0 thenk=0exit forelsek=1end ifnextif k=1 thens=s & a & l=l+1end ifnextmsgbox l & 个msgbox s(38)a=cint(inputbox()b=cint(inputbox()for i=a to 1 step -1if a mod i=0 and b mod i=0 thenmsgbox iexit forend ifnext(40)a=cint(inputbox(请输入一个数)i=2do until a=b thens=s & b & * & a & = & a*b & & chr(9)end ifnexts=s & vbcrnextmsgbox s(42)c=cint(inputbox()for a=1 to cfor b=1 to an=n+1s=s & n & nexts=s & vbcrnextmsgbox s(43)c=cint(inputbox()for a=1 to cfor b=1 to cif ca+b-1 thenk=aelsek=c-b+1end ifs=s & k & nexts=s & vbcrnextmsgbox s (44)a=cint(inputbox()if a mod 100=0 thenif a mod 400=0 thenmsgbox yelsemsgbox nend ifelseif a mod 4=0 thenmsgbox yelsemsgbox nend ifend if(45)msgbox year(now) & 年 & month(now) & 月 & day(now) & 日 & hour(now) & 时 & minute(now) & 分 & second(now) & 秒(47)for a=1 to 4for b=1 to 10for c=1 to 20if a+b+c=20 thenl=l+1end ifnextnextnextmsgbox l(46)a=inputbox()select case acase +msgbox 9+3case -msgbox 9-3case *msgbox 9*3case /msgbox 9/3end select(48)a=10do until b=1000b=b+aa=a+3loopmsgbox a-(b-1000)-3(49)for a=2 to 200for b=2 to a-1if a mod b=0 thenk=0exit forelsek=1end ifnextif a=2 or k=1 thens=s & a & end ifnextmsgbox s(50)for a=1000 to 9999 b=int(a/100)c=a-b*100if a=(b+c)*(b+c) thens=s & a & end ifnextmsgbox s(51)for a=1 to 100if a mod 2=1 thenl=l & a & end if nextmsgbox l(52)msgbox dateadd(yyyy,10,2001-1-20)(53)msgbox datediff(d,now,2015-2-15)(54)msgbox year(now) & 年 & month(now) & 月(55)msgbox now(56)a=cint(inputbox(请输入一个数字)b=strreverse(a)c=a+bmsgbox c(64)a=13do until a56a=a+a*0.008l=l+1loopp=13for i=1 to 50p=p+p*0.008nextmsgbox l & vbcr & p(61)for x=1 to 10a=csng(inputbox()if ak thenk=aend ifnextmsgbox k(59)a=1b=9randomizeq=int(a-b+1)*rnd+b)w=int(a-b+1)*rnd+b)msgbox qmsgbox wfor i=q to q*wif i mod q=0 and i mod w=0 thenmsgbox 最小公倍数 & iexit forend ifnextfor z=q to 1 step -1if q mod z=0 and w mod z=0 thenmsgbox 最大公约数 & zexit forend ifnext(58)s=timefor a=0 to 50for b=0 to 50for c=0 to 50for d=0 to 50if a+b*2+c*5+d*10=50 thenl=l+1end ifnextnextnextnextx=timemsgbox lmsgbox datediff(s,s,x)(57)a=csng(inputbox()b=csng(inputbox()c=csng(inputbox()if ab thent=belset=aend if if tc thenk=celsek=tend iffor i=1 to kif k mod i=0 thens=s & i & end ifnextmsgbox s(60)a=inputbox()for i=2 to a-1if a mod i=0 thenk=0exit for elsek=1end ifnextb=2do until abif a mod b=0 thens=s & b & a=a/belseb=b+1end ifloopif k=1 thenmsgbox yeselsemsgbox no & 分解质因数： & send if(63)a=1b=10randomizes=int(a-b+1)*rnd+b)msgbox sc=csng(inputbox(c=?)if c=3.14*s thenmsgbox 正确elsemsgbox 错误end if(66)for a=0 to 200 for b=0 to 50for c=0 to 33x=a*0.5+b*2+c*3l=a+b+cif x=100 and l=100 thenm=m+1end ifnextnextnextmsgbox m(62)a=cint(inputbox()b=cint(inputbox()c=cint(inputbox()if ab thent=aa=bb=tend ifif ac then p=aa=cc=pend ifif bc thenm=bb=cc=mend ifl=2do until alif a mod l=0 thens=s & l & a=a/lelsel=l+1end ifloopmsgbox s(65)for a=1 to 100 if a mod 5=0 then s=s+aend ifnextfor b=1 to 100 if b mod 7=0 then l=l+bend ifnextmsgbox s & vbcr & l(67)a=1for i=6 to 1 step -1a=(a+1)*2s=s & vbcr & 第 & i & 天 & anextmsgbox a & vbcr & s(68)for i=1 to 100if i mod 3=0 thenl