VBA开发与应用试题

-1-《VBA开发与应用》试题库题型说明各章内容符号名称章号内容章号内容章号内容A简答题01VBA基础072007.11增13B02VBA应用082009.06增14C填空题032005.5增0915D分析题042005.12增1016E05BD03学生1117F编程题062007.06增1218备注：`000101C1VBA和VB的主要区别：VB用于创建标准的应用程序，VBA是使已有的应用程序(Office)__________。VB具有自己的开发环境，VBA________已有的应用程序(Office)。VB开发出的应用程序可以是可执行文件(*.EXE)，VBA开发的程序必须_________它的“父”应用程序(Office)。~0001自动化,寄生于,依赖于`000201C1以Office作为开发平台，可以直接利用Office本身功能，不必专门开发_______、________、_______等模块。~0002打印、文件处理、格式化、文本编辑、文件的打开、保存、复制`000301C1发布用VBA开发的软件，需要发布含有__________的文档，目标机器有_________环境，并且宏的安全级别设置为__________。~0003VBA代码、Office、低或中`000401C2利用Office的宏录制可以实现部分程序设计_________，提高软件开发的________，还可以______________。~0004自动化，效率，获得函数、语句和方法`000501C2录制一个宏，如下步骤：①在_____________菜单中选“录制新宏”项。②在“录制新宏”对话框中输入宏名，单击“确定”按钮。此时，屏幕上显示出___________工具栏。③进行需要的操作。④单击__________工具栏按钮，结束宏录制过程。~0005工具|宏,停止录制,停止录制`000601C3编辑宏：选择______________菜单，在________对话框的选择列表中，选择需要的宏，单击________按钮。~0006工具|宏|宏,宏,编辑`000701C2执行宏：选择_______________菜单，在________对话框的选择列表中，选择需要的宏，单击__________按钮。~0007工具|宏|宏，宏，执行`000801C3在Excel中自定义一个工具栏，并将宏指定给工具栏中的一个按钮：①选择____________菜单，显示“自定义”对话框。②在“命令”卡中，从“类别”列表框中选择“宏”，从“命令”列表框中将“自定义按钮”______到工具栏上。③右击该按钮，选择_________，显示“指定宏”对话框。④选择需要的宏名并单击“确定”按钮。⑤单击“关闭”按钮，关闭“自定义”对话框。-2-~0008工具|自定义,拖动,指定宏`000901C3定义用户窗体：①选择“工具|宏|VisualBasic编辑器”菜单或用_________快捷键，打开VBA编辑器。②在VBA编辑器中选择工具栏上的____________按钮或者在“插入”菜单选__________项。~0009Alt+F11，插入用户窗体,用户窗体`001001C2调试VBA程序，可以用_________、__________、_________等方法。~0010单步、设置断点、stop语句`001101C1VBA编程中涉及的对象有_______、_______、_________等。~0011窗口、菜单、用户对象`001201C3对象有________性、________性、________性。~0012封装、继承、多态`001301C1EXCEL的“窗体”工具栏控件有标签、分组框、______、______、选项按钮、_______、组合框、滚动条、直滚动条、微调控件等。~0013按钮、复选框、列表框`001401C1VBA中对象或控件的“事件”有__________、close、__________、__________、modified、activate、closequery、resize、timer、getfocus、lostfocus等。~0014Open、clicked、selectchanged`001505C2编一个VBA程序，在Word当前文档中按顺序输入26个英文字母。可以用录制宏、___________、___________、____________的步骤完成。~0015输入任意字母、编辑宏、改为循环程序`001602D2'以下两行语句的功能是：_____________________________________Application.CommandBars(Standard).Visible=FalseApplication.CommandBars(Formatting).Visible=False'下面一行语句的的功能是：___________________________________Settbar=Application.CommandBars.Add(Name:=系统功能)'以下程序段的功能是：__________________________________Setbutt1=tbar.Controls.Add(Type:=msoControlButton)Withbutt1.Caption=诊断.Style=msoButtonCaption.OnAction=zd'这行语句的作用是：________________________EndWith~0016关闭“常用”、“格式”工具栏建立“系统功能”工具栏在工具栏上添加“诊断”命令按钮指定要执行的过程zd`001702D2‘当Excel工作簿的______________________时，执行以下代码段PrivateSubWorksheet_Change(ByValTargetAsRange)-3-addr=Target.Address'求当前单元格地址col_letter=Mid(addr,2,1)'求地址中_________row_no=Trim(Str(Val(Mid(addr,4))))'求地址中_________Ifcol_letter=BOrcol_letter=DOrcol_letter=FThen'如果是B、D、F列Ifrow_no=15Androw_no=21Then'并且是15至21行s_ge=col_letter&Trim(row_no)s_val=Range(s_ge).Value'_________________Ifs_val=1ThenRange(s_ge).Value=√'修改单元格内容（1改为√）EndIfEndIfEndIfEndSub~0017任意一个单元格内容改变,列标,行号,得到单元格内容`001802D2给下面的程序段添加注释。Subtest()nm=Hex(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(wm10,0&wm,wm)'______________MsgBoxqm&wm'______________EndSub~0018内码（高两位）,内码（低两位）,两位数表示,显示区位码`001902D3给下面的程序段添加注释。Subtest()h=Mid(ActiveCell.Address,4)'求出当前行号pws=8'评委人数fg=-999:fd=999:fz=0'最高分、最低分、总分初值Forp=1Topws'按评委数循环f=Cells(h,p+1)'分数fz=fz+f'_________________IfffgThenfg=f'当前最高分lg=p'最高分位置（列号）EndIfIfffdThenfd=f'当前低高分ld=p'最低分位置（列号）EndIfNext'以下三行语句的功能是：_______________________dyg=Chr(Asc(A)+lg)&Trim(Str(h))Range(dyg).SelectSelection.Interior.ColorIndex=43'以下三行语句的功能是：_______________________dyg=Chr(Asc(A)+ld)&Trim(Str(h))Range(dyg).SelectSelection.Interior.ColorIndex=6'下面这条语句的作用是：______________________Cells(h,p+1)=(fz-fg-fd)/(pws-2)-4-EndSub~0019累加总分,设置最高分单元格背景色,设置最低分单元格背景色,填写平均分`002002D3给下面的程序段添加注释。Subcopy_y()Rows(5:200).Select'选中5-200行Selection.ClearContents'____________________n=5'源工作表行号k=5'目的工作表行号Docell_a=A&Trim(Str(n))'A列n行单元格tc_a=Worksheets(总表).Range(cell_a).Value'取A列n行值(教师姓名)cell_ac=AC&Trim(Str(n))'AC列n行单元格tc_ac=Worksheets(总表).Range(cell_ac).Value'取AC列n行值(课程类别)IfTrim(tc_ac)=院Then'课程类别为“院”row_n=Trim(Str(n))&:&Trim(Str(n))'形成行号(n:n)row_k=Trim(Str(k))&:&Trim(Str(k))'形成行号(k:k)'以下三行语句的作用是：____________________Sheets(总表).SelectRows(row_n).SelectSelection.Copy'以下三行语句的作用是：____________________Sheets(院课).SelectRows(row_k).SelectActiveSheet.PasteApplication.CutCopyMode=False'_________________k=k+1'目的工作表行号加1EndIfn=n+1'源工作表行号加1LoopWhileLen(Trim(tc_a))0'教师姓名不为空，循环EndSub~0020清除所选行的内容,复制总表“n:n”行,粘贴到院课“k:k”行,取消粘贴状态`002102D2给下面的程序段添加注释。Subts(mark,x_color)Selection.HomeKeyUnit:=wdStory'________________Selection.Find.ClearFormattingSelection.Find.Text=mark'指定要查找的字符fd=Selection.Find.Execute'________________DoWhilefdSelection.EndKeyUnit:=wdLine,Extend:=wdExtend'选中当前行Selection.Range.HighlightColorIndex=x_color'设置背景颜色Selection.MoveRightUnit:=wdCharacter,Count:=1'_______________fd=Selection.Find.Execute'继续查找LoopEndSub'以上程序的总体功能是：_______________________~0021到文件头,进行查找,右移一个字符,将带有标记mark的行置成背景颜色x_color`002202D2给下面的程序段添加注释。Sub查找同题()tt=Selection.Text'________________S