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

一、顺序结构程序

1.启动VB，打开工程文件“c:\MyExam\VB91.vbp”，完成如下算法设计: [12 分]

2013年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. 2013年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元的部分实行八折优惠。已