《VBA开发与应用试题培训讲学》由会员分享，可在线阅读，更多相关《VBA开发与应用试题培训讲学（43页珍藏版）》请在金锄头文库上搜索。
1、VBA开发与应用试题精品文档VBA开发与应用试题库题型说明各章内容符号名称章号内容章号内容章号内容A简答题01VBA基础072007.11增13B02VBA应用082009.06增14C填空题032005.5增0915D分析题042005.12增1016E05BD03学生1117F编程题062007.06增1218备注：0001 01C1VBA和VB的主要区别：VB用于创建标准的应用程序，VBA是使已有的应用程序(Office)_。VB具有自己的开发环境，VBA_已有的应用程序(Office)。VB开发出的应用程序可以是可执行文件(*.EXE)，VBA开发的程序必须_它的“父”应用程序(Off
2、ice)。0001自动化,寄生于,依赖于0002 01C1以Office作为开发平台，可以直接利用Office本身功能，不必专门开发_、_、_等模块。0002打印、文件处理、格式化、文本编辑、文件的打开、保存、复制0003 01C1发布用VBA开发的软件，需要发布含有_的文档，目标机器有_环境，并且宏的安全级别设置为_。0003VBA代码、Office、低或中0004 01C2利用Office的宏录制可以实现部分程序设计_，提高软件开发的_，还可以_。0004 自动化，效率，获得函数、语句和方法0005 01C2录制一个宏，如下步骤：在_菜单中选“录制新宏”项。在“录制新宏”对话框中输入宏名，
3、单击“确定”按钮。此时，屏幕上显示出_工具栏。进行需要的操作。单击_工具栏按钮，结束宏录制过程。0005 工具|宏, 停止录制, 停止录制0006 01C3编辑宏：选择_菜单，在_对话框的选择列表中，选择需要的宏，单击_按钮。0006 工具|宏|宏, 宏,编辑0007 01C2执行宏：选择_菜单，在_对话框的选择列表中，选择需要的宏，单击_按钮。0007 工具|宏|宏，宏，执行0008 01C3在Excel中自定义一个工具栏，并将宏指定给工具栏中的一个按钮：选择_菜单，显示“自定义”对话框。在“命令”卡中，从“类别”列表框中选择“宏”，从“命令”列表框中将“自定义按钮”_到工具栏上。右击该按钮
4、，选择_，显示“指定宏”对话框。选择需要的宏名并单击“确定”按钮。单击“关闭”按钮，关闭“自定义”对话框。0008 工具|自定义, 拖动,指定宏0009 01C3定义用户窗体：选择“工具|宏|Visual Basic编辑器”菜单或用_快捷键，打开VBA编辑器。在VBA编辑器中选择工具栏上的_按钮或者在“插入”菜单选_项。0009 Alt+F11 ，插入用户窗体, 用户窗体0010 01C2调试VBA程序，可以用_、_、_等方法。0010 单步、设置断点、stop语句0011 01C1VBA编程中涉及的对象有_、_、_等。0011 窗口、菜单、用户对象0012 01C3对象有_性、_性、_性。0
5、012封装、继承、多态0013 01C1EXCEL的“窗体”工具栏控件有标签、分组框、_、_、选项按钮、_、组合框、滚动条、直滚动条、微调控件等。0013按钮、复选框、列表框0014 01C1VBA中对象或控件的“事件”有_、close、_、_、modified、activate、closequery、resize、timer、getfocus、lostfocus等。0014Open、clicked、selectchanged0015 05C2编一个VBA程序，在Word当前文档中按顺序输入26个英文字母。可以用录制宏、_、_、_的步骤完成。0015输入任意字母、编辑宏、改为循环程序0016
6、02D2以下两行语句的功能是：_ Application.CommandBars(Standard).Visible = False Application.CommandBars(Formatting).Visible = False 下面一行语句的的功能是：_ Set tbar = Application.CommandBars.Add(Name:=系统功能) 以下程序段的功能是：_ Set butt1 = tbar.Controls.Add(Type:=msoControlButton) With butt1 .Caption = 诊断 .Style = msoButtonCaption
7、 .OnAction = zd 这行语句的作用是：_ End With0016关闭“常用”、“格式”工具栏建立“系统功能”工具栏在工具栏上添加“诊断”命令按钮指定要执行的过程zd0017 02D2当Excel工作簿的_时，执行以下代码段Private Sub Worksheet_Change(ByVal Target As Range) addr = Target.Address 求当前单元格地址 col_letter = Mid(addr, 2, 1) 求地址中_ row_no = Trim(Str(Val(Mid(addr, 4) 求地址中_ If col_letter = B Or co
8、l_letter = D Or col_letter = F Then 如果是B、D、F列 If row_no = 15 And row_no = 21 Then 并且是15至21行 s_ge = col_letter & Trim(row_no) s_val = Range(s_ge).Value _ If s_val = 1 Then Range(s_ge).Value = 修改单元格内容（1改为） End If End If End IfEnd Sub0017任意一个单元格内容改变,列标,行号,得到单元格内容0018 02D2给下面的程序段添加注释。Sub test() nm = Hex
9、(Asc(Selection.Text) 内码（四位十六进制形式） nm_h = &H & Left(nm, 2) _ nm_l = &H & Right(nm, 2) _ qm = nm_h - 176 + 16 得到区码 wm = nm_l - 161 + 1 得到位码 wm = IIf(wm fg Then fg = f 当前最高分 lg = p 最高分位置（列号） End If If f fd Then fd = f 当前低高分 ld = p 最低分位置（列号） End If Next 以下三行语句的功能是：_ dyg = Chr(Asc(A) + lg) & Trim(Str(h) Range(dyg).Select Selection.Interior.ColorIndex = 43 以下三行语句的功能是：_ dyg = Chr(Asc(A) + ld) & Trim(Str(h) Range(dyg).Select Selection.Interior.ColorIndex = 6 下面这条语句的作用是：_ Cells(h, p + 1) = (fz - fg - fd) / (pws - 2)End Sub0019累加总分, 设置最高分单元格背景色, 设置最低分单元格背
