1、浙江大学城市学院实验报告课程名称 VB 程序设计基础与实验 实验项目名称 实验十四、VBA 程序设计 1 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求掌握 VBA 中 Excel 函数的调用；工作簿、工作表等常用对象的使用；单元格的表示及各种属性的设置。二. 实验内容和原理【练习 14-1】调用 EXCEL 的 RAND 和 INT 内部函数，在 A 列的 110 行输入序号 110，在 B 列的 110 行填入 01 之间的随机数，在 C 列的 110 行填入两位正整数，最后在 C 列的 11 行求出该列的最大数（不能调用 MAX 函数） 。以上要求均用
2、程序实现。Sub V13_1()Dim k As IntegerDim a As String, b As String, c As StringFor k = 1 To 10a = “A“ & kb = “B“ & kc = “C“ & kRange(a).Value = kRange(b).Value = Rnd()Range(c).Value = Int(Rnd() * 90) + 10Next kSet myR = Worksheets(“Sheet1“).Range(“C1:C10“)Cells(11, 3) = WorksheetFunction.max(myR)End Sub【练
3、习 14-2】用 Application.Inputbox()函数输入 10 个数，放入单元格A1： A10，在 C 列输出其中超过平均数的数和个数。Sub ave()Dim k As Integer, s(10) As Integer, sum As IntegerDim a As String, c As StringDim aver As SingleFor k = 1 To 10s(k) = InputBox(“)sum = sum + s(k)a = “A“ & kRange(a).Value = s(k)Next kaver = sum / 10n = 1For k = 1 To
4、10If s(k) aver Thenc = “C“ & nRange(c).Value = s(k)n = n + 1End IfNext kRange(“C11“).Value = n - 1End Sub【练习 14-3】参见下图中的学生成绩表，遍历 5 门课的所有成绩，凡是低于 60 分的，用红色显示（不用条件格式，要用程序实现） 。练习 14-3 界面Private Sub Cond_Format()Dim i as Long, j as LongFor i = 1 to Sheet1.UsedRange.Rows.CountFor j = 5 to 9 If Cells(i,j).Value 60 Then _Cells(i,j).Font.Color = RGB(255, 0, 0)Next jNext iEnd Sub【练习 14-4】编程序，在工作表上打印九九乘法表如下。练习 14-4 界面Sub tab99()Dim i As Integer, j As IntegerFor i = 1 To 9Cells(1, i + 1) = iCells(i + 1, 1) = iNext iFor i = 1 To 9For j = i To 9Cells(i + 1, j + 1) = i * jNext jNext iEnd Sub三. 讨论、心得（必须做）
