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

四川省普通高中学业水平考试信息技术考试 VB算法设计部分 操作题 3、求s=2+4+6+……+100之和。 Dim i As Integer Dim s As Integer s=＿＿＿ For i=＿＿ To ＿＿Step　＿＿＿ s=_________ Next __ Print s 4、已知变量x的值是345，下列程序的功能是求x的各位数字之和s，其中a存放的是百位数字，b存放的是十位数字，c存放的是个位数字。 Dim x as integer,s as integer Dim a as integer Dim b as integer Dim c as integer X=345 A=_____________ B=______________ C=_____________ S=a+b+c Func=“各位数字之和s=“s Print “s=“,s 5、该程序的功能是求s=5+10+15+……+100。 Dim I as integer,s as integer S=______ For i=____ to _____ step ______ s=_______ Next _____ Func=s 6、已知变量a的值是3，b的值是4，下列程序的功能是将a，b两个变量的值相互交换后输出。 Dim s as single Dim b as single Dim t as single A=3 B=4 T=a ________ ________ Func=“a=“a”b=“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 8、求s=1+3+5+……+99之和。 Dim i As Integer Dim s As Integer s=＿＿＿ For i=＿＿ To ＿＿Step　＿＿＿ s=_________ Next __ Print s 9、购物计费：某商场为了促销而实行购物打折，在商场购物500元以上（不包括500元），超过部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额。 Dim a as single,x as single ____=898 If s_______ then ______ Else x=_______________ End if Func=“应付金额S＝”s 10、计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的超过部分按6元/平方米计算。m表示租房面积，n表示房租费。 Dim m as integer,n as integer _____=128 If m_______ then ________ ________ n=___________ End if Func=“房租费n=”n 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 12、已知圆的半径R是7，下列程序的功能是计算圆的周长L（∏的值取3.14）。 Dim r as single dim l as single r=7 l=_____________ Func=“圆的周长l＝”l 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 * 四川省乐山沫若中学　熊继承 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表示行李费