经济学院2014020348王辉VBA综合设计实验报告.docVIP

深 圳 大 学 实 验 报 告 课程名称： 办公软件高级应用 实验项目名称： VBA综合设计 学院： 经济学院 专业： 指导教师： 丁慧 姓名： 王辉 学号： 2014020348 实验时间： 2015.6.21 实验报告提交时间： 2015.6.21 教务处制 一、实验目的与要求： 实验目的： （1）掌握Excel的高级应用技巧与VBA语句的使用，尤其是VBA编程能力。 （2）掌握项目设计的方法和能力。 （3）了解面向对象程序设计方法。 （4）培养良好的计算机应用开发习惯。 实验要求： 1．（必做）可对以下命题编写VBA程序来完成实验。 计算累加和，计算阶乘，学生成绩转换成等级制，求最大公约数，计算圆的周长和面积，闰年判断。 2．（选做）选做题可任选有能力的部分来完成。 素数判别，输出水仙花数，输出九九乘法表，数据排序，学生成绩管理（参看习题五12题）。 实验完成日期：2015年6月21日。 二、实验环境： 地点：D506机房，宿舍 硬件环境： 机器编号： 软件环境： 操作系统 三、实验步骤与过程：(每个项目的算法设计描述（可流程图描述）、VBA程序代码) 1.计算累加和 Private Sub ToggleButton1_Click() Call vba1 End Sub Sub vba1() Dim i, n, sum As Integer sum = 0 n = InputBox(输入n的值) For i = 1 To n sum = sum + i Next i MsgBox (1+2+...+ n = sum) End Sub 2.成绩转换 Private Sub ToggleButton3_Click() Dim i, score As Integer score = InputBox(输入学生百分制成绩) If score = 85 And score = 100 Then MsgBox (score 分的等级是A) ElseIf score = 75 And score = 84 Then MsgBox (score 分的等级是B) ElseIf score = 65 And score = 74 Then MsgBox (score 分的等级是C) ElseIf score = 60 And score = 64 Then MsgBox (score 分的等级是D) ElseIf score = 0 And score = 59 Then MsgBox (score 分的等级是F) Else MsgBox 输入错误,请输入0—100之间的数, vbOKOnly, 学生成绩转换 End If End Sub 3.圆周长面积 Private Sub ToggleButton5_Click() Dim r As Integer, s As Integer, c As Integer r = Val(InputBox(请输入半径的值, 计算圆周长和面积)) s = 3.1416 * r ^ 2 c = 2 * 3.1416 * r MsgBox 圆的面积： s vbLf 圆的周长： c, vbOKOnly, 计算圆的面积和周长 End Sub 4.计算阶乘 Function Fact(n As Integer) As Long Dim i As Integer, f As Long f = 1 For i = 1 To n f = f * i Next i Fact = f End Function Private Sub ToggleButton2_Click() Dim n As Integer n = Val(InputBox(请输入N：, 求阶乘)) MsgBox n 的阶乘数为： Fact(n), vbOKOnly, 求阶乘 End Sub 5.最大公约数 在