VB操作题

四川高中程序操作（36分）专项模拟题

一、程序的顺序结构（1至8题中考一道题）

1、已知正方形的边长A是8，下列程序的功能是计算正方形的周长L。请将程序缺失部分补充完整。
Function func()
Dim A As Single
Dim L As Single
A = 8
L =_______________
Func = "正方形的周长" & L
End Function

2、变量R为半径，计算圆周长L（圆周率取3.14）
Dim R As Single
Dim L As Single
R = 5
L =_____________

3、从键盘输入圆的半径R，输出圆的周长L和面积S，补充完整下列程序段。
Dim R As Single, L As Single, S As Single
_______= InputBox("输入半径R")
L = 2 * 3.14 * R
S = 3.14 * R * R
Print "圆的周长是";L
Print "圆的半径是";S

4、 2012年6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为10，宽为3，高为5，求长方体的体积V，小李同学编写出了如下的不完整程序。
Dim A As Single
Dim B As Single
Dim H As Single
Dim V As Single
A = 10
B = 3
H = 5
V =___________
func = "长方体的体积V=" & V

5、2012年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为2011，变量b的值为2012，交换变量a、b的值。小李同学编写出了如下的不完整程序。
Function func()
Dim a As Single
Dim b As Single
Dim c As Single
a = 2011
b = 2012
_____________
a=b
b = t
func = "a=" & a & " b=" & b
End Function
6、2012年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为2011，变量b的值为2012，交换变量a、b的值。小李同学编写出了如下的不完整程序。
Function func()
Dim a As Single
Dim b As Single
Dim c As Single
a = 2011
b = 2012
t = a
_______________
b = t
func = "a=" & a & " b=" & b
End Function

7、2012年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为2011，变量b的值为2012，交换变量a、b的值。小李同学编写出了如下的不完整程序。
Function func()
Dim a As Single
Dim b As Single
Dim c As Single
a = 2011
b = 2012
t=a
a=b
_________
func = "a=" & a & " b=" & b
End Function

8、已知变量x的值是1987，下列程序的功能是求x的各位数字之和s，其中a是个位数字，b是十位数字，c是百位数字，d是千位数字，请将程序补充完整。
Function func()
Dim x As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim s As Integer
x = 1987
a = x Mod 10
b =______________
c = x \ 100 mod 10
d = x \ 1000
s = a + b + c + d
func = "各位数字之和s=" & s
End Function


二、程序的选择结构（9至20题中考一道题）

9、计算房租费

，70平方以下（包括70）每平方4元，如果超过70平方则超过部分每平方6元。程序中变量m为平方数，变量n为房租费。
Function func()
Dim m As Integer, n As Integer
m = 128
If m <= 70 Then
n = 4 * m
_________
n = 4 * 70 + 6 * (m – 70)
End If
func = "房租费n=" & n
End Function

10、购物计费：某商场为了促销而实行购物打折，在商场购物500元以上（不包括500元），超过部分实行八折优惠。已知某顾客购物按未打折计共花费了898元，编程计算顾客实际应付的金额。A表示顾客的购物金额，x表示顾客应该实际付给商场的金额。请将程序缺失部分补充完整。
Function func()
Dim a As Single, x As Single
a = 898
If a <= 500 Then
___________________
Else
x = 500 + ( a – 500) * 0.8
End If
func = "应付金额x=" & x
End Function
11、判断奇偶性，如果是偶数让x为0，如果是奇数让x为1
Function func()
Dim a As Integer, x As Integer
If a / 2 = Int( a / 2) Then
x = 0
Else
x =____________
End If
func = x
End Function

12、计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。补充完整下列程序段。
Dim X As Single, Y As Single
X = InputBox("输入行李重量")
If ________ Then
Y = 0
Else
Y = 20 * (X - 20)
End If
Print "行李费=";Y

13、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。
Function func()
Dim x As Single, y As Single
______= 8
If x > 5 Then
y=18 * x
else
y= 20 * x
End If
func = "应付金额y=" & y
End Function

14、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。
Function func()
Dim x As Single, y As Single
x = 8
If x > 5 then
___________
else
y= 20 * x
End If
func = "应付金额y=" & y
End Function
15、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元

