计算机文化二基础题
End Function
6．在如图5所示的工作表中，要求删除数量为空白的行。（5分） 参考答案：
Sub 删除数量为空白的行() 1分 Dim x As Long ?x表示行数
For x = 1 To Range(\
2分
If IsEmpty(Cells(x, 2)) Then
Cells(x, 2).EntireRow.Delete 2分 End If ?EntireRow表示单元格所在行 Next End Sub
四、编程填空题（共20分）
1．将Word中的表格行列互换，如图6所示。（10分） 参考答案：
①在Word文档中，选择要进行行列互换的表格或部分表格，单击“常用”工具栏上的“复制”按钮，将其复制。 1分
②打开Excel，单击“常用”工具栏上的“粘贴”按钮，将其复制到Excel工作表中。 1分
③选定上面已粘贴的表格数据，单击Excel中“常用”工具栏上的“复制”按钮。 分
④单击“编辑”菜单中的“选择性粘贴”命令，打开其对话框。 2分
⑤在“选择性粘贴”对话框中，点选“转置”选项，然后单击“确定”按钮，可将表格行列互换。2分
⑥最后，在Excel中选择行列互换的数据，复制后粘贴到Word文档中，进行适当的修饰后，可实现在Word中表格行列的互换。 2分
2．有如图7所示的Excel图表，将其插入到Word或PowerPoint文档中。写出其3种方法和简单步骤。（10分）
参考答案： ⑴复制与粘贴
复制Excel中的图表，然后在Word/PowerPoint插入点处按下Ctrl+V组合键，单击右下角的“粘贴选项”按钮，将Excel中的图表复制到该处。
⑵插入对象
2分
2
在Word/PowerPoint中，单击“插入”菜单中的“对象”命令，打开如图6-41所示的“对象”对话框。单击“由文件创建”选项卡，可插入指定路径下的已有的Excel工作簿。
勾选“链接到文件”/“链接”复选框，图表或者数据也将自动更新。 ⑶创建图表
4分
单击“插入”菜单中的“对象”命令，打开“对象”对话框。单击“新建”选项卡，可向文档中插入一个新的Excel图表对象。双击该对象，可编辑Excel对象中的数据或者图表形式。
31
4分
计算机文化二基础题
操作试题样式
在该文档中创建一个名为“insertb”的宏，其功能是插入一对书名符号，将该宏放到格式工具栏中剪刀左侧，并修名称为”book”。
按EXCEL样张，在Excel工作表中A35单元格中，添加一个“计算”按钮，单击该按钮，能打开一个窗体（如下图所示），实现输入计算三角形面积的功能。
32