小學生VBS培訓班試題[勿損].doc

13小學生VBS培訓班試題勿損1、用MsgBox函數(shù)和換行符輸出：你的姓名、愛好、家庭成員你的學校及家庭地址。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兩個數(shù)，輸出這兩個數(shù)中的最大數(shù)m？17、設:a=7.34，b=9.74。求長方形的面積S和周長C18、輸入語文、數(shù)學成績，輸出平均分和總分19、輸入兩個數(shù)x和y，輸出xy的整數(shù)部分I和小數(shù)部分F。（如52，則I=2，F(xiàn)=0.5）20、輸入兩個數(shù)i,j，輸出它們的最小公倍數(shù)M和最大公約數(shù)。21、北京奧運會于2008年8月8日開幕，計算今天距北京奧運會開幕還有多少個星期？22、要求隨便輸入三個數(shù)字，這三個數(shù)排從小到大排列23、輸入三個數(shù)，輸出三個數(shù)中最大的一個。24、輸入一字符串，輸出它的倒序字符串。（如輸入“ABCD1234”，輸出為“4321DCBA”）25、編程輸出：同時滿足下面兩個條件的四位數(shù)n：1）n是7的倍數(shù)；2）n中含有“888”。26、問題：判斷一個數(shù)能否同時被36和48整除27、當輸入以下英語單詞時能輸出相應的中文單詞：英文顏色單詞中文顏色名稱Red紅色Blue藍色Yellow黃色Green綠色28、閏年的判斷，請你判斷2060年是不是閏年29、成績分類王小二的成績?nèi)缦抡Z文數(shù)學科學英語78927667請你按照優(yōu)秀（90或以上）良好（80或以上）合格（60或以上）不合格（60以下）來評價一下他的各科成績。30、QQ密碼登陸，輸入QQ號碼12345678，密碼987654321，密碼正確登陸歡迎進入QQ!，錯誤提示密碼錯誤,請重新輸入!31、過年了，三年級的小偉同學得到了1024塊壓歲錢，他想把錢存入銀行，銀行的年利率為0.2%，請你算一下他到六年級畢業(yè)時能拿到多少錢？32、 已知一球從100米高度自由落下,落下后反復彈起，每次彈起的高度都是上次高度的一半。求此球第10次落地后反彈起的高度和球所經(jīng)過的路程。33、輸入一個數(shù)，判斷它是奇數(shù)還是偶數(shù)。34、輸入一個數(shù)，判斷能否同時被3和7整除。35、輸入三個小數(shù)，輸出三個小數(shù)中的最大的小數(shù)36、輸入一個數(shù)，判斷它是否是質(zhì)數(shù)37、計算3到300中的質(zhì)數(shù)有幾個38、求兩個數(shù)的最大公約數(shù)39、求兩個數(shù)的最小公倍數(shù)40、輸入一個數(shù)，并把它分解質(zhì)因數(shù)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以內(nèi)的素數(shù)50、編程找出四位正整數(shù)ABCD中滿足下述關系的數(shù)：（AB+CD）*（AB+CD）=ABCD51、輸出1100之間的奇數(shù)。 52、編程計算從2001年1月20日后的10年是何時？53、編程計算你離50歲那天，還有多少天？54、輸出今年的年份與月份！即形式如： 2006年10月55、輸出現(xiàn)在的正確年份、月份、日期及時間！即形式如： 2006-10-19 23:52:0956、輸入一個數(shù)，求這個數(shù)和它的倒數(shù)之和57、輸入三個數(shù)，求出最大的數(shù)的所有約數(shù)58、1分的硬幣有50個，2分的硬幣有25個，5分的硬幣有10個，10分的硬幣有5個，將硬幣湊成50分，有哪幾種方法？再求出整個程序的運行時間？59、隨機輸出兩個數(shù)（1-10），求這兩個數(shù)的最大公約數(shù)以及最小公倍數(shù)。60、輸入一個數(shù)，判斷是否質(zhì)數(shù)，如果不是，則將它分解質(zhì)因數(shù)。61、輸入10個數(shù)，輸出最大的數(shù)。62、輸入3個數(shù)，將最大的數(shù)分解質(zhì)因數(shù)。63、隨機輸出一道題（隨機產(chǎn)生直徑為1-10內(nèi)的數(shù)）（算圓周長），輸入答案，對正確答案輸出“正確”，錯誤答案輸出“錯誤”。64、我國有13億人口，按人口年增長0.8%計算，多少年之后我國人口超過56億？50年后我國人口有多少億？65、求出1100的5的倍數(shù)或7的倍數(shù)的和。66、假定小雞每只5角，公雞每只2元，母雞每只3元?，F(xiàn)在100元要求買100只雞，編程列出所有可能的購雞方案。67、猴子吃桃子。小猴在一天摘了若干個桃子，當天吃掉一半多一個；第二天接著吃了剩下的桃子的一半多一個；以后每天都吃尚存桃子的一半零一個，到第7天早上要吃的時候發(fā)現(xiàn)只剩下一個了，問小猴子那天總共摘下了多少桃子？68、分別統(tǒng)計1100中，滿足的3倍數(shù)、7的倍數(shù)的數(shù)各為多少個？69、利用隨機函數(shù)產(chǎn)生的20個50100范圍內(nèi)的隨機數(shù)，顯示它們的最大值、最小值和平均值。70、設用1、2、3分的三種硬幣組成20分（2角），有多少種方案？71、用輾轉相除法求兩自然數(shù)m、n的最大公約數(shù)和最小公倍數(shù)。72、（1）、產(chǎn)生一個1=x5的隨機數(shù)；（2）、產(chǎn)生一個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(請輸入數(shù)學成績)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 數(shù)學優(yōu)秀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 不是奇數(shù),也不是偶數(shù)end ifif a mod 2=0 and a0 thenmsgbox 偶數(shù)end ifif a mod 20 and a0 thenmsgbox 奇數(shù)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(請輸入一個數(shù))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(請輸入一個數(shù)字)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 最小公倍數(shù) & iexit forend ifnextfor z=q to 1 step -1if q mod z=0 and w mod z=0 thenmsgbox 最大公約數(shù) & 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 & 分解質(zhì)因數(shù)： & 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