1、求出三组互不相同的自然数A,B,C,使之满足

1、小学 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

2、+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、编程输出11235813211+2+3+5+8+13+21+ 34, 前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 。求

3、长方形的面积S和周长 C18、输入语文、数学成绩，输出平均分和总分19、输入两个数x 和 y ，输出 x÷ y 的整数部分I 和小数部分F 。（如 5÷ 2，则 I=2 ， F=0.5）20、输入两个数i,j ，输出它们的最小公倍数M和最大公约数。21、北京奥运会于2008 年 8 月 8 日开幕，计算今天距北京奥运会开幕还有多少个星期？22、要求随便输入三个数字，这三个数排从小到大排列23、输入三个数，输出三个数中最大的一个。24、输入一字符串，输出它的倒序字符串。（如输入“ ABCD1234 ”，输出为“ 4321DCBA ”）25、编程输出：同时满足下面两个条件的四位

4、数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!"

5、，错误提示 " 密码错误 , 请重新输入 !"a=inputbox("")do until a="987654321"msgbox " 密码错误 , 请重新输入 !"a=inputbox("")loopmsgbox " 欢迎进入 QQ!"31、过年了，三年级的小伟同学得到了1024 块压岁钱，他想把钱存入银行， 银行的年利率为0.2%，请你算一下他到六年级毕业时能拿到多少钱？32、已知一球从100 米高度自由落下,落下后反复弹起，每次弹起的高度都是上次高度的一半。求此球第 1

6、0 次落地后反弹起的高度和球所经过的路程。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 分的硬币有

7、20 个， 2 分的硬币有10 个， 5 分的硬币有4 个。有几种排列方法能够使得总和为 20 分。48、一本 1000 页的书，黄强第一天看了10 页。以后每天比前一天多看3页，编程求出黄强最后一天看了多少页。49、求出 200 以内的素数50、编程找出四位正整数ABCD中满足下述关系的数： （ AB+CD） * （ AB+CD） =ABCD51、输出 1 100 之间的奇数。52、编程计算从2001 年 1 月 20 日后的10 年是何时？53、编程计算你离50 岁那天，还有多少天？54、输出今年的年份与月份！即形式如：2006 年 10月55、输出现在的正确年份、月份、日期及时间！即形式

8、如：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 内的数）（算圆周长） ，输入答案，对正确答案输出

9、“正确”，错误答案输出“错误” 。64、我国有 13 亿人口，按人口年增长0.8%计算，多少年之后我国人口超过56 亿？ 50 年后我国人口有多少亿？65、求出 1 100 的 5 的倍数或 7 的倍数的和。66、假定小鸡每只5 角，公鸡每只 2 元，母鸡每只 3 元。现在 100 元要求买100 只鸡，编程列出所有可能的购鸡方案。67、猴子吃桃子。小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子的一半多一个； 以后每天都吃尚存桃子的一半零一个，到第 7 天早上要吃的时候发现只剩下一个了，问小猴子那天总共摘下了多少桃子？68、分别统计 1 100 中，满足的 3 倍数、

10、7 的倍数的数各为多少个？69、利用随机函数产生的20个 50 100 范围内的随机数， 显示它们的最大值、 最小值和平均值。70、设用 1、 2、 3 分的三种硬币组成 20 分（ 2 角），有多少种方案？71、用辗转相除法求两自然数m、 n 的最大公约数和最小公倍数。72、（ 1）、产生一个 1<=x<5的随机数；（ 2）、产生一个3<=x<99的随机数73、求出 15000 以内能被3 或者 7 整除的数的个数74、把 100 200 之间不能被3 整除的数输出75、 12=3*4 ， 56=7*8 ，称为顺子算式，在三位数，四位数中还能找到这样的顺子算式吗？1

