VBA编程练习题

编程
1.已知正方体的棱长L,求正方体的表而积S与体积V。

程序代码如下：
Dim L As Single, s As Single, v As Single
L = Val(lnputBox("请输入棱长"))
s = 6 * L A2
v=L A3
Debug.Print "S=";S, "V=";V
2.输入长方体的长1、宽w和高h,求该长方体的体积v和表而积s并输出。

程序代码如下：
Dim L As Single, w As Single, h As Single, s As Single, v As Single
L = Val(lnputBox("请输入长方体的长"))
W = Val(lnputBox("请输入长方体的宽"))
H = Val(lnputBox("请输入长方体的高"))
V=L*W*H
S=2*(L*W+L*H+W*H)
Debug.Print,"V=";V ；'S=";S
3.已知圆的半径r,求任一园而积s
程序代码如下：
Dim r As Single, s As Single
r = Val(inputbox(请输入圆的半径))
s = 3.14159* r*r
Debug.Print "圆面积S=";S
4.“某特快专递”计费规左：当邮件重量小于等于100克时，邮资费为每克0.05元：当邮件重量超过100克时，其中100克，按每克0.05元计费，超过100克的重量，按每克0.02 元计费。

请编写一个“特快专递”计费程序。

程序代码如下：
Dim x As Single, y As Single
x = Val(inputbox(in 输入邮件重虽：))
If x <= 100 Then
y = x * 0.05
Else
y = 100 * 0.05 + (x -100) * 0.02
End If
Debug.Print"邮寄费二";y
5.“某种个人所得税”计税标准：当个人收入小于等于3500元时，免交个人所得税：当个人收入大于3500元时，超过3500元的部分应交个人所得税为5%：请编写一个“个人所得税”计税计费程序。

程序代码如下：
Dim x As Single, y As Single
x = Val(inputbox(iW 输入个人输入))
If x <= 3500 Then
y = 0
Else
y = (x- 3500) ♦ 0.05
End If
Debug.Print"应交税二";y
6.输入x的值，计算如下函数对应的y值。

In x + 1 x > 0
y =
e x - 1 x < 0
程序代码如下：
Dim x As Single, y As Single
X = Val(lnputBox("请输入变量的值”))
If x >0Then
y = Log(x) + 1
Else
y = Exp(x) -1
End If
,,y=M; y
Debug.Print ,,x=n; x
z
7.输入学生的一门课分数score (百分制)，并根据以下标准划分成绩等级:
当90£scoreW100时，输岀“优秀”：
当80^score<90时，输岀“良好I
当70^score<80时，输出“中等”;
当60^score<70时，输岀“及格I
0^score<60时，输出"不及格”
当score>100或score<0>输出"输入错误”
程序代码如下：
Dim score!, grade$
score = Val(lnputBox(H请输入变量的值"))
If score > 100 OR score <0 Then
grade = 入错误”
Elself score >= 90 Then
grade ="优秀"
Elself score >= 80 Then
grade= “ 良好“
Elself score >= 70 Then
grade = 11中等”
Elself score >= 60 Then
grade ="及格"
Else
grade = 11不及格"
End If
Debug.Print ,,score=,1; score, ,,grade=,1; grade
8•用For —Next 循环语句编写程序计算1+2+3+—+100的值。

程序代码如下：
Dim s As Long, i As Integer
s = 0
For i = l To 100
s = s + i
Next i
Debug.Print ,,l+2+3+•••+100=,,;s
9.求s=l+2+3+-+n,其中n 为正整数。

程序代码如下：
Dim s As Long, i As Integer, n As Integer n = Val(InputBox(n iij 输入一个正整数”)) s = 0 For i = 1 To n
s = s + i
Next i
Debug.Print"l+2+3+•••+n=";s
10•求100-999之间的水仙花数。

水仙花数是指一个n 位数（n$3 ）,它的每个位上的数字 的n 次幕之和等于它本身,如:153=1八3+5人3+3八3°
程序代码如下：
lfx A 3 + y A 3 + z A 3 = i Then
Debug.Print i,
End If
Next Dim i%, x%, y%, z%
For i = 100 To 999
x = i Mod 10
y = i \ 10 Mod 10
z = i \ 100
'求个位 味十位 '求百位。