当前位置：文档库 › 《财务模型与EXCEL》试卷 B

《财务模型与EXCEL》试卷 B

印制份数出卷教师张建会计学院院（系）部 A 卷财务模型与EXCEL （6105603）共 3 页第1页

附白纸 1 页

河南牧业经济学院 2017 — 2018 学年第 2 学期期终考试

《财务模型与EXCEL 》试卷（B ）

【适用班级：17会升1、3、4，财升3，投升1】

注意事项：1、请在试卷的标封处填写班级、姓名和学号。

2、该课程考试为闭卷考试，考试时间90分钟。

3、综合类考题答案位置不够，可写在所附的白纸上。

合分人：复查人：

一、判断题：（每题 2分，共 20分）在每道题目的后面括

号内，正确写“对” ，错误写“错” 。

1、录制的“宏”的程序代码保存在模块的代码窗口里。（）

2、range(“A2:B5”).range(“A2”)所描述的单元格是当前工作表的A2单元格。（）

3、工作表sheet1只可以有一个Worksheet_SelectionChange 事件过程。（）

4、当“宏”的安全性设置为高的时候自定义函数将不可用。（）

5、立即窗口里的代码可以放在SUB ……END SUB 结构中执行。（）

6、当application 对象的enableevents 属性的值为false 时，EXCEL 将关闭对事件的监视。

（）

7、VBA 既可以在EXCEL 中使用，也可以在WORD 中使用。（） 8、参数在带名称时，顺序可以不固定。（） 9、可以使用cells.add 来增加一个单元格。（

） 10、调试代码时逐语句执行可以按快捷键F5。（）

二、选择题：（每题 3分，共 30分）每小题列出的四个选

项中有一个或多个选项是符合题目要求的，请将正确选项前的字母写在括号内。

1、可以描述单元格B8的有（）

A ．range(”B8”)

B ．cells(8,2)

C ．cells(8,”B ”)

D ．cells(8,1).offset(0,2) 2、EXCEL 中运行“宏”的方法不包括（） A ．自定义工具按钮 B ．自定义菜单项 C ．资源管理器 D ．窗体控件

3、使用Range 对象的clear 方法可以清除（） A ．内容 B ．格式 C ．批注 D ．字体颜色

4、以下表述的是D 列所有单元格的是（） A ．columns("D") B ．columns(4)

C ．range(“D1”,”D65536”)

D ．range("C1").Offset(,1).resize(65536,1) 5、以下是单一对象的有（）

A ．range(“B3”)

B ．cells(3,2)

C ．worksheets

D ．workbooks(“资产负债表.xls ”) 6、可以将当前工作表的每个单元格都写入1的语句有（） A ．rows.Value=1 B ．columns.Value=1 C ．cells.V alue=1 D ．activesheet.Value=1 7、以下属于对象的“方法”的有（） A ．address B ．DisplayAlerts C ．add D ．name

8、循环For n=1 to worksheets.count ……next 循环的次数是（） A

．工作表的个数 B ．工作表的个数+图表工作表的个数 C ．3次 D ．无数次

9、Range(“C3”).currentregion.select 和选中“C3”后执行以下快捷键相同（） A ．Alt+F8 B ．Ctrl+↓ C

．Ctrl+* D ．Ctrl+c

10、假设在当前工作表中的A列只有“A5”和“A6”里有值，其他均为空，则range(“A65536”).end(Xlup).select将选中单元格（）

A．A5 B．A6

C．A65536 D．A1

三、程序阅读题：（每题 5 分，共 25 分）在横线上写出

其上一行语句的含义。

程序一：

Sub 删除重复行()

r = ActiveCell.Row + 1

c = ActiveCell.Column

Do While Cells(r, c).Value <> ""

'①________________________________________________________________________ n = r + 1

Do While Cells(n, c).Value <> ""

If Cells(r, c).Value = Cells(n, c).Value Then

'②________________________________________________________________________

Cells(n, c).EntireRow.Delete

n = n – 1

'③_____________________________________________________________

End If

n = n + 1

Loop

r = r + 1

Loop

MsgBox "重复行已经被删除"

End Sub

'程序二：

Sub 找号码()

末行= Range("a65536").End(xlUp).Row

For n = 2 To 末行

末列= Cells(n, 4).End(xlToRight).Column

For m = 4 To 末列

If Len(Cells(n, m)) = 11 And Left(Cells(n, m), 1) = "1" Then

'④_____________________________________________________________

Cells(n, 3) = Cells(n, m)

'⑤_____________________________________________________________

Exit For

End If

End Sub

四、程序编写题：（每题 10 分，共 10分）

Sheet1工作表的A列从上向下依次为数字1、2、3、4、……，要求编写程序，能够把A列同行单元格和其紧邻下方单元格的平均数放在B列同行单元格，如B1里是1.5，B2里是2.5，B3里是3.5，……。

印制份数出卷教师张建会计学院院（系）部 A卷财务模型与EXCEL（6105603）共 3 页第2页

五、问答题：（每题 15 分，共 15分）

在EXCEL的基础上学习使用 VBA 为什么更加适合财务人员？

印制份数出卷教师张建会计学院院（系）部 A卷财务模型与EXCEL（6105603）共 3 页第3页