文档介绍：深圳大学实验报告
课程名称：办公软件高级应用
实验项目名称： VBA综合设计
学院
专业
指导教师
姓名：尹伟明学号
实验时间：2014年6月6日-6月26日
实验报告提交时间： 2014年6月26日前
教务处制
一、实验目的与要求：
实验目的：
掌握Excel的高级应用技巧与VBA语句的使用，尤其是VBA编程能力。
掌握项目设计的方法和能力。
了解面向对象程序设计方法。
培养良好的计算机应用开发****惯。
实验要求：
(必做)可对以下命题编写VBA程序来完成实验。
计算累加和，计算阶乘，学生成绩转换成等级制，求最大公约数，计算圆的周长和面积，闰年判断。
(选做)
素数判别，输出水仙花数，输出九九乘法表，数据排序，学生成绩管理(参看****题五12题)。
注：选做题可任选有能力的部分来完成。
3 •完成实验报告三，四，五中的内容。
：2014年6月6日一2014年6月26日。
交实验报告打印稿：2014年6月26日前。
二、实验环境：
地点：D506机房
硬件环境：
机器编号：软件环境：操作系统
三、实验步骤与过程：（每个项目的算法设计描述（可流程图描述）、VBA程序代码）
首先点击“视图”中的“宏”,
VBA综合设计
・M«
第一部分——“计算累加和”
我是从最上面的“计算累加和”开始做，即从下图处开始。
VUX X V MUX
End Sub
Sub vbal()
Dim i, n, sum As Integer
sum = 0
n = InputBox(* 输入 n 的值")
'计算累加和赋给sum
I
MsgBox ("1+2+...+" & n & & sum)
End Sub
Public Function vba2()
按照书本输入相关代码(即下图选中部分)。
乜na bUD
Sub vbal ()
Dim I, N, sum As Integer
sum = 0
N = Vai (InputBox(*输入N的值:"累加和:")) sum = 0
For I = 1 To N
sum = sum + I
Next I
'计算累加和赋给sum
MsgBox "1+2+3+.& N & *=* & sum, vbOKOnly,"累加和" End Sub
第一部分一“计算累加和”即完成。
第二部分——“计算阶乘”
现在开始做“计算阶乘”，即从下图处开始。
Public Function vba2() '计算n的阶乘
End Function
按照书本输入相关代码(即下图选中部分)。
Public Function vba2()
Dim % i, n As Integer
n = InputBox (* 输入 n 釣僧")
m = 1
For i = 1 To n
m = m * i
'计算n的阶乘
Next i
MsgBox (n & "的阶乘是"& m)
End Function
Private