VBA编程练习题分析和总结.docxVIP

编程题 已知正方体的棱长 L，求正方体的表面积S 与体积V。程序代码如下： Dim L As Single, s As Single, v As Single L = Val(InputBox(请输入棱长)) s = 6 * L ^ 2 v =L^3 Debug.Print S=;S, V=;V 输入长方体的长l、宽w 和高h，求该长方体的体积v 和表面积s 并输出。程序代码如下： Dim L As Single, w As Single, h As Single, s As Single, v As Single L = Val(InputBox(请输入长方体的长)) W = Val(InputBox(请输入长方体的宽)) H = Val(InputBox(请输入长方体的高)) V=L*W*H S=2*(L*W+L*H+W*H) Debug.Print,V=;V ,S=;S 已知圆的半径 r，求任一园面积s 程序代码如下： Dim r As Single, s As Single r = Val(inputbox(请输入圆的半径)) s = 3.14159 * r * r Debug.Print 圆面积 S=;S “某特快专递”计费规定：当邮件重量小于等于 100 克时，邮资费为每克 0.05 元；当邮 件重量超过 100 克时，其中 100 克，按每克 0.05 元计费，超过 100 克的重量，按每克 0.02 元计费。请编写一个“特快专递”计费程序。程序代码如下： Dim x As Single, y As Single x = Val(inputbox(请输入邮件重量)) If x = 100 Then y = x * 0.05 Else y = 100 * 0.05 + (x - 100) * 0.02 End If Debug.Print”邮寄费=”; y “某种个人所得税”计税标准：当个人收入小于等于 3500 元时，免交个人所得税；当个 人收入大于 3500 元时，超过 3500 元的部分应交个人所得税为 5%；请编写一个“个人所得税”计税计费程序。 程序代码如下： Dim x As Single, y As Single x = Val(inputbox(请输入个人输入)) If x = 3500 Then y = 0 Else y = (x - 3500) * 0.05 End If Debug.Print”应交税=”; y 输入x 的值，计算如下函数对应的y 值。 ?y ? ?ln x ? 1 x ? 0 ? ?e x ? 1 x ? 0 程序代码如下： Dim x As Single, y As Single x = Val(InputBox(请输入变量的值)) If x 0 Then y = Log(x) + 1 Else y = Exp(x) - 1 End If Debug.Print x=; x, y=; y 输入学生的一门课分数 score（百分制）,并根据以下标准划分成绩等级： 当 90≤score≤100 时，输出“优秀”； 当 80≤score＜90 时，输出“良好”； 当 70≤score＜80 时，输出“中等”；当 60≤score＜70 时，输出“及格”；当 0≤score＜60 时，输出“不及格” 当 score＞100 或 score＜0，输出“输入错误” 程序代码如下： Dim score!，grade$ score = Val(InputBox(请输入变量的值)) If score 100 OR score 0 Then grade = 输入错误 ElseIf score = 90 Then grade = 优秀 ElseIf score = 80 Then grade= 良好 ElseIf score = 70 Then grade = 中等 ElseIf score = 60 Then grade = 及格 Else End If  grade = 不及格 Debug.Print score=; score, grade=; grade 用 For…Next 循环语句编写程序计算 1+2+3+…+100 的值。程序代码如下： Dim s As Long, i As Integer s = 0 For i = 1 To 100 s = s + i Next i Debug.Print1+2+3+…+100=;s 求 s=1+2+3+…+n，其中 n 为正整数。程序代码如下： Dim s As Long, i As Integer , n As Integer n = Val(InputBox(请输入一个正整数)) s = 0 For i = 1 To