信息技术会考真题.doc

《信息技术会考真题.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、21、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面该程序的功能是求S=1+3+5+……+99。请将程序缺失部分补充完整。Functionfunc()  DimiAsInteger,sAsInteger  s=0  Fori=1To  _____  Step2    s=s+i  Nexti  func=sEndFunction22、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面该程序功能是求S=10+20+30+……+100，请将空格补完整实现前述功能。Functionfunc()  D

2、imIAsInteger,sAsInteger  s=0  Fori=10To100Step10    s=_____  NextI  func=sEndFunction23、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面判断奇偶性，如果是偶数让x为0，如果是奇数让x为1Functionfunc()  DimaAsInteger,xAsInteger  Ifa/2=Int(a/2)Then    x=0  Else    x=_____  EndIf  func=xEndFunction窗体顶端21

3、、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面完成如下算法设计：该程序功能是求S=2+4+6+……+100。Functionfunc()  DimIAsInteger,sAsInteger  s=0  Fori=2to100Step_____    s=s+i  Nexti  Func=sEndFunction22、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面判断奇偶性，如果是偶数让x为0，如果是奇数让x为1Functionfunc()  DimaAsInteger,xAsIntege

4、r  Ifa/2=Int(a/2)Then    x=0  Else    x=_____  EndIf  func=xEndFunction23、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。补充完整下列程序段。DimXAsSingle,YAsSingleX=InputBox("输入行李重量")If_____Then  Y=0Else  Y=20*(X-20)EndIf

5、Print"行李费=";Y窗体底端21、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面编写一元二次方程X^2+3X+2=0的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。请将下列程序补充完整。Functionfunc()  DimaAsSingle  DimbAsSingle  DimcAsSingle  DimdAsSingle  Dimx1AsSingle  Dimx2AsSingle  a=1  b=3  c=2  d=b*b-4*a*c  ifd>=0Then    x

6、1=_____    x2=(-b-Sqr(d))/(2*a)    func="x1="&x1&"    x2="&x2  Else    func="无实根"  EndIfEndFunction22、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面已知变量x的值是1987，下列程序的功能是求x的各位数字之和s，其中a是个位数字，b是十位数字，c是百位数字，d是千位数字，请将程序补充完整。Functionfunc()  DimxAsInteger  DimaAsInteger  DimbAsInte

7、ger  DimcAsInteger  DimdAsInteger  DimsAsInteger  x=1987  a=xMod10  b=_____  c=x100mod10  d=x1000  s=a+b+c+d  func="各位数字之和s="&sEndFunction23、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面该程序功能是求S=10+20+30+……+100，请将空格补完整实现前述功能。Functionfunc()  DimIAsInteger,sAsInteger  s=0  

8、Fori=10To100Step10    s=_____  NextI  func=sEndFunction窗体顶端21、[程序题12分]阅读程序，请把下划线处缺失的部分填在下面已知变量x的值是1987，下列程序的功能是求x的各位数字之和s，其中a是个位数字，b是十位数字，c是百位数字，d是千位数字，请将程序补充完整。Functionfunc()  DimxAsInteger  DimaAsInt