2016年高中信息技术学业水平考试VB程序复习题.docVIP

2016年高中信息技术学业水平考试VB程序复习题 一、顺序结构程序 1.启动VB，打开工程文件“c:\MyExam\VB91.vbp”，完成如下算法设计:12 分]2013年6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为8，宽为5，高为23，求长方体的体积V，小李同学编写出了如下的不完整程序。??请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VBDim A As Single Dim B As Single Dim H As Single Dim V As Single A=8:B=5:H=23 V=________ func=”长方体的体积V=” V End Function 2. 已知圆柱的底面半径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 End Function 3.已知圆的半径r是3，计算圆的面积s（∏的值取3.14），小李同学编写出了如下的不完整程序。??请将程序缺失部分“___”补充完整。Dim r As Single Dim s As Single r=3 s=________ func=”圆的面积s=” s End Function 4. 2013年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为1，变量b的值为2，交换变量a、b的值。小李同学编写出了如下的不完整程序。??请将程序缺失部分“___”补充完整Dim a As Integer,b As Integer Dim t As Integer a=1:b=2 t=a:a=b b=________ func=”a=” a ” b=” b End Function 5. 已知变量x的值是，下列程序的功能是求x的各位数字之和s，其中a存放的是位数字，b存放的是位数字，c存放的是位数字存放的是位数字。请将程序缺失部分“___”补充完整。Dim x As Integer, s As Integer Dim a As Integer,b As Integer Dim c As Integer,d As Integer x=4698 a=________ b=x\100 mod 10 c=x\10 mod 10 d=x mod 10 s=a+b+c+d func=”各位数字之和s=” s End Function 二、选择结构程序 6.已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。 Dim a As Integer,x As Integer a=178 If a/2=Int(a/2) then x=0 ELse x=________ End If func=x End Function 7. 已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Dim a As Integer,x As Integer a=________ If a/2=Int(a/2) then x=0 ELse x=1 End If func=x End Function 8. 已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Dim a As Integer,x As Integer a=178 If A MOD 2 0 then x=1 ELse x=0 ________ func=x End Function 9. 已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Dim a As Integer,x As Integer a=178 If A/2=A\2 ________ x=1 ELse x=0 End If func=x End Function 10. 购物计费：某商场为了促销而实行购物打折，在商场购物低于500元（包括500元）不打折，超过500元的部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额。请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。 Dim a As Single,x As Single a=________ If x=500 then x=a ELse x=500+(a-500) * 0