“vba开发与应用”期末试卷。
一、填空题（每题3分共30分）
1. 以office作为开发平台，可以直接利用office本身功能，不必专门开发_打印_、_文件处理_、_格式化、文本编辑_等模块。
2. vba中对象或控件的“事件”有_ open_、close、_clicked _、selectchanged _、modified、activate、closequery、resize、timer、getfocus、lostfocus等。
3. vba编程中涉及的对象有_窗口_、_菜单_、_用户对象_等。
4. 定义用户窗体：
选择“工具|宏|visual basic编辑器”菜单或用_alt+f11_快捷键，打开vba编辑器。
②在vba编辑器中选择工具栏上的_插入用户窗体_按钮或者在“插入”菜单选_用户窗体__项。
5. 调试vba程序，可以用_单步__、设置断点_、_stop语句_等方法。
6. 录制一个宏，如下步骤：
①在_工具|宏__菜单中选“录制新宏”项。
②在“录制新宏”对话框中输入宏名，单击“确定”按钮。此时，屏幕上显示出_停止录制__工具栏。
进行需要的操作。
单击_ 停止录制工具栏按钮，结束宏录制过程。
7. 在excel中自定义一个工具栏，并将宏指定给工具栏中的一个按钮：
选择_工具|自定义__菜单，显示“自定义”对话框。
②在“命令”卡中，从“类别”列表框中选择“宏”，从“命令”列表框中将“自定义按钮”_拖动_到工具栏上。
③右击该按钮，选择_指定宏__，显示“指定宏”对话框。
④选择需要的宏名并单击“确定”按钮。
⑤单击“关闭”按钮，关闭“自定义”对话框。
8. 对象有_封装__性、__继承_性、_多态__性。
9. 编一个vba程序，在word当前文档中按顺序输入26个英文字母。可以用录制宏、_输入a__、编辑宏__、改为循环程序_的步骤完成。
10. 希望**在工作簿打开的时候运行，可以选择工作簿workbook的__open_事件。希望**在工作簿关闭之前运行，可以将**写在workbook的_beforeclose_事件里。
workbook的_sheetactivate_事件在工作簿的当前工作表改变时产生。
二、分析题（每题4分共40分）
1. 给下面程序段加注释，并说明总体功能。
dyg = a10”
range(dyg).select
清除内容__
= 2 ‘_清除颜色___
dyg = c8”
range(dyg).select
= 1添加内容__
总体功能：_颜色块移动__
2. sub ts(mark, x_color)
unit:=wdstory '_到文件头_
= mark指定要查找的字符。
fd = 进行查找__
do while fd
unit:=wdline, extend:=wdextend '选中当前行。
= x_color '设置背景颜色。
unit:=wdcharacter, count:=1 '_右移一个字符_
fd = 继续查找。
loopend sub
以上程序的总体功能是：_将带有标记mark的行置成背景颜色x_color__
3. '以下两行语句的功能是：__关闭“常用”、“格式”工具栏__
"standard").visible = false
"formatting").visible = false
'下面一行语句的的功能是：_建立“系统功能”工具栏__
set tbar = 系统功能")
'以下程序段的功能是：__在工具栏上添加“诊断”命令按钮___
set butt1 =
with butt1
.caption = 诊断"
.style = msobuttoncaption
.onaction = zd" '这行语句的作用是：__指定要执行的过程zd___
end with
4. sub 查找同题()
tt = 将选中的内容送变量_
with .text = tt指定要查找的内容_
.forward = true
.wrap = wdfindcontinue
.matchcase = false不区分大小写__
.matchwholeword = false
end with
进行查找___
end sub
5. function xdx(xxje as string)
sl = 零壹贰叁肆伍陆柒捌玖"
je = 分角元拾佰仟万拾佰仟亿"
m = replace(trim(xxje去掉小数点__
n = len(m字符串长度。
j = n: dxje置初值。
for i = 1 to n
w = val(mid(m, i, 1取出一位数值_
if w > 0 then
dxje = dxje + mid(sl, w + 1, 1数值__
dxje = dxje + mid(je, j, 1单位。
elseif w = 0 then
if mid(je, j, 1) =万" then
dxje = dxje + mid(je, j, 1万位必保。
elseif mid(je, j, 1) =元" then
if len(m) =3 then
dxje = dxje + 零元前零。
end if
dxje = dxje + 元元位必保。
if val(mid(m, i + 1, 1)) 0 and len(m) >3 then
dxje = dxje + mid(sl, w + 1, 1) '元后零。
end if
elseif val(mid(m, i + 1, 1)) 0 then '有效零。
dxje = dxje + mid(sl, w + 1, 1)
elseif val(mid(m, i)) 0 then后继全零。
if j >=7 then dxje = dxje + 万"
if j >=3 then dxje = dxje + 元"
dxje = dxje + 整"
exit for
end if
end if
j = j - 1
nextxdx = dxje '返回值。
end function
'函数的总体功能是：__小写金额转换为大写金额___
6. windows("dctktt").activate激活文档___
fnd = 执行查找。
’以下三行语句的功能是：_选中若干字符直至遇到标记__
dounit:=wdcharacter, count:=1, extend:=wdextend
loop until right( 1) =or right( 1) =#
作文参考题目
1.话题 生活需要什么。阅读下面材料，按要求作文。有人说，生活需要柴米油盐 有人说，人不是单靠吃米活着 有人说，生活需要清风明月碧水蓝天 有人说，生活需要安定的社会环境 有人说生活需要人与人之间美好的情感 的确，生活是丰富多彩的，生活需要的还有许多许多。那么，你认为生活需要什么？请以 生活需要为题，...
作文参考题目
1.should universities lower admission requirements for celebrities?1 近年来很多名牌大学都会降低标准招收名人学生，一些人强烈反对这样做。2 但也有不少人认为这很正常。3 你对此的看法是 为什么？2.building a harmon...
征文参考题目
一 总则。论律师队伍建设的意义。律师队伍建设目标初探。律师队伍建设方向刍议。律师队伍建设原则研究。简析律师队伍建设的任务。二 律师队伍思想政治建设。论全面深化改革和平安中国 法治中国建设对律师队伍建设提出的新要求。创新律师队伍思想政治建设的几点思考。坚持律师队伍思想政治素质与业务素质 职业道德素质一...