在线网课知道《VBA程序开发与应用(吉林师大博达学院)》单元测试考核答案

第一章单元测试1【单选题】(2分)利用Office“录制宏”的功能可以实现部分程序设计___________，提高软件开发的___________，还可以______________。()A.自动化，工作内容，提高准确度B.自动化，效率，获得语句和方法C.效率，工作内容，获得语句和方法D.效率，工作内容，提高准确度2【单选题】(2分)编辑宏的方法：在________选项卡的“代码”组中单击________按钮，在“宏”对话框中选择宏，单击________按钮。（）。A.开发工具，宏，编辑B.开始，宏，VBEC.宏，开发工具，编辑D.编辑，宏，开发工具第二章单元测试1【单选题】(2分)进入VB编辑器（VBE）的方法：可以在__________选项卡的“代码”组中单击__________按钮，也可以用__________快捷键。（）。A.开始，宏，F9B.设计，宏，F12C.开发工具，VisualBasic，Alt+F11D.插入，宏，Shift+F112【单选题】(2分)调试VBA程序，可以用_________、__________、_________等方法。（）。A.开始，宏，VBEB.宏，开发工具，编辑C.单步、设置断点、stop语句D.连续、单步、断点3【单选题】(2分)在Excel的VBA代码中，对象描述Worksheets("Sheet1").Range("A2")与（）等价。A.Worksheets("Sheet1").Cells(1,2)B.Worksheets("Sheet1").Range("A",2)C.Worksheets("Sheet1").Range("2A")D.Worksheets("Sheet1").Cells(2,1)4【单选题】(2分)在Excel的VBA代码中，Range("A1:D8").CutRange("F1")的作用为（）。A.剪切单元格区域A1至D8，复制到单元格F1开始的区域中B.剪切单元格区域A1至D8，移动到单元格F1开始的区域中C.剪切单元格区域A1至D8，复制到单元格F1中D.剪切单元格区域A1至D8，移动到单元格F1中5【单选题】(2分)x，y是整数型变量，在VBA中产生一个范围在[x，y]之间的随机整数z的语句为（）。A.z=Int(Rnd*x)+yB.z=Int(Rnd*(y-x+1))+xC.z=Int(Rnd*(x-y+1)+yD.z=Int(Rnd*y)+x第三章单元测试1【单选题】(2分)Sheets("表1").Range("B3:E8").Font.Bold中的Range("B3:E8")是（）。A.属性B.对象C.方法D.事件2【单选题】(2分)为了让VBA代码能够在当前电脑的任何Word文档中使用，需要将宏保存在（）。A.Normal文档B.当前文档C.个人宏工作簿D.当前工作簿3【判断题】Selection.Find.Execute的作用是执行查找。（）A.错B.对4【单选题】(2分)Trim()函数返回值的类型是（）。A.日期型B.数值型C.字符串型[正确答案]D.对象型5【判断题】ClearFormatting方法是用来清除文本的。（）A.错B.对第四章单元测试1【单选题】(2分)要使表签label1的标题栏显示“欢迎进入VBA世界”,下面语句正确的是（）。A.Label1.caption=＜欢迎进入VBA世界B.Label1.caption=欢迎进入VBA世界C.Label1.caption=’欢迎进入VBA世界’D.Label1.caption=”欢迎进入VBA世界”2【单选题】(2分)Sheets("Sheet1").Range("A1:D5").Font.Bold中的Bold是（）。A.方法B.对象C.事件D.属性3【判断题】若要用编程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。（）A.错B.对4【判断题】IfTarget.Count1ThenExitSub的功能是若选中了多个单元格，则退出。（）A.错B.对5【单选题】(2分)下面哪一个函数返回系统日期和时间（）;A.NOW()B.DAY()C.TIME()D.DATE()第五章单元测试1【单选题】(2分)将“剪切板”上的内容粘贴到指定按钮的图符上的命令栏属性方法为（）。A.VisibleB.StyleC.CopyFaceD.PasteFace2【判断题】编写stq过程，通过模块级变量newCombo引用工具栏上的组合框，由组合框的ListIndex属性得到选项的序号，用MsgBox显示相应的信息。（）A.错B.对3【判断题】Microsoft没有提供直接用VBA激活功能区选项卡的方法。但是，可以使用SendKeys方法模拟按键，来激活需要的选项卡。（）A.对B.错4【单选题】(2分)下列语句中属于建立菜单的语句是（）A.mb.ActivateB.Setmb=MenyBars.Add(“MyMenu”)C.Setmt=mb.Menus.Add(“维护”)D.MsgBox(“执行输入功能”)5【单选题】(2分)Withcombox.Width=120语句的含义（）A.工具栏可见B.设置组合框下拉列表数量C.设置组合框宽度D.指定要执行的过程第六章单元测试1【判断题】在VBA中，可使用CreateObject或GetObject功能返回一个到WordApplication对象的引用。（）A.对B.错2【判断题】实现从word中进行excel操作必须要引用MicroSoftExcel14.0ObjectLibarary项（）A.对B.错3【判断题】实现在word中对access的操作，需要进入“VisualBasic编辑器”环境，在“工具”菜单上单击“引用”，在“可使用的引用”框中单击“MicrosoftDAO3.6ObjectLibrary”。（）A.对B.错4【单选题】(2分)在excel中向access添加一个新纪录的方法（）A.AddNew方法B.Updat方法eC.OpenDatabase方法D.CopyFromRecordset方法5【判断题】实现将word中文本发送至PowerPoint中需进入VB编辑器，在“工具”菜单中选“引用”项。在“引用”对话框中选择“MicroSoftPowerPoint14.0ObjectLibarary”项。（）A.错B.对第七章单元测试1【判断题】Dir函数取出当前路径下第一个文件名（含扩展名）。（）A.错B.对2【判断题】ThisDocument.Path取出当前路径名。（）A.错B.对3【判断题】Sort方法对表格内容按扩展名、文件名进行排序并取消选中状态。（）A.错B.对4【判断题】递归子程序的功能是，自己调用自己。（）A.错B.对5【判断题】用GetFolder方法不可实现创建指定的文件夹对象。（）A.对B.错第八章单元测试1【判断题】filCells(22,7),1调用子程序fil，对当前工作表的22行、7列单元格填写数值“1”。（）A.错B.对2【判断题】Subcls(rgAsRange)Withrg.ClearContents.Interior.ColorIndex=2.Borders.LineStyle=xlNoneEndWithEndSub上述代码段的功能是：子程序用形参rg表示单元格区域。其功能是清除该单元格区域的内容、背景颜色和边框。（）A.对B.错3【判断题】Range(“A1”).Interior.ColorIndex功能获取单元格A1背景色。（）A.错B.对4【判断题】Range("a1").A.对B.错5【判断题】sheets("sheet1").Visible=False'隐藏sheet1这张工作表。（）A.对B.错第九章单元测试1【判断题】Settbar=Application.CommandBars.Add(Temporary:=True)上述代码段的功能是：工作簿打开时，通过这段代码建立一个临时自定义工具栏。（）A.错B.对2【判断题】Withtbar.Controls.Add(Type:=msoControlButton).Caption="导入课表".Style=msoButtonCaption.OnAction="dr"EndWith上述代码段的功能是：在工具栏放置按钮“导入课表”，指定要执行的子程序为dr。（）A.对B.错3【判断题】tbar.Visible=True上述代码段的功能是：令tbar自定义工具栏可见。（）A.错B.对4【判断题】Weekday(Date,vbMonday)-1上述代码段的功能是：用Weekday函数求出当前是星期几。第二个参数用vbMonday，则函数的返回值：1表示星期一、2表示星期二、……、7表示星期日。（）A.对B.错5【判断题】Callsxl(w)上述代码段的功能是：以w为实参，调用子程序sxl。（）A.对B.错第十章单元测试1【判断题】Withbutt1.Caption="提取".Style=msoButtonCaption.OnAction="tq"EndWith上述代码段的功能是：在工具栏上添加“提取”按钮，为按钮指定要执行的过程为tq。（）A.错B.对2【单选题】(2分)在Excel“开发工具”选项卡“中，可以通过（）添加控件。A.“开发工具”选项卡“控件”组的“插入”下拉列表中，单击“其他控件”按钮B.“开始”选项卡“控件”组的“插入”下拉列表中，单击“对象”按钮C.“开始”选项卡“控件”组的“插入”下拉列表中，单击“其他控件”按钮D.“开发工具”选项卡“控件”组的“插入”下拉列表中，单击“对象”按钮3【判断题】tbar.Visible=TrueSheets("说明").Select上述代码段的功能是：让tbar工具栏可见，并选中“说明”工作表。（）A.对B.错4【判断题】Setshr=ActiveSheetdqh=ActiveCell.Row上述代码段的功能是：设置shr为工作表变量，取出当前行号赋值给dqh变量。（）A.对B.错5【判断题】Application.ScreenUpdating=False上述代码段的功能是：关闭当前屏幕更新。（）A.对B.错第十一章单元测试1【判断题】对工作簿的Open事件编写代码时，可以建立临时自定义工具栏并使其可见，在工具栏上添加按钮，并指定要执行的过程。（）。A.错B.对2【判断题】Settbar=Application.CommandBars.Add(Temporary:=True)tbar.Visible=True上述代码段的功能是：建立临时自定义工具栏tbar，并设置其他属性为可见。（）A.错B.对3【判断题】Setbutt1=tbar.Controls.Add(Type:=msoControlButton)Withbutt1.Caption="课程学时".Style=msoButtonCaption.OnAction="calc"EndWith上述代码段的功能是：在tbar工具栏上添加命令按钮butt1，按钮标题为“课程学时”，指定要执行的过程为“calc”。（）A.对B.错4【判断题】PrivateSubWorkbook_SheetActivate(ByValShAsObject)IfSh.Name="统计表"ThenApplication.SendKeys"%x{F6}"ElseApplication.SendKeys"%h{F6}"EndIfEndSub上述代码段的功能是：对工作簿的SheetActivate事件编写代码，激活需要的选项卡。如果当前工作表为“统计表”时，激活功能区的“加载项”选项卡，否则激活“开始”选项卡。（）A.对B.错5【判断题】hs=Range("A4").End(xlDown).Row上述代码段的功能是：求数据区A4到数据最后的有效行行数。（）A.对B.错第十二章单元测试1【单选题】(2分)RANK(Number，Ref，Order)函数的功能。（）A.返回某数字在一列数字中的相对位置关系B.返回在一列数字中的排名最小的数值C.返回在一列数字中的排名最大的数值D.返回某数字在一列数字中的相对于其他数值的大小排名2【判断题】Do……LoopUntiljrs2=0上述语句功能是：当＜条件为真时继续循环。（）A.对B.错3【判断题】jrs1=Round(rs*0.05,0)上述语句功能是：使rs乘0.05，对结果四舍五入，值赋值给jrs1变量。（）A.错B.对4【单选题】(2分)A=10:B=8:C=6MyCheck=ABAndBC上述语句的返回值是：（）。A.TrueB.FalseC.NullD.无返回值5【单选题】(2分)MyNumber="34"+"6"上述语句的返回值是：（）。A.无返回值B."346"C.NullD.40第十三章单元测试1【判断题】tbar.Visible=True上述语句的功能是：使自定义工具栏tbar处于显示可见状态。（）。A.对B.错2【判断题】Withtbar.Controls.Add(Type:=msoControlButton).Caption="数据统计".Style=msoButtonCaption.OnAction="tj"EndWith上述语句的功能是：在自定义工具栏tbar上添加按钮，设置按钮的标题当前年龄、类型，指定要执行的过程（tj）。（）。A.错B.对3【判断题】ny=Trim(Cells(k,3))上述语句中Trim函数的功能是：Trim函数可删除文本字符串中的所有空格，单词之间的单个空格除外。（）。A.错B.对4【判断题】Year(Date)上述语句中Year函数的功能是：Year函数可用于返回日期/时间值的年部分，从1900开始。（）。A.对B.错5【判断题】Settbar=Application.CommandBars.Add(Temporary:=True)Withtbar.Controls.Add(Type:=msoControlButton).Caption="当前年龄".Style=msoButtonCaption.OnAction="age"EndWith上述语句的功能是：在自定义工具栏tbar上添加按钮，设置按钮的为不可用状态。（）。A.对B.错6【判断题】在Excel“开发工具”选项卡“控件”组的“插入”下拉列表中，单击“其他控件”按钮，可以添加所需要控件。（）。A.错B.对第十四章单元测试1【判断题】Dimbutt1AsCommandBarControl上述语句的功能是：语句声明模块级对象变量butt1。（）。A.对B.错2【判断题】Withbu