《2016年高中信息技术学业水平考试VB程序复习题》由会员分享，可在线阅读，更多相关《2016年高中信息技术学业水平考试VB程序复习题（4页珍藏版）》请在金锄头文库上搜索。
1、文档供参考，可复制、编制，期待您的好评与关注！ 2016年高中信息技术学业水平考试VB程序复习题 / 一、顺序结构程序1.启动VB，打开工程文件“c:MyExamVB91.vbp”，完成如下算法设计: 12 分2013年6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为8，宽为5，高为23，求长方体的体积V，小李同学编写出了如下的不完整程序。请将程序缺失部分“_”补充完整，并将“_”字符删除，正确运行程序后，保存文件并退出VB。Function func( )Dim A As SingleDim B As SingleDim H As SingleDim V As SingleA
2、=8:B=5:H=23V=_func=”长方体的体积V=” & VEnd Function2. 已知圆柱的底面半径R为6，高H为11，下列程序的功能是计算圆柱的体积V（的值取3.14）。请将程序缺失部分“_”补充完整。Function func( )Dim R As Single,H As Single,V As SingleR=6H=11V=_func=”圆柱体的体积V=” & VEnd Function 3.已知圆的半径r是3，计算圆的面积s（的值取3.14），小李同学编写出了如下的不完整程序。请将程序缺失部分“_”补充完整。Function func( )Dim r As SingleD
3、im s As Singler=3s=_func=”圆的面积s=” & sEnd Function4. 2013年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为1，变量b的值为2，交换变量a、b的值。小李同学编写出了如下的不完整程序。请将程序缺失部分“_”补充完整。Function func( )Dim a As Integer,b As IntegerDim t As Integera=1:b=2t=a:a=bb=_func=”a=” & a & ” b=” & bEnd Function5. 已知变量x的值是4698，下列程序的功能是求x的各位数字之和s，其中a存放的是千
4、位数字，b存放的是百位数字，c存放的是十位数字，d存放的是个位数字。请将程序缺失部分“_”补充完整。Function func( )Dim x As Integer, s As IntegerDim a As Integer,b As IntegerDim c As Integer,d As Integerx=4698a=_b=x100 mod 10c=x10 mod 10d=x mod 10s=a+b+c+dfunc=”各位数字之和s=” & sEnd Function二、选择结构程序 6.已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Functi
5、on func( )Dim a As Integer,x As Integera=178If a/2=Int(a/2) then x=0ELsex=_ End If func=xEnd Function7. 已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Function func( )Dim a As Integer,x As Integera=_If a/2=Int(a/2) then x=0ELsex=1 End If func=xEnd Function8. 已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为
6、1。Function func( )Dim a As Integer,x As Integer a=178If A MOD 2 0 then x=1ELsex=0_ func=xEnd Function9. 已知变量a的值为178，判断其奇偶性，是偶数则让变量x的值为0，是奇数则让变量x的值为1。Function func( )Dim a As Integer,x As Integer a=178If A/2=A2 _ x=1ELsex=0End If func=xEnd Function10. 购物计费：某商场为了促销而实行购物打折，在商场购物低于500元（包括500元）不打折，超过500元
7、的部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。a表示顾客的购物金额，x表示顾客应该实际付给商场的金额。请将程序缺失部分“_”补充完整，并将“_”字符删除，正确运行程序后，保存文件并退出VB。Function func( )Dim a As Single,x As Singlea=_If x=500 then x=aELsex=500+(a-500) * 0.8 End If func=”应付金额x=” & xEnd Function 11. 计算房租费，收费标准为：面积70平方米以下（包括70）按4元/平方米，超过70平方米的超过部分按6元/平方米计
8、算。m表示租房面积，n表示房租费。请将程序缺失部分“_”补充完整。Function func( )Dim m As Single,n As Singlem=128If m=70 then n=_ELsen=4 * 70+6 * (m-70) End Iffunc=”房租费n=” & nEnd Function12.雅西高速于2012年4月29日正式修成通车，假设该高速公路的收费标准是：在该高速路上行驶100公里以上（不包含100公里）的车辆0.4元/公里，否则0.5元/公里。下列程序的功能是计算车辆应该交纳的费用。X表示车辆在该高速路上行驶的公里数，y表示应收费用。 请将程序缺失部分“_”补充
9、完整。Function func( )Dim x As SingleDim y As SingleX=140If x 3 then y=0.9 * x * 4800ELsey=_ End Iffunc=”顾客应付的金额y=” & yEnd Function三、FOR 循环结构程序13.该程序的功能是求 S=5+10+15+.+100。请将程序缺失部分“_”补充完整Function func( )Dim i As Integer,s As Integer s=0 For i = 5 To 100 Step _ s=s + i Next ifunc=sEnd Function14. 2013年6月
10、，小张参加了一场考试，其中有一道题目是求S=1*2*3*4*5。小张编写出了如下的不完整程序。 请将程序缺失部分“_”补充完整，并将“_”字符删除，正确运行程序后，保存文件并退出VB。Function func( )Dim i As Integer,s As Integer s=_ For i = _ s=s * i Next ifunc=sEnd Function四、阅读下列程序，写出程序运行后的结果。1.Private Sub Command1_Click()A=Abs(-3)B=Sqr(9)C=Int(-9.5) D =Int(1.09)E=A3 F=E MOD 2S=A+B+C+D+E+FPrint S=;SEnd Sub运行结果：_2.Private Sub Command1_Click()A=3:b=4If ab then C=a-bELSE C=a+bEndifPrint “C=”;CEnd Sub运行结果：_3.Private Sub Command1_Click()S=0K=0For _ Step -4 S=S+i Next iPrint S=”；SEnd Sub运行结果：_
