原有Excel文件如下（其中第一行的A、B、C…及第一列的1、2、3分别为Excel文件上的列号和行号），补充以下程序实现下列要求。请从选项中选择合适的方法名、属性名、参数名填入程序空白中。
（1）在第一行前插入一个空行作为工作表的标题，在A1单元格中输入标题“保费收入情况表”； （2）将A2：D19按“地区”的递增排序
（3）设置工作簿打开密码（设置的密码让用户输入），并将文件另存于用户选择的文件路径中，并且设置只能保存为xlsm格式 （4）将A2:D21设置下边框
（5）自动标示保费收入前三名数据，使之高亮显示； （6）锁定工作表中所有包含公式的单元格。
Sub Ex6_1()
Cells(1, 1). （1） K. EntireRow.Insert Range( （2） P. \"A1\" ).Value = \"保费收入情况表\"
Range(\"A3:D19\").Sort key1:= R. range(\"A1\") （3） , order1:= （4 G. xlAscending
ThisWorkbook.password = （5） T.InputBox (\"请设置工作簿打开密码!\") fileSaveName = Application. （6）A．GetSaveAsFilename If fileSaveName <> （7）E. False Then ThisWorkbook.SaveAs Filename:=fileSaveName End If
Range(\"A3:D21\").Borders( （8） I.xlEdgeBottom ).LineStyle = xlContinuous ActiveSheet.Range(\"F4:F13\").FormatConditions. （9）M.AddTop10
ActiveSheet.Range(\"F4:F13\").FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With ActiveSheet.Range(\"F4:F13\"). （10） N. FormatConditions(1) .TopBottom = xlTop10Top .Rank = 3 .Percent = False End With
ActiveSheet.Range(\"F4:F13\").FormatConditions(1).Font.Color = RGB(255, 255, 255) ActiveSheet.Range(\"F4:F13\").FormatConditions(1).Interior.Color = RGB(0, 0, 255) End Sub
A．GetSaveAsFilename D. True
B. GetOpenFilename
E. False
C.xlInsideBottom
(filefilter:=\"Excel启用宏的工作簿(*.xlsm),*.xlsm\")
F. MsgBox
G. xlAscending J.xlContinuous M.AddTop10 P. \"A1\"
H. xlDescending
I.xlEdgeBottom L. EntireRows.Insert
K. EntireRow.Insert N. FormatConditions(1)
Q. 1,1 T.InputBox
O. FormatConditions
R. range(\"A1\")
S. range(\"A2\")
一、 程序改错（20%，10空）
原有Excel文件如下（其中第一行的A、B、C…及第一列的1、2、3分别为Excel文件上的列号和行号），请修改以下程序中的错误（用一对
/**/ /**/括起来的代码，准确说明原句中将„„改成„„，或在„„之后添加„„），使该程序实现以下要求：
（1） 实现在第11行为“成绩”工作表添加如下记录，其中后三条成绩记录由用户输入，输入时系统要能判断输入的成绩是否合法（0<=
成绩<=100）；
00010 陈果 19-8-9 78 81 75
（2） 计算“成绩”工作表中各学生的“平均分”，保留一位小数（在单元格中设置公式）；
（3） 在“英语”与“平均分”之间插入“评级”列，并对每个学生评级，85分以上为优秀，否则为合格（在单元格中设置公式）；
（4） 查找名为李洁的学生，输出其平均分，将整行高亮（填充色为红色）； （5） 将“成绩”工作区域（A1：H11）中数据复制到名为“筛选”的工作表中； （6） 锁定该工作薄中包含公式的单元格
Sub Ex1_1()
Cells(11, 1) = \"'00010\" Cells(11, 2) = \"陈果\" Cells(11, 3) = \"19-8-9\" For i = 4 To 6
Cells(11, i) = InputBox(\"请输入陈果的\" & Cells(1, i) & \"成绩\")
Next①/**/Private Sub Worksheet_SelectionChange(ByVal Target As Range)/**/ If Target.Column = 4 Or Target.Column = 5 Or Target.Column = 6 Then If Target.Value > 100 Or Target.Value < 0 Then Target.Select Target.Value = \"\" End If End If End Sub For i = 2 To 11
②/**/Cells(i, 7).Formula = \"=average(\" & Cells(i, 4).Address & \":\" & Cells(i, 6).Address /**/ Cells(i, 7).NumberFormat = \"0.0\" Next
③/**/Cells.Find(\"平均分\").EntireRow.Insert/**/ c = Cells.Find(\"平均分\").Column
④/**/Cells(1, c).Offset(0, 1).Value = \"评级\"/**/ For i = 2 To 11
⑤ /**/Cells(i, c - 1).Formula = \"=\" & Cells(i, c).Address & \">=85,\"\"优秀\"\合格\"\")\"/**/ Next
⑥/**/n = WorksheetFunction.Match(\"李洁\ ActiveSheet.Columns(2), =)/**/ ⑦/**/Rows(n).Font.Color = vbRed/**/
⑧/**/Range(\"A1:H11\").Copy Worksheets(筛选).Range(\"A1:H11\")/**/ Dim rng As Range ActiveSheet.Unprotect
⑨/**/ For Each Cells In ActiveSheet.UsedRange /**/ If rng.HasFormula Then ⑩ /**/ rng.Locked = False /**/ Else
Rng.locked=true End If Next
ActiveSheet.Protect End Sub End Sub
序号根据题目顺序，红色的地方是有错误的
1. selectionchange改成change 2.cells(i,6).address后添加 & “)”
3.entireRow.insert改成entirecolumn.insert
4.cells(1,c) 改成cells(1,c-1)或把Offset(0, 1)改成offset(0,-1) 5．= \"=\" 改成 =”=if(”
6.match(\"李洁\ ActiveSheet.Columns(2), =)改成match(\"李洁\ ActiveSheet.Columns(2), 0) 7、font改成 interior 8.筛选 改成 “筛选” 9.cells改成 Rng 10.true 改成false
二、 程序填空（16%，8空）
原有Excel文件如下（其中第一行的A、B、C…及第一列的1、2、3分别为Excel文件上的列号和行号），请填写以下程序空白处，使该程序
实现以下要求：
（1） 计算各股票的止损价，止损价=买入价*止损率，保留两位小数（在单元格中设置公式） （2） 将B1：D9，F1：F9中的数据复制到B12：E20区域中 （3） 在B12：E20中筛选2007年4月之前的记录 （4） 为止损价添加数据条，数据条颜色为蓝色
（5） 在工作簿打开时合并单元格A10:C10，在A10：C10中填入文件打开时间
Sub Ex1()
For i = 2 To 9
Cells(i, 7).Formula = “=E” & i & “*A2” 或”=” & cells(i,5).address & “*” & cells(2,1).address Cells(i, 7).NumberFormat = “0. 00 “ Next
Dim rng As Range
Set rng =_____Application.Union__________(Range(\"B1:D9\"), Range(\"F1:F9\")) rng.Copy Range(\"B12:E20\") Dim c1, c2 As Integer
c1 = Range(\"B12:E20\").____find______ (\"日期\").Column
Range(\"B12:E20\").AutoFilter Field:=____ c1-1____________, Criteria1:=\"<2007-4-1\" Columns(8). formatConditions.adddatabar Columns(8).FormatConditions(1).BarColor.Color = RGB(0, 0, 255) End Sub
Private Sub ________workbook_open__________()
Dim rng As Range Set rng = Range(\"A10:C10\") rng.______ merge________
rng.Value = \"文档打开的时间为:\" & Now End Sub
