《四川省学业水平考试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 int。
3、eger 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元/平方米，超。
6、过70平 方米的超过部分按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)。
