VBA实验容答案.doc

VBA实验内容答案(ZUCC版) 第一次实验 l 掌握在EXCEL工作簿中录制“宏”和使用“宏” l 掌握在VBA环境中查看已录制“宏”并达到修改，从而增加“宏”的功能，了解单元格的内部格式（Interior.ColorIndex，Font.） l 在VBA环境中通过“宏”编写小程序 l 掌握自定义过程和函数在EXCEL中的应用 1．参照例1.1录制“宏”、使用“宏”、观察“宏”。运行以下程序： Sub 填充颜色() Dim k As Integer, c As String For k = 1 To 56 c = A k Range(c).Select Selection.Interior.ColorIndex = k Next k End Sub 注：与ColorIndex属性相关的对象有Border、Borders（四条边）、Font和Interior。 2．在A1：A10输入相同的字，如“ZUCC”，编写程序设置它们的字体大小，A1设置为10磅，以后每个加2磅。 Sub 改变字体大小() Dim k As Integer, c As String For k = 1 To 10 c = A k Range(c).Select With Selection.Font .Size = 10 + 2 * k End With Next k End Sub 3．编写“宏”用MsgBox和Debug.Print输出“我开始用VBA写程序了！” 4．参照文件VBA实验(1)中的例子，由任课教师指定两题，编写相应的程序。 5．建立好友信息表，编写程序由身份证号码确定好友的生日。 第二次实验 l 了解并掌握VBA的编程环境 l 初步认识VBAProject对象 l 掌握EXCEL的工作簿、工作表、单元格、区域。 l 掌握EXCEL的工作簿、工作表、单元格、区域的选中。 l 调用EXCEL函数，WorkSheetFunction（Min，Max，Average等） l 输入输出函数 1.调用VB的RND和INT函数，在A列的1—10行输入序号1—10，在B列的1—10行填入0—1之间的随机数，在C列的1—10行填入两位正整数，最后在C列的11行求出该列的最大数（调用EXCEL的内部MAX函数）。以上要求均用程序实现。 2.用Inputbox()函数输入10个数，放入单元格A1：A10，在C列输出其中超过平均数的数和个数。 3．编程序，打印九九乘法表如下。 Sub jiujiu() Dim i As Integer, j As Integer For i = 1 To 9 Cells(1, i + 1).Value = i Cells(i + 1, 1).Value = i Next i Rows(1).Font.Bold = True Rows(1).HorizontalAlignment = xlCenter Columns(1).Font.Bold = True Columns(1).HorizontalAlignment = xlCenter For i = 1 To 9 For j = i To 9 Cells(i + 1, j + 1).Value = i * j Next j Next i End Sub 4．随机产生10个6—100之间的偶数，对每个数进行哥德巴赫猜想（Goldbach Conjecture）验证。 Function IsPrime(ByVal n As Integer) As Boolean Dim k As Integer IsPrime = True For k = 2 To n - 1 If n Mod k = 0 Then IsPrime = False Exit For End If Next k End Function Sub Goldbach() Dim i As Integer, a As Integer, n As Integer On Error