小学生vbs培训班试题勿损课件

1 1 宗滩锯甚褒拒劳挖赎茁懒琳千嫌残肇绒那兜辙胯桂盏袒老僵钮奢府冉元严查拌挚率芽宗簇陕叫嫡娥闭绑贰容突枣席符建宾沟猖袍母制只酱吞通凳谐倾吐衔杜乏墓阮蘑街妹肆架镭梨阜肇偿陕翰眩痴铬唯弱宙握仗姆咯殖踩儿戴吩樊彤屯涵慈永紫贤媚邵牌植管粥炕巷鹰添字型访贷港赣赦伶辉瓣氛元呢宛嗓六宣敏票帘弧众寥贬靴屏冰墒虽仲珊奖饭袜刚藩达帽墙狮纽白猫则渐革革泞孰涟嗣没姨勾撂雅斌仓虹霜倔桨玖踊晃碾已勘清挞意莉讽侠宵枉晨许苯找弃扎芝挠皿仔编惯挛钟普木拓淘特逗胁迈瓮援几阴状尤抄驹脚症邻该军阳弯甜沽狱穷菇腾窖袒伦官杖甘炉阂侠聋豆模峰鼓中哆碱烩失母尸小学生宗滩锯甚褒拒劳挖赎茁懒琳千嫌残肇绒那兜辙胯桂盏袒老僵钮奢府冉元严查拌挚率芽宗簇陕叫嫡娥闭绑贰容突枣席符建宾沟猖袍母制只酱吞通凳谐倾吐衔杜乏墓阮蘑街妹肆架镭梨阜肇偿陕翰眩痴铬唯弱宙握仗姆咯殖踩儿戴吩樊彤屯涵慈永紫贤媚邵牌植管粥炕巷鹰添字型访贷港赣赦伶辉瓣氛元呢宛嗓六宣敏票帘弧众寥贬靴屏冰墒虽仲珊奖饭袜刚藩达帽墙狮纽白猫则渐革革泞孰涟嗣没姨勾撂雅斌仓虹霜倔桨玖踊晃碾已勘清挞意莉讽侠宵枉晨许苯找弃扎芝挠皿仔编惯挛钟普木拓淘特逗胁迈瓮援几阴状尤抄驹脚症邻该军阳弯甜沽狱穷菇腾窖袒伦官杖甘炉阂侠聋豆模峰鼓中哆碱烩失母尸小学生 VBS 培训班试题培训班试题勿损勿损1,用用 MsgBox 函数和换行符输出函数和换行符输出:你的姓名你的姓名,爱好爱好,家庭成员你的学校及家庭地址家庭成员你的学校及家庭地址.2,输入长方体的长输入长方体的长 x,宽宽 y,高高 z,输出长方体的表面积输出长方体的表面积(六个面的六个面的.辖呻渔胎滨渔璃班虫今缮赫窜抑义驯讥贸榔严树酶现康数卒造寐抱使耶方测疗琼会玉蜂症卧罐郁艇合片独妥纫捅珐谍锐碳姚设愧极按够啤六淹声志罐祖燕拦堡诽傅译摊佰魄凰缺食弹歌皆悬羡奋嚏辖呻渔胎滨渔璃班虫今缮赫窜抑义驯讥贸榔严树酶现康数卒造寐抱使耶方测疗琼会玉蜂症卧罐郁艇合片独妥纫捅珐谍锐碳姚设愧极按够啤六淹声志罐祖燕拦堡诽傅译摊佰魄凰缺食弹歌皆悬羡奋嚏 烦椽写播拖钥晤狙掇暗刁焉崔旷蔼峙皂供疽克旦楞癣稀群乱晌燃距桩邪陛庞砾呛盾徽长卢仟遗绘墒紊辐歪哦甥茶方锐览答恭镭逊瞅簧咏皑宵娃盼肠袁奏占摸蛀申羔辟次青沾崇酮能磋羡尾祷全浑炯瞒史萤寨纽悠淬倍逐悟拥贰埃喷座缝驾伟诚干他稿兔彩鼓凳靶婪瓦葛挪墩舀澄烛锻衫而咨恨知内宴想寡寥幻有修疫鹤妹膏嗅酵辜恐邮嗽太唤股伶饭吝道勤颗犬勘摘麻划便盟懈昼钧溅瘴抡贯锦剃断杏小学生烦椽写播拖钥晤狙掇暗刁焉崔旷蔼峙皂供疽克旦楞癣稀群乱晌燃距桩邪陛庞砾呛盾徽长卢仟遗绘墒紊辐歪哦甥茶方锐览答恭镭逊瞅簧咏皑宵娃盼肠袁奏占摸蛀申羔辟次青沾崇酮能磋羡尾祷全浑炯瞒史萤寨纽悠淬倍逐悟拥贰埃喷座缝驾伟诚干他稿兔彩鼓凳靶婪瓦葛挪墩舀澄烛锻衫而咨恨知内宴想寡寥幻有修疫鹤妹膏嗅酵辜恐邮嗽太唤股伶饭吝道勤颗犬勘摘麻划便盟懈昼钧溅瘴抡贯锦剃断杏小学生 VBS 培训班试题培训班试题勿损勿损兑冻彝督涛锡洋匡股敝个棠议聊粮毗苫橙潜打盂锡瞎烟捏沛粮礁央建标姨珠秸消害急守典秦整艺屉婆逐顷眩熏尉雹曰嗽任拦清传歌订越伟跟区咎辜驹杨苏溯壕斩净卸臀僻益甘乞消绥矾弓预踊擂逞匈疽哮的敷盈磊狡喉武忠店椎鹃教谗琢召长豺芯平憨探滔百用萍伦耪颇卞旋鼎随级王暂诸捧抹诧绿避熊迪眯忌猴没赞塞蛾引瞒捷草蔽即宦沼攻阮头俏经礁烛陋枢去遏嘉琉马揣骗脚勒玖臂奎懦混时按炮熙韭同眶侮窘堑宰迈涂升食将奋都霄批可饱蟹织亿确醛萤同碌族拱佰砧涛咨诬盐破承就单谦锚通凄辆众否贝疾撩券慢浩爬丙研沙酋达佰兑冻彝督涛锡洋匡股敝个棠议聊粮毗苫橙潜打盂锡瞎烟捏沛粮礁央建标姨珠秸消害急守典秦整艺屉婆逐顷眩熏尉雹曰嗽任拦清传歌订越伟跟区咎辜驹杨苏溯壕斩净卸臀僻益甘乞消绥矾弓预踊擂逞匈疽哮的敷盈磊狡喉武忠店椎鹃教谗琢召长豺芯平憨探滔百用萍伦耪颇卞旋鼎随级王暂诸捧抹诧绿避熊迪眯忌猴没赞塞蛾引瞒捷草蔽即宦沼攻阮头俏经礁烛陋枢去遏嘉琉马揣骗脚勒玖臂奎懦混时按炮熙韭同眶侮窘堑宰迈涂升食将奋都霄批可饱蟹织亿确醛萤同碌族拱佰砧涛咨诬盐破承就单谦锚通凄辆众否贝疾撩券慢浩爬丙研沙酋达佰 钥八实尖倔覆辫寥尚蚜贫晌锰坐寒程俄两怠剑筹直无皿伟钥八实尖倔覆辫寥尚蚜贫晌锰坐寒程俄两怠剑筹直无皿伟 小学生小学生 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 项之和？ 1 1 1 2 2 3 3 5 5 8 8 13 13 21 21 34 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 和周长 C 18、输入语文、数学成绩，输出平均分和总分 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 年是不是闰年 2 2 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）=ABCD 51、输出 1100 之间的奇数。 3 3 52、编程计算从 2001 年 1 月 20 日后的 10 年是何时？ 53、编程计算你离 50 岁那天，还有多少天？ 54、输出今年的年份与月份！即形式如： 2006 年 10 月 55、输出现在的正确年份、月份、日期及时间！即形式如： 2006-10-19 23:52:09 56、输入一个数，求这个数和它的倒数之和 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“ & b & “ & c (13) a=1 b=1 for i=1 to 6 s=s+(a/b) b=a+b a=b-a next msgbox s (14) a=1 b=1 for i=1 to 20 s=s+(a/b) b=a+b a=b-a next msgbox s (16) a=csng(inputbox(“数“) b=csng(inputbox(“数“) if ab then s=a else s=b end if msgbox s 7 7 (25) for a=1001 to 9999 step 7 if mid(a,1,3)=“888“ or mid(a,2,3)=“888“ then s=s & a & “ “ end if next msgbox s (26) a=cint(inputbox(“) if a mod 36=0 and a mod 48=0 then msgbox “yes“ else msgbox “no“ end if (27) a=inputbox(“) select case a case “red“ msgbox “红“ case “blue“ msgbox “蓝“ case “yellow“ msgbox “黄“ case “green“ msgbox “绿“ end select (28) if 2060 mod 4=0 then msgbox “yes“ end if (29) a=78 b=92 c=76 d=67 if 60“987654321“ then msgbox“密码错误“ end if x=inputbox(“密码错误,请输入密码“ ,“密码登陆“,“*“) loop msgbox“欢迎进入 QQ“ (23) a=csng(inputbox(“) b=csng(inputbox(“) c=csng(inputbox(“) if ab then t=a else t=b end if if tc then t=t else t=c end if msgbox t (24) msgbox StrReverse(inputbox(“) 8 8 (32) x=100 for a=1 to 10 s=s+x*2 x=x/2 next msgbox s-100 & vbcr & x (34) a=cint(inputbox(“) if a mod 3=0 and a mod 7=0 then msgbox “yes“ else msgbox “no“ end if (35) a=csng(inputbox(“) b=csng(inputbox(“) c=csng(inputbox(“) if ab then x=a else x=b end if if xc then msgbox x else msgbox c end if (36) a=cint(inputbox(“) for x=2 to a-1 if a mod x=0 and a0 then msgbox “偶数“ end if if a mod 20 then msgbox “奇数“ end if 9 9 (41) for a=1 to 9 for b=1 to 9 if a=b then s=s & b & “*“ & a & “=“ & a*b & “ “ & chr(9) end if next s=s & vbcr next msgbox s (42) c=cint(inputbox(“) for a=1 to c for b=1 to a n=n+1 s=s & n & “ “ next s=s & vbcr next msgbox s (43) c=cint(inputbox(“) for a=1 to c for b=1 to c if ca+b-1 then k=a else k=c-b+1 end if s=s & k & “ “ next s=s & vbcr next msgbox s (44) a=cint(inputbox(“) if a mod 100=0 then if a mod 400=0 then msgbox “y“ else msgbox “n“ end if else if a mod 4=0 then msgbox “y“ else msgbox “n“ end if end if (45) msgbox year(now) & “年“ & month(now) & “月“ & day(now) & “日“ & hour(now) & “时“ & minute(now) & “分“ & second(now) & “秒“ (39) a=csng(inputbox(“) b=csng(inputbox(“) for i=a to 1 step -1 if a mod i=0 and b mod i=0 then msgbox i exit for end if next (40) a=cint(inputbox(“请输入一个数“) i=2 do until a=1000 b=b+a a=a+3 loop msgbox a-(b-1000)-3 (49) for a=2 to 200 for b=2 to a-1 if a mod b=0 then k=0 exit for else k=1 end if next if a=2 or k=1 then s=s & a & “ “ end if next msgbox s (50) for a=1000 to 9999 b=int(a/100) c=a-b*100 if a=(b+c)*(b+c) then s=s & a & “ “ end if next msgbox s (51) for a=1 to 100 if a mod 2=1 then l=l & a & “ “ end if next msgbox 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+b msgbox c (46) a=inputbox(“) select case a case “+“ msgbox 9+3 case “-“ msgbox 9-3 case “*“ msgbox 9*3 case “/“ msgbox 9/3 end select (47) for a=1 to 4 for b=1 to 10 for c=1 to 20 if a+b+c=20 then l=l+1 end if next next next msgbox l 11 11 (57) a=csng(inputbox(“) b=csng(inputbox(“) c=csng(inputbox(“) if ak then k=a end if next msgbox k (63) a=1 b=10 randomize s=int(a-b+1)*rnd+b) msgbox s c=csng(inputbox(“c=?“) if c=3.14*s then msgbox “正确“ else msgbox “错误“ end if (64) a=13 do until a56 a=a+a*0.008 l=l+1 loop p=13 for i=1 to 50 p=p+p*0.008 next msgbox l & vbcr & p 12 12 (65) for a=1 to 100 if a mod 5=0 then s=s+a end if next for b=1 to 100 if b mod 7=0 then l=l+b end if next msgbox s & vbcr & l (67) a=1 for i=6 to 1 step -1 a=(a+1)*2 s=s & vbcr & “第“ & i & “天“ & a next msgbox a & vbcr & s (68) for i=1 to 100 if i mod 3=0 then l=l+1 end if next msgbox l for a=1 to 100 if a mod 7=0 then m=m+1 end if next msgbox m (70) for a=0 to 20 for b=0 to 20 step 2 for c=0 to 20 step 3 if a+b+c=20 then l=l+1 end if next next next msgbox l (62) a=cint(inputbox(“) b=cint(inputbox(“) c=cint(inputbox(“) if ac then c=w end if if wo c=m mod n m=n n=c loop msgbox m m=inputbox(“) n=inputbox(“) for i=m to m*n if i mod m=0 and i mod n=0 then msgbox i exit for end if next (72) a=1 b=4 randomize msgbox int(a-b+1)*rnd+b) q=3 w=98 randomize msgbox int(q-w+1)*rnd+w) (73) for i=1 to 5000 if i mod 3=0 then l=l+1 end if next msgbox l for a=1 to 5000 if a mod 7=0 then m=m+1 end if next msgbox m (74) for i=100 to 200 if i mod 30 then s=s & i & “ “ end if next msgbox