11、176、在 35之间插入20 个分数，使每两个之差都相等。77、把 7,77,777,7777,77777,777777,7777777, 77777777,777777777分解质因数11178、求出三组互不相同的自然数A,B,C, 使之满足 ABC（算法提示 :化为整式）bc/abcd+ac/abcd=ab/abcdbc+ac=ab1111179、求出一组互不相同的自然数A,B,C,D,E, 使之满足 ABCDE80、求 0 100 之间的所有质数（素数）不要忘记“ 2”81、当 n？时，2n 各位数字之和是 5 的倍数当 n=6 时，则 2n=32 ， 32 各位数字之和也就是3+2 是

12、 5 的倍数！82、判断三个数a,b,c 作边 ,(端点相接 )能否构成三角形?（算法提示 :三角形任意两边之和大于第三边）83、从 1， 2， 3， 2007 这些数中，求8 出现过多少次？一种方法可以用len（ x）返回字符串x 的长度。另一个方法同样也可以将个十百千位上的”8”得出。Cstr len mid84、把 100 最多可拆成哪些正整数的平方和？85、求 1000 前五个质数。nnnn86、若 1234 恰是 5 的倍数，求出3 个不同的n587、将 5 表示成5 个连续奇数之和先把中间的数求出来！88、求 a,b ，其和为667，他们的最小公倍数是他们最大公约数的120 倍。最

13、小公倍数与最大公约数之间有什么关系呢？89、求出所有这样的三位数，使其被11 整除后的商等于被除数中各数字的平方和。90、假设兔子的寿命都大于 2 年，在一封闭的养殖场里放入一对兔子，对兔子，问到第 12 个月，兔子数已繁殖到了多少？每月每对兔子都能再生一91、某富翁将6737 枚铜币， 2811 套衣服等分给若干灾民，余数是：铜币余6 枚，衣服余2 套，问灾民最多是多少人？92、若干学生搬一堆书，若每个人搬4 本，则剩14 本，若没人搬9 本，则最后一人只搬8 本，求搬书的学生有多少人？93、求 2100 的末四位数算法提示。采用留尾截头方法94、求 5100 的末三位数字。算法提示: 采用

14、留尾截头方法95、求 9999992008末位数是几？4、用绘图函数输出：长方体三棱锥波浪线螺旋线阶梯线球体三叶花五叶花96、试找出八位数12345679 的所有质因数。97、有两个数列：A 1，3，5，7， 1999 ， B 1， 4， 7， 10， ，1999 。求： A 与 B 中相同的数有哪些？98、一辆 40 万的汽车，每年折旧0.85，问过多少年后，其价值刚低于10 万？99、从 n 个随机数中挑出最大数和最小数。（也就是要求用户输入一个数字，比如输入“6”，则弹出 6 个随机数，然后再弹出最大数以及最小数）100、用户输入的0 10 分别转换成中文大写数字： “壹，贰，叁，拾”1

15、01、任意给你3 个自然数，产生所有的6 位回文数。（从左到右看，从右到左看数字排列一样的数叫回文数）102、统计 1， 2， 3， 2008 中 ,有多少数字含有“ 0”？103、将用户输入的十个字母进行大小大英文字母转换（输入的既有大写字母也有小写字母）104、显示当前年、月、日，时、分、秒，星期几？105、计算时差：到2020年 1 月 10 日还有多少个星期？106、设计根据当前年份和用户年龄n 推算生肖的程序107、 “This is a book,and that is a pen . ”找出单词 ”is”的个数和所在的位置108、将用户输入句中 “This is a book,a

16、nd that is a pen . ”的单词 ”a”替换成单词 ”two ”109、找出三个自然数，使a2b2c2110、找出四个自然数，使a2b2c2d 2111、求这样的四位数 abcd ，使 dcba4 abcd ，即交换数位后是原数的4 倍112、有多少种方法将正整数n 拆成 k 个互不相等的正整数之和?算法提示 -1:从 n 中先分出 1+2+3+ ,+k, 再分配多余的数。- 数学中的算法算法提示 -2：先大致地平均分成n 份，慢慢地将 1 向后挪动。113、已知 2nn2（n 为自然数）是100的倍数，求最小的n 是多少？114、求 144 有哪些约数？115、求 1000 所