/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。
Function func()
Dim x As Single, y As Single
x = 8
If x > 5 then
y=18*x
else
__________
End If
func = "应付金额y=" & y
End Function

16、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。
Function func()
Dim x As Single, y As Single
x = 8
If x> 5 _________
y=18 * x
else
y= 20 * x
End If
func = "应付金额y=" & y
End Function
17、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。
Function func()
Dim x As Single, y As Single
x = 8
If ___________ Then
y=18 * x
else
y= 20 * x
End If
func = "应付金额y=" & y
End Function


18、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。
Function func()
Dim x As Single, y As Single
x = 8
If x > 5 Then
y=18 * x
___________
y= 20 * x
End If
func = "应付金额y=" & y
End Function
19、2012年5月，四川省成都龙泉地区的枇杷取得了大丰收，当地农民为了促销，准备执行以下的销售策略：购买5公斤以上（不包含5公斤），单价为：18元/公斤；否则，单价为20元/公斤。小张同学想用VB语言编写一个程序计算购买X公斤枇杷的应付款y，结果小张同学只编写出了如下的不完整程序。请将程序缺失部分补充完整。
Function func()
Dim x As Single, y As Single
x = 8
If x> 5 then
y=18*x
else
y=20*x
____________
func = "应付金额y=" & y
End Function

20、编写一元二次方程X^2+3X+2=0的求解程序，要求能够判断方程是否有根，

如果没有根则给出相应的提示信息。请将下列程序补充完整。
Function func()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim x1 As Single
Dim x2 As Single
a = 1
b = 3
c = 2
d = b * b - 4 * a * c
if d>=0 Then
x1 =_______________
x2 = (-b - Sqr(d)) / (2 * a)
func = "x1="&x1&" x2="&x2
Else
func = "无实根"
End If
End Function

三、程序的特循环结构（21至27题中考一道题）
21、该程序的功能是求S=1+3+5+……+99。请将程序缺失部分补充完整。
Function func()
Dim i As Integer, s As Integer
s = 0
For i = 1 To _______ Step 2
s = s + i
Next i
func = s
End Function

22、完成如下算法设计：
该程序功能是求S=2+4+6+……+100。
Function func()
Dim I As Integer, s As Integer
s = 0
For i = 2 to 100 Step _______
s = s + i
Next i
Func = s
End Function

23、该程序功能是求S=10+20+30+……+100，请将空格补完整实现前述功能。
Function func()
Dim i As Integer, s As Integer
s = 0
For i= 10 To 100 Step ______
s = s + i
Next i
func = s
End Function

24、该程序功能是求S=10+20+30+……+100，请将空格补完整实现前述功能。
Function func()
Dim I As Integer, s As Integer
s = 0
For i= 10 To 100 Step 10
s =_____________
Next I
func = s
End Function

25、2012年6月，小张同学参加了一场模拟考试，其中有一道题目是求S=1*2*3*......*7。小张同学编写出了如下的不完整程序。请将空格补完整实现前述功能。
Function func()
Dim I As Integer, s As Integer
s =__________
For i= 1 To 7
s = s * i
Next I
func = "s=" & s
End Function

26、2012年6月，小张同学参加了一场模拟考试，其中有一道题目是求S=1*2*3*......*7。小张同学编写出了如下的不完整程序。请将空格补完整实现前述功能。
Function func()
Dim I As Integer, s As Intege
s =1
For i= 1 To 7
s =____________
Next I
func = "s=" & s
End Function

27、2012年6月，小张同学参加了一场模拟考试，其中有一道题目是求S=1*2*3*......*7。小张同学编写出了如下的不完整程序。请将空格补完整实现前述功能。
Function func()
Dim I As Integer, s As Intege
s =1
For i= 1 To _________
s = s * I
Next I
func = "s=" & s
End Function

答案：
一、1、4*A 2、2*3.14*R 3、R 4、A*B*H 5、t=a 6、a=b 7、b=t 8、X\10 MOD 10
二、9、ELSE 10、X=A 11、1 12、X<=20 13、X 14、Y=18*X 15、Y=20*X 16、THEN 17、X>5 18、ELSE 19、END IF 20、(-b + Sqr(d)) / (2 * a)
三、21、99 22、2 23、10 24、S+I 25、1 26、S*I 27、7