VBA编程练习题
- 格式：docx
- 大小：10.55 KB
- 文档页数：4
编程
1. 已知正方体的棱长L,求正方体的表而积S与体积V。
程序代码如下：
Dim L As Single, s As Single, v As Single
L = Val(lnputBox("请输入棱长"))
s = 6 * LA2
v=LA3
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 =
ex - 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
Debug.Print ,,x=n; xz ,,y=M; y
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(niij 输入一个正整数”)) 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°
程序代码如下：
lfxA3 + yA3 + zA3 = 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 '求个位
味十位
'求百位
