《四川省学业水平考试VB程序设计操作题演示.ppt》由会员分享，可在线阅读，更多相关《四川省学业水平考试VB程序设计操作题演示.ppt（16页珍藏版）》请在三一文库上搜索。
1、四川省普通高中学业水平考试信息技术考试,四川省乐山沫若中学熊继承,VB算法设计部分操作题,Dim R As SingleDim L As Single Dim S As Single _=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表示行李费。,Dim X As Single Dim Y As Single X=InputB
2、ox(输入行李重量) If _ Then Y= Else Y= End If Print 行李费= ;Y,X=20,0,20*(X-20),3、求s=2+4+6+100之和。,Dim i As IntegerDim s As Integers=For i= To Step s=_Next _Print s,0,2,100,2,S+i,i,4、已知变量x的值是345，下列程序的功能是求x的各位数字之和s，其中a存放的是百位数字，b存放的是十位数字，c存放的是个位数字。,Dim x as integer,s as integerDim a as integerDim b as integerDim
3、 c as integerX=345A=_B=_C=_S=a+b+cFunc=“各位数字之和s=“&sPrint “s=“,s,x 100 Mod 10,x10 mod 10,x mod 10,5、该程序的功能是求s=5+10+15+100。,Dim I as integer,s as integerS=_For i=_ to _ step _ s=_Next _Func=s,0,5,100,5,S+i,i,6、已知变量a的值是3，b的值是4，下列程序的功能是将a，b两个变量的值相互交换后输出。,Dim s as singleDim b as singleDim t as single
4、A=3B=4T=a_Func=“a=“&a&”b=“&b,b=t,a=b,7、已知长方体的长A为5，宽B为6，高H为20，下列程序的功能是计算长方体的体积V。,Dim a as singleDim b as singleDim h as singleDim v as singleA=5B=6H=20V=_Func=“长方体的体积V”&v,A*B*H,8、求s=1+3+5+99之和。,Dim i As IntegerDim s As Integers=For i= To Step s=_Next _Print s,0,1,99,2,S+i,i,9、购物计费：某商场
5、为了促销而实行购物打折，在商场购物500元以上（不包括500元），超过部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额。,Dim a as single,x as single_=898If s_ then _Else x=_End ifFunc=“应付金额S”&s,X=a,=500,500+(a-500)*0.8,a,10、计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的超过部分按6元/平方米计算。m表示租房面积，n表示房租费。,Dim m as int
6、eger,n as integer_=128If m_ then _ n=_End ifFunc=“房租费n=”&n,m,=70,else,4*70+6*(m-70),n=4*m,11、已知圆柱的底面积R为6，高H为11，下列程序的功能是计算圆柱的体积V（的取值3.14） 。,Dim r as single, h as single,v as singler=6H=11V=_Func=“圆柱体的体积V”&v,3.14*r*r*H,12、已知圆的半径R是7，下列程序的功能是计算圆的周长L（的值取3.14）。,Dim r as singledim l as singler=7l=_Func=“圆的周长l”&l,2*3.14*r,13、已知变量a的值为178，判断其奇偶性，是偶数则让变量x值为0，是奇数则让变量x的值为1。,Dim a as single,x as singlea=178If a/2=_ then x=_Else x=_End ifFunc=x,Int(a/2),0,1,x100 mod 10,(-b-sqr(d)/(2*a),