VBA实验内容.docVIP

第一次实验 掌握在EXCEL工作簿中录制宏和使用宏 掌握在VBA环境中查看已录制宏并达到修改，从而增加宏的功能，了解单元格的内部格式（Interior.ColorIndex，Font.） 在VBA环境中通过宏编写小程序 掌握自定义过程和函数在EXCEL中的应用 1．参照例1.1录制宏、使用宏、观察宏。运行以下程序： Sub 填充颜色() Dim k As Integer, c As String For k = 1 To 5 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．建立好友信息表，编写程序由身份证号码确定好友的生日。 第二次实验 了解并掌握VBA的编程环境 初步认识VBAProject对象 掌握EXCEL的工作簿、工作表、单元格、区域。 掌握EXCEL的工作簿、工作表、单元格、区域的选中。 调用EXCEL函数，WorkSheetFunction（Min，Max，Average等） 输入输出函数 —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 Resume Next Worksheets(1).Activate Randomize For i = 1 To 10 Cells(i + 1, 1) = (Int(Rnd * 48) + 3) * 2 Next i For i = 1 To 10 n =