2007年安吉县小学生VBS编程竞赛试卷.doc

2007年安吉县小学生VBS编程竞赛试卷学校:_ _ 班级:_ 姓名:_ 指导老师:_统一规定：在D：新建文件夹，重命名为“学校_姓名”，所有程序都放在它里面，根据题号取文件名，关键代码标上注释,输出句配上合适的中文说明,注意及时保存。比赛时间：9:30-11:30一、编程计算用一个MsgBox显示四小题的结果，分四行显示 12分msgbox 987*654 & vbcr & 65536/1024 & vbcr & 97+79 & vbcr & 12345 mod 9二、编程计算保存4个VBS文件,如“2(1).vbs”,“2(4).vbs” 16分(1)for i=1 to 2007 s=s+inext msgbox s(2)for i=11 to 2007 step 2s=s+inextmsgbox s(3)s=1for i=0.1 to 0.9 step 0.1s=s*inextmsgbox s(4)for i=1 to 2007a=ib=i+1s=s+a/bnextmsgbox s三、输入五个数a,b,c,d,e,输出它们的总和sum=?、平均数av=?。10分a=cint(inputbox()b=cint(inputbox()c=cint(inputbox()d=cint(inputbox()e=cint(inputbox()sum=a+b+c+d+eav=sum/5msgbox sum & vbcr & av四、输入自然数n(n:1到32767之间)，判断它是不是9的倍数，如果是9的倍数，输出“Yes !”，否则输出“No !”。6分n=cint(inputbox()if n mod 9=0 thenmsgbox Yes !elsemsgbox No !end if五、输入自然数n(n:1到32767之间),一次性输出它的所有因数包括1和它本身,两因数之间用空格分开。 10分n=cint(inputbox()for i=1 to nif n mod i=0 thens=s & i & end ifnextmsgbox s六、输入x,y,z三个互不相同的数，输出它们中最小的数，用min表示最小数。8分x=cint(inputbox()y=cint(inputbox()z=cint(inputbox()if xy thent=xx=yy=tend ifif xz thent=xx=zz=tend ifif yz thent=yy=zz=tend ifmsgbox x七、编写一个“英汉”翻译的程序，能翻译下表中的英语词汇：10分a=inputbox()select case acase dogmsgbox 狗case pigmsgbox 猪case catmsgbox 猫case godmsgbox 神case bugmsgbox 虫case elsemsgbox 没有这个单词end select八、输入自然数n，求它各位数字的和。如3056的各位数字的和是：3+0+5+6=14 10分n=cint(inputbox()for i=1 to len(n)a=mid(n,i,1)s=cint(s+a)nextmsgbox s九、在100,101,102,，2007这些数中，首位数字和末位数字相同的数有多少个？如：131,222,1441,1391,2002,，等等 18分for i=100 to 2007p=len(i)a=mid(i,1,1)b=mid(i,p,1)if a=b thenl=l+1end ifnextmsgbox l十、用MsgBox产生下面用“*”排列的“X”形图形。 12分a=string(1,*)b=string(1, )for i=1 to 7for j=1 to 7if i=j or i+j=8 thens=s & aelses=s & bend ifnexts=s & vbcrnextmsgbox s十一、编写判断质数(也叫素数)的自定义函数并计算100以内所有质数的倒数和，输出求和结果。 18分function ss(x)for i=2 to x-1if x mod i=0 thenk=0exit functionelsek=1end ifnextif k=1 or x=2 thenss=1/xend ifend functionfor j=1 to 100t=ss(j)m=m+tnextmsgbox m十二、利用二维数组进行设计。 20分1,产生下面数字矩阵A和(向右旋转后的)数字矩阵B。 2,计算数字矩阵A两条对角上的各数之和Lx(左上角开始)与Rx(右上角开始)。 1、dim a(10,10)for i=1 to 10for j=1 to 10a(i,j)=(i-1)*10+jif a(i,j)10 thens1=s1 & & a(i,j)elseif a(i,j)100 thens1=s1 & & a(i,j)elses1=s1 & & a(i,j)end ifnexts1=s1& vbcrnextdim b(10,10)for i=1 to 10for j=1 to 10b(i,j)=a(11-j,i)if b(i,j)10 thens=s & & b(i,j)elseif b(i,j)100 thens=s & & b(i,j)elses=s & & b(i,j)end ifnexts=s & vbcrnextmsgbox s1msgbox s2、dim a(10,10)for i=1 to 10for j=1 to 10a(i,j)=(i-1)*10+jnextnextfor