川省学业水平考试VB程序设计操作题演示.ppt

四川省普通高中学业水平考试信息技术考试,四川省乐山沫若中学熊继承,VB算法设计部分操作题,DimRAsSingleDimLAsSingleDimSAsSingle_=InputBox(输入半径R)L=S=Print圆的周长L=;LPrint圆的面积S=;S,1、从键盘输入圆的半径R，输出圆的周长L和面积S。,R,2*3.14*R,3.14*R*R,2、计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。,DimXAsSingleDimYAsSingleX=InputBox(输入行李重量)If_ThenY=ElseY=EndIfPrint行李费=;Y,X=20,0,20*(X-20),3、求s=2+4+6+100之和。,DimiAsIntegerDimsAsIntegers=Fori=ToSteps=_Next_Prints,0,2,100,2,S+i,i,4、已知变量x的值是345，下列程序的功能是求x的各位数字之和s，其中a存放的是百位数字，b存放的是十位数字，c存放的是个位数字。,Dimxasinteger,sasintegerDimaasintegerDimbasintegerDimcasintegerX=345A=_B=_C=_S=a+b+cFunc=“各位数字之和s=“&sPrint“s=“,s,x100Mod10,x10mod10,xmod10,5、该程序的功能是求s=5+10+15+100。,DimIasinteger,sasintegerS=_Fori=_to_step_s=_Next_Func=s,0,5,100,5,S+i,i,6、已知变量a的值是3，b的值是4，下列程序的功能是将a，b两个变量的值相互交换后输出。,DimsassingleDimbassingleDimtassingleA=3B=4T=a_Func=“a=“&a&”b=“&b,b=t,a=b,7、已知长方体的长A为5，宽B为6，高H为20，下列程序的功能是计算长方体的体积V。,DimaassingleDimbassingleDimhassingleDimvassingleA=5B=6H=20V=_Func=“长方体的体积V”&v,A*B*H,8、求s=1+3+5+99之和。,DimiAsIntegerDimsAsIntegers=Fori=ToSteps=_Next_Prints,0,1,99,2,S+i,i,9、购物计费：某商场为了促销而实行购物打折，在商场购物500元以上（不包括500元），超过部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额。,Dimaassingle,xassingle_=898Ifs_then_Elsex=_EndifFunc=“应付金额S”&s,X=a,=500,500+(a-500)*0.8,a,10、计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的超过部分按6元/平方米计算。m表示租房面积，n表示房租费。,Dimmasinteger,nasinteger_=128Ifm_then_n=_EndifFunc=“房租费n=”&n,m,=70,else,4*70+6*(m-70),n=4*m,11、已知圆柱的底面积R为6，高H为11，下列程序的功能是计算圆柱的体积V（的取值3.14）。,Dimrassingle,hassingle,vassingler=6H=11V=_Func=“圆柱体的体积V”&v,3.14*r*r*H,12、已知圆的半径R是7，下列程序的功能是计算圆的周长L（的值取3.14）。,Dimrassingledimlassingler=7l=_Func=“圆的周长l”&l,2*3.14*r,13、已知变量a的值为178，判断其奇偶性，是偶数则让变量x值为0，是奇数则让变量x的值为1。,Dimaassingl