编写代码
（1）在Excel中打开成绩表。
（2）按快捷键“Alt+F11”进入VBE开发环境。
（3）单击“插入/模块”命令向工程中插入一个模块，并编写以下VBA代码：
Sub 评定等级()
Dim i As Integer
For i = 3 To 11
t = Sheets(1).Cells(i, 2).Value '取得成绩
If t >= 90 Then
j = "A"
ElseIf t >= 80 Then
j = "B"
ElseIf t >= 70 Then
j = "C"
ElseIf t >= 60 Then
j = "D"
Else
j = "E"
End If
Sheets(1).Cells(i, 3) = j
Next
End Sub
（4）返回Excel操作界面，在成绩表旁边增加一个按钮，并指定执行宏“评定等级”。
（5）单击“评定等级”按钮，即可在成绩表的C列显示出各成绩对应的等级，如图3-17所示。

---

九九乘法表（Print方法的应用）
编写代码
（1）在VBE中，单击菜单“插入/模块”命令插入一个模块。
（2）在模块中输入以下代码：
Sub 乘法表()
Dim i As Integer
Dim j As Integer
For i = 1 To 9
For j = 1 To i
s = i & "×" & j & "=" & i * j
Sheets("sheet1").Cells(i, j) = s
Next j
Next i
End Sub

（3）按功能键“F5”运行子过程，在“立即窗口”输出九九乘法表

---

突出显示不及格学生
编写代码
（1）打开“学生成绩表”。
（2）按快捷键“Alt+F11”进入VBE环境。
（3）单击菜单“插入/模块”命令向工程中插入一个模块，并编写以下代码：
Sub 显示不及格学生()
Dim i As Integer
For i = 3 To 11
If Sheets(1).Cells(i, 2).Value < 60 Then
Sheets(1).Cells(i, 2).Select
Selection.Font.FontStyle = "加粗"
Selection.Font.ColorIndex = 3
End If
Next
End Sub
（4）各科所用学生，不同颜色展示
Sub 显示不及格学生自定义()
Dim i, j As Integer
For i = 2 To 34
For j = 2 To 5
If Sheets(1).Cells(i, j).Value < 60 Then
Sheets(1).Cells(i, j).Select
Selection.Font.FontStyle = "加粗"
Selection.Font.ColorIndex = j + 2
End If
Next
Next
End Sub
（5）该功能实现了，从第2行到第34行，从第2列到第5列的数据检索