.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磅。 提示：先只在A1中输入“ZUCC”，再设字体大小，其它的单元格不用设，然后停止录制。再研究并修改代码，加上循环，把它延伸到其它单元格上。 3．编写过程：用MsgBox输出“我开始用VBA写程序了！”；用Debug.Print输出application对象的caption和username属性。 4．参照文件VBA实验(1)中的例子，编写EXCEL自定义函数。 第二次实验 了解并掌握VBA的编程环境 初步认识VBAProject对象 掌握EXCEL的工作簿、工作表、单元格、区域。 掌握EXCEL的工作簿、工作表、单元格、区域的选中。 调用EXCEL函数，WorkSheetFunction（Min，Max，Average等） 输入输出函数 —10行输入序号1—10，在B列的1—10行填入0—1之间的随机数，在C列的1—10行填入两位正整数，最后在C列的11行求出该列的最大数（不能调用MAX函数）。以上要求均用程序实现。 2.用Application.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 = 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 = ________ For k = 2 To n - 1 If n Mod k = 0 Then IsPrime = _________ 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).value = (Int(Rnd * 48) + 3) * 2 Next i For i=1 to 10 ’填写下面代码，把Cells(i + 1, 1)分解成两个素数： Next i On Error GoTo 0 End Sub 5．参照文件VBA实验(2)中的例子，编写相应的程序。 第三次实验 掌握EXCEL的窗体控件和控件工具箱