程序设计汇总

程序设计题目汇总
36、购物计费：某商场为了促销而实行购物打折，在商场购物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
答案：x = a
39、计算房租费，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
答案：Else
40、已知正方形的边长A是8，下列程序的功能是计算正方形的周长L。

请将程序缺失部分补充完整。

Function func()
Dim A As Single
Dim L As Single
A = 8
L = _________________
Func = "正方形的周长" & L
End Function
答案：4*A
37、判断奇偶性，如果是偶数让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
End Function
答案：1
38、从键盘输入圆的半径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
答案：R
40、计算旅客的行李费，收费标准为：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
答案：x <= 20
36、将a、b的值互换后输出
Function func()
Dim a As Single
Dim b As Single
Dim c As Single
a = 3
b = 4
_______________
a = b
b = t
func = "a=" & a & " b=" & b
End Function
答案：t = a
37、编写一元二次方程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
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
答案：x = (-b + Sqr(d)) / (2 * a)
37、该程序功能是求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
答案：s+i
36、该程序的功能是求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
答案：99
37、该程序功能是求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
答案：10
38、完成如下算法设计：
该程序功能是求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
答案：2
40、已知长宽高A、B、H，求长方体的体积V
Dim A As Single
Dim B As Single
Dim H As Single
Dim V As Single
A = 8
B = 7
H = 12
V = ____________________-
func = "长方体的体积V=" & V
答案：A*B*H
39、已知变量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 mo
d 10
d = x \ 1000
s = a + b + c + d
func = "各位数字之和s=" & s
End Function
答案：x\10 mod 10
40、变量R为半径，计算圆面积S（圆周率取3.14）
Dim R As Single
Dim S As Single
R = 5
S = _________________
答案：3.14*R^2或3.14*R*R。