高中信息技术学业水平考试VB程序复习题
一、顺序结构程序
1.启动VB，打开工程文件“c:\MyExam\VB91.vbp”，完成如下算法设计: [12 分]
6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为8，宽为5，高为23，求长方体的体积V，小李同学编写出了如下的不完整程序。??请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。
Function func( )
Dim 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)。请将程序缺失部分“___”补充完整。
Function func( )
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)，小李同学编写出了如下的不完整程序。??请将程序缺失部分“___”补充完整。
Function func( )
Dim r As Single
Dim s As Single
r=3
s=________
func=”圆的面积s=” & s
End Function
4. 6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为1，变量b的值为2，交换变量a、b的值。小李同学编写出了如下的不完整程序。??请将程序缺失部分“___”补充完整。
Function func( )
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的值是4698，下列程序的功能是求x的各位数字之和s，其中a存放的是千位数字，b存放的是百位数字，c存放的是十位数字，d存放的是个位数字。请将程序缺失部分“___”补充完整。
Function func( )
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。
Function func( )
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。
Function func( )
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。
Function func( )
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。
Function func( )
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元的部分实行八折优惠。已
