2016年高中信息技术学业水平考试 VB程序复习题

信息技术学业水平考试VB专题复习试卷（一）由陈顺贵老师整理2016年5月25日12016年高中信息技术学业水平考试VB程序复习题一、顺序结构程序1.启动VB，打开工程文件“c:\MyExam\VB91.vbp”，完成如下算法设计:[12分]2013年6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为8，宽为5，高为23，求长方体的体积V，小李同学编写出了如下的不完整程序。请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。Functionfunc()DimAAsSingleDimBAsSingleDimHAsSingleDimVAsSingleA=8:B=5:H=23V=________func=”长方体的体积V=”&VEndFunction2.已知圆柱的底面半径R为6，高H为11，下列程序的功能是计算圆柱的体积V（∏的值取3.14）。请将程序缺失部分“___”补充完整。Functionfunc()DimRAsSingle,HAsSingle,VAsSingleR=6H=11V=________func=”圆柱体的体积V=”&VEndFunction3.已知圆的半径r是3，计算圆的面积s（∏的值取3.14），小李同学编写出了如下的不完整程序。请将程序缺失部分“___”补充完整。Functionfunc()DimrAsSingleDimsAsSingler=3s=________func=”圆的面积s=”&sEndFunction4.2013年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为1，变量b的值为2，交换变量a、b的值。小李同学编写出了如下的不完整程序。请将程序缺失部分“___”补充完整。Functionfunc()DimaAsInteger,bAsIntegerDimtAsIntegera=1:b=2t=a:a=bb=________func=”a=”&a&”b=”&bEndFunction5.已知变量x的值是4698，下列程序的功能是求x的各位数字之和s，其中a存放的是千位数字，b存放的是百位数字，c存放的是十位数字，d存放的是个位数字。请将程序缺失部分“___”补充完整。Functionfunc()DimxAsInteger,sAsIntegerDimaAsInteger,bAsIntegerDimcAsInteger,dAsIntegerx=4698a=________b=x\100mod10c=x\10mod10d=xmod10s=a+b+c+dfunc=”各位数字之和s=”&sEndFunction信息技术学业水平考试VB专题复习试卷（一）由陈顺贵老师整理2016年5月25日2二、选择结构程序6.已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Functionfunc()DimaAsInteger,xAsIntegera=178Ifa/2=Int(a/2)thenx=0ELsex=________EndIffunc=xEndFunction7.已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Functionfunc()DimaAsInteger,xAsIntegera=________Ifa/2=Int(a/2)thenx=0ELsex=1EndIffunc=xEndFunction8.已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Functionfunc()DimaAsInteger,xAsIntegera=178IfAMOD20thenx=1ELsex=0________func=xEndFunction9.已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Functionfunc()DimaAsInteger,xAsIntegera=178IfA/2=A\2________x=1ELsex=0EndIffunc=xEndFunction10.购物计费：某商场为了促销而实行购物打折，在商场购物低于500元（包括500元）不打折，超过500元的部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额。请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。Functionfunc()DimaAsSingle,xAsSinglea=________Ifx=500thenx=aELsex=500+(a-500)*0.8EndIffunc=”应付金额x=”&xEndFunction信息技术学业水平考试VB专题复习试卷（一）由陈顺贵老师整理2016年5月25日311.计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的超过部分按6元/平方米计算。m表示租房面积，n表示房租费。请将程序缺失部分“___”补充完整。Functionfunc()DimmAsSingle,nAsSinglem=128Ifm=70thenn=________ELsen=4*70+6*(m-70)EndIffunc=”房租费n=”&nEndFunction12.雅西高速于2012年4月29日正式修成通车，假设该高速公路的收费标准是：在该高速路上行驶100公里以上（不包含100公里）的车辆0.4元/公里，否则0.5元/公里。下列程序的功能是计算车辆应该交纳的费用。X表示车辆在该高速路上行驶的公里数，y表示应收费用。请将程序缺失部分“___”补充完整。Functionfunc()DimxAsSingleDimyAsSingleX=140Ifx=100________y=0.5*xELsey=0.4*xEndIffunc=”该车辆应交纳的费用y=”&yEndFunction13.在2012年，苹果公司推出了新产品“NewIpad”，售价定为4800元/台。为了促销，某商场实行了如下的销售策略：一次购买3台以上（不包含3台）的，实行9折优惠。下列程序的功能是计算顾客应付的金额。X表示该顾客购买的台数，y表示应付金额。请将程序缺失部分“___”补充完整。Functionfunc()DimxAsSingleDimyAsSingleX=4Ifx3theny=0.9*x*4800ELsey=________EndIffunc=”顾客应付的金额y=”&yEndFunction三、FOR循环结构程序13.该程序的功能是求S=5+10+15+......+100。请将程序缺失部分“___”补充完整Functionfunc()DimiAsInteger,sAsIntegers=0Fori=5To100Step________s=s+iNextifunc=sEndFunction14.2013年6月，小张参加了一场考试，其中有一道题目是求S=1*2*3*4*5。小张编写出了如下的不完整程序。请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。Functionfunc()DimiAsInteger,sAsIntegers=________Fori=_____________s=s*iNextifunc=sEndFunction信息技术学业水平考试VB专题复习试卷（一）由陈顺贵老师整理2016年5月25日4四、阅读下列程序，写出程序运行后的结果。1.PrivateSubCommand1_Click()A=Abs(-3)B=Sqr(9)C=Int(-9.5)D=Int(1.09)E=A^3F=EMOD2S=A+B+C+D+E+FPrintS=;SEndSub运行结果：__________________2.PrivateSubCommand1_Click()A=3:b=4IfabthenC=a-bELSEC=a+bEndifPrint“C=”;CEndSub运行结果：_______________3.PrivateSubCommand1_Click()S=0K=0For____________Step-4S=S+iNextiPrintS=”；SEndSub运行结果：_______________