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