17、有的约数。116、 37 * 55 * 73有哪些约数 ?117、一个圆周上写着 37 个自然数，从 1 开始，沿着顺时针方向 ,隔 2 个删去一个数，问经过多少次才能删到数字 1？最后删除的是几 ?118、把 37 拆成若干正整数之和，使这些正整数之积为最大119、用辗转相除法，求96 与 144 的最大公约数。m=CSng(InputBox("输入第一个数"," 求最大公约数",96)n=Csng(InputBox(" 输入第二个数"," 求最大公约数",144)Do Until n=0x=nn=m Mod n

18、m=xLoopMsgBox mk120、分数 1000 ， k 1， 2， 3， 1000 ，哪些分数可约分？121、设 a, b ，使得六位数 a2000b 能被 26 整除，求这个六位数。122、把 10X10 的方格中依次填入1， 2， 3， , ， 100个数，计算两条对角线上各数之和123、输出矩阵：数字从1 到 200， 矩阵 A：40 行， 50列， 1，2，3，4， 5， , ， 50横着排；矩阵 B： 40 行， 50 列， 1， 2， 3， 4， 5，, ， 40 纵着排；124、所有六位数中，11 的倍数有哪些？125、将 1000 表示成八进制数（Oct） msgbox

19、 Oct(1000)126、把“我们都是好学生”逐字的ASC 码转化为十六进制 ,并用下划线分割每一个汉字的代码。提示： a = Asc(" 我 ")a=hex(a)127、把“我们都是好学生”逐字的ASC 码与 110 与或运算，再看看是句什么话？a=CHR(cint(asc(" 我 ") or 110)128、把“我们都是好学生”逐字的ASC 码加 119，看看是句什么话？提示： a=CHR(cint(asc(" 我 ")+119)129、一条线正好能围成半径为10的圆一圈， 求这条线围成正方形时，此正方形的面积，围成正三角形时，

20、此三角形的面积。 （利用勾股定理求正三角形的高）131、求 2008 这个数的： Not 值132、设计解方程的程序，用户依次输入133、对用户输入的任一数字，根据ASC134、输出正三角形。 （ string ）与 2007 的异或（ Xor ）i=2008g=2007 xor 2008g=not imsgbox ga, b,cb，程序能解这样的方程： ax =cmsgbox g码调出汉字。135、把 10*10 的方格中依次填入1， 2， 3， . ， 100 个数，计算两条对角线上各数之和。137、10 个人围成一圆圈，从某一人开始数起，凡数到5 的人出圈，剩下的继续从1 开始数，循环反

21、复，直到剩下1 人为止。问这个人起先应该站在什么位置。138、有一个整数的平方，千位、百位数字相同，十位、个位数字相同，形如：n2=aabb，求它是多少？ (88)139、将自然数n 转化为十六进制数。(hex)（在十六进制中，A，B，C， D，E，F 分别表示10， 11， 12， 13， 14， 15）140、计算近似的 （精确到小数点后四位）111111143579112007141、找出这样的四位数abcd ，使abcd dcba是 1212 的倍数。142、某些数很奇特，有特殊的特征，如：422 2 2，6123=1 2 3在 -1000 1000 中能找出多少个数？能保证N=a+b

22、+c=a × b× c143、随机产生100 999 之间的正整数，设计高效的排序方法，把他们从小到大进行排序。算法提示 :不同的数记入不同下标的数组里进行累计144、在圆周上写着1， 2，3， ,，100 ，从1 开始划，此后每隔5 个划一个，''' 已经划去的不再划 ,求最后划去的那个数是几？145、给出 2008 年元旦是星期几的判断方法。a=inputbox(" 请输入年月日"," 判断星期几 ","2008-1-1")c=datediff("d",now,a)x=weekday(now)-1z=c mod 7d=z+xe=d mod 7if e=&