VBA程序开发与应用智慧树知到答案章节测试2023年吉林师范大学博达学院

第一章测试利用Office“录制宏”的功能可以实现部分程序设计___________，提高软件开发的___________，还可以______________。()

A:效率，工作内容，提高准确度

B:效率，工作内容，获得语句和方法

C:自动化，效率，获得语句和方法

D:自动化，工作内容，提高准确度

答案:C编辑宏的方法：在________选项卡的“代码”组中单击________按钮，在“宏”对话框中选择宏，单击________按钮。（）。

A:宏，开发工具，编辑

B:开始，宏，VBE

C:开发工具，宏，编辑

D:编辑，宏，开发工具

答案:C第二章测试进入VB编辑器（VBE）的方法：可以在__________选项卡的“代码”组中单击__________按钮，也可以用__________快捷键。（）。

A:插入，宏，Shift+F11

B:开始，宏，F9

C:设计，宏，F12

D:开发工具，VisualBasic，Alt+F11

答案:D调试VBA程序，可以用_________、__________、_________等方法。（）。

A:连续、单步、断点

B:宏，开发工具，编辑

C:单步、设置断点、stop语句

D:开始，宏，VBE

答案:C在Excel的VBA代码中，对象描述Worksheets(“Sheet1”).Range(“A2”)与（）等价。

A:Worksheets(“Sheet1”).Cells(1,2)

B:Worksheets(“Sheet1”).Range(“2A”)

C:Worksheets(“Sheet1”).Range(“A”,2)

D:Worksheets(“Sheet1”).Cells(2,1)

答案:D在Excel的VBA代码中，Range(“A1:D8”).CutRange(“F1”)的作用为（）。

A:剪切单元格区域A1至D8，移动到单元格F1中

B:剪切单元格区域A1至D8，移动到单元格F1开始的区域中

C:剪切单元格区域A1至D8，复制到单元格F1开始的区域中

D:剪切单元格区域A1至D8，复制到单元格F1中

答案:Bx，y是整数型变量，在VBA中产生一个范围在[x，y]之间的随机整数z的语句为（）。

A:z=Int(Rnd(x-y+1)+y

B:z=Int(Rnd(y-x+1))+x

C:z=Int(Rndx)+y

D:z=Int(Rndy)+x

答案:B第三章测试Sheets(“表1”).Range(“B3:E8”).Font.Bold中的Range(“B3:E8”)是（）。

A:对象

B:属性

C:方法

D:事件

答案:A为了让VBA代码能够在当前电脑的任何Word文档中使用，需要将宏保存在（）。

A:当前文档

B:Normal文档

C:当前工作簿

D:个人宏工作簿

答案:BSelection.Find.Execute的作用是执行查找。（）

A:对

B:错

答案:ATrim()函数返回值的类型是（）。

A:数值型

B:字符串型[正确答案]

C:日期型

D:对象型

答案:BClearFormatting方法是用来清除文本的。（）

A:错

B:对

答案:A第四章测试要使表签label1的标题栏显示“欢迎进入VBA世界”,下面语句正确的是（）。

A:Label1.caption=”欢迎进入VBA世界”

B:Label1.caption=欢迎进入VBA世界

C:Label1.caption=’欢迎进入VBA世界’

D:Label1.caption=＜欢迎进入VBA世界＞

答案:ASheets(“Sheet1”).Range(“A1:D5”).Font.Bold中的Bold是（）。

A:方法

B:属性

C:对象

D:事件

答案:B若要用编程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方法。（）

A:错

B:对

答案:BIfTarget.Count＞1ThenExitSub的功能是若选中了多个单元格，则退出。（）

A:错

B:对

答案:B下面哪一个函数返回系统日期和时间（）;

A:DAY()

B:DATE()

C:NOW()

D:TIME()

答案:B第五章测试将“剪切板”上的内容粘贴到指定按钮的图符上的命令栏属性方法为（）。

A:CopyFace

B:Style

C:PasteFace

D:Visible

答案:C编写stq过程，通过模块级变量newCombo引用工具栏上的组合框，由组合框的ListIndex属性得到选项的序号，用MsgBox显示相应的信息。（）

A:错

B:对

答案:BMicrosoft没有提供直接用VBA激活功能区选项卡的方法。但是，可以使用SendKeys方法模拟按键，来激活需要的选项卡。（）

A:对

B:错

答案:A下列语句中属于建立菜单的语句是（）

A:MsgBox(“执行输入功能”)

B:Setmt=mb.Menus.Add(“维护”)

C:Setmb=MenyBars.Add(“MyMenu”)

D:mb.Activate

答案:CWithcombox.Width=120语句的含义（）

A:指定要执行的过程

B:设置组合框下拉列表数量

C:工具栏可见

D:设置组合框宽度

答案:D第六章测试在VBA中，可使用CreateObject或GetObject功能返回一个到WordApplication对象的引用。（）

A:错

B:对

答案:B实现从word中进行excel操作必须要引用MicroSoftExcel14.0ObjectLibarary项（）

A:对

B:错

答案:B实现在word中对access的操作，需要进入“VisualBasic编辑器”环境，在“工具”菜单上单击“引用”，在“可使用的引用”框中单击“MicrosoftDAO3.6ObjectLibrary”。（）

A:对

B:错

答案:A在excel中向access添加一个新纪录的方法（）

A:AddNew方法

B:OpenDatabase方法

C:Updat方法e

D:CopyFromRecordset方法

答案:A实现将word中文本发送至PowerPoint中需进入VB编辑器，在“工具”菜单中选“引用”项。在“引用”对话框中选择“MicroSoftPowerPoint14.0ObjectLibarary”项。（）

A:错

B:对

答案:B第七章测试Dir函数取出当前路径下第一个文件名（含扩展名）。（）

A:对

B:错

答案:AThisDocument.Path取出当前路径名。（）

A:错

B:对

答案:BSort方法对表格内容按扩展名、文件名进行排序并取消选中状态。（）

A:对

B:错

答案:A递归子程序的功能是，自己调用自己。（）

A:对

B:错

答案:A用GetFolder方法不可实现创建指定的文件夹对象。（）

A:错

B:对

答案:A第八章测试filCells(22,7),1调用子程序fil，对当前工作表的22行、7列单元格填写数值“1”。（）

A:错

B:对

答案:BSubcls(rgAsRange)Withrg.ClearContents.Interior.ColorIndex=2.Borders.LineStyle=xlNoneEndWithEndSub上述代码段的功能是：子程序用形参rg表示单元格区域。其功能是清除该单元格区域的内容、背景颜色和边框。（）

A:错

B:对

答案:BRange(“A1”).Interior.ColorIndex功能获取单元格A1背景色。（）

A:对

B:错

答案:ARange(“a1”).value=“hello”’给指定单元格a1赋值为“hello”。（）

A:错

B:对

答案:Bsheets(“sheet1”).Visible=False’隐藏sheet1这张工作表。（）

A:对

B:错

答案:A第九章测试Settbar=Application.CommandBars.Add(Temporary:=True)上述代码段的功能是：工作簿打开时，通过这段代码建立一个临时自定义工具栏。（）

A:错

B:对

答案:BWithtbar.Controls.Add(Type:=msoControlButton).Caption=“导入课表”.Style=msoButtonCaption.OnAction=“dr”EndWith上述代码段的功能是：在工具栏放置按钮“导入课表”，指定要执行的子程序为dr。（）

A:错

B:对

答案:Btbar.Visible=True上述代码段的功能是：令tbar自定义工具栏可见。（）

A:对

B:错

答案:AWeekday(Date,vbMonday)-1上述代码段的功能是：用Weekday函数求出当前是星期几。第二个参数用vbMonday，则函数的返回值：1表示星期一、2表示星期二、……、7表示星期日。（）

A:错

B:对

答案:BCallsxl(w)上述代码段的功能是：以w为实参，调用子程序sxl。（）

A:错

B:对

答案:B第十章测试Withbutt1.Caption=“提取”.Style=msoButtonCaption.OnAction=“tq”EndWith上述代码段的功能是：在工具栏上添加“提取”按钮，为按钮指定要执行的过程为tq。（）

A:对

B:错

答案:A在Excel“开发工具”选项卡“中，可以通过（）添加控件。

A:“开发工具”选项卡“控件”组的“插入”下拉列表中，单击“对象”按钮

B:“开始”选项卡“控件”组的“插入”下拉列表中，单击“对象”按钮

C:“开发工具”选项卡“控件”组的“插入”下拉列表中，单击“其他控件”按钮

D:“开始”选项卡“控件”组的“插入”下拉列表中，单击“其他控件”按钮

答案:Btbar.Visible=TrueSheets(“说明”).Select上述代码段的功能是：让tbar工具栏可见，并选中“说明”工作表。（）

A:错

B:对

答案:BSetshr=ActiveSheetdqh=ActiveCell.Row上述代码段的功能是：设置shr为工作表变量，取出当前行号赋值给dqh变量。（）

A:错

B:对

答案:BApplication.ScreenUpdating=False上述代码段的功能是：关闭当前屏幕更新。（）

A:错

B:对

答案:B第十一章测试对工作簿的Open事件编写代码时，可以建立临时自定义工具栏并使其可见，在工具栏上添加按钮，并指定要执行的过程。（）。

A:对

B:错

答案:ASettbar=Application.CommandBars.Add(Temporary:=True)tbar.Visible=True上述代码段的功能是：建立临时自定义工具栏tbar，并设置其他属性为可见。（）

A:对

B:错

答案:ASetbutt1=tbar.Controls.Add(Type:=msoControlButton)Withbutt1.Caption=“课程学时”.Style=msoButtonCaption.OnAction=“calc”EndWith上述代码段的功能是：在tbar工具栏上添加命令按钮butt1，按钮标题为“课程学时”，指定要执行的过程为“calc”。（）

A:错

B:对

答案:BPrivateSubWorkbook_SheetActivate(ByValShAsObject)IfSh.Name=“统计表”ThenApplication.SendKeys“%x{F6}”ElseApplication.SendKeys“%h{F6}”EndIfEndSub上述代码段的功能是：对工作簿的SheetActivate事件编写代码，激活需要的选项卡。如果当前工作表为“统计表”时，激活功能区的“加载项”选项卡，否则激活“开始”选项卡。（）

A:错

B:对

答案:Bhs=Range(“A4”).End(xlDown).Row上述代码段的功能是：求数据区A4到数据最后的有效行行数。（）

A:错

B:对

答案:B第十二章测试RANK(Number，Ref，Order)函数的功能。（）

A:返回在一列数字中的排名最小的数值

B:返回某数字在一列数字中的相对位置关系

C:返回在一列数字中的排名最大的数值

D:返回某数字在一列数字中的相对于其他数值的大小排名

答案:DDo……LoopUntiljrs2=0上述语句功能是：当＜条件＞为真时继续循环。（）

A:对

B:错

答案:Bjrs1=Round(rs*0.05,0)上述语句功能是：使rs乘0.05，对结果四舍五入，值赋值给jrs1变量。（）

A:错

B:对

答案:BA=10:B=8:C=6MyCheck=A＞BAndB＞C上述语句的返回值是：（）。

A:Null

B:False

C:True

D:无返回值

答案:CMyNumber=“34”+“6”上述语句的返回值是：（）。

A:“346”

B:40

C:Null

D:无返回值

答案:B第十三章测试tbar.Visible=True上述语句的功能是：使自定义工具栏tbar处于显示可见状态。（）。

A:对

B:错

答案:AWithtbar.Controls.Add(Type:=msoControlButton).Caption=“数据统计”.Style=msoButtonCaption.OnAction=“tj”EndWith上述语句的功能是：在自定义工具栏tbar上添加按钮，设置按钮的标题当前年龄、类型，指定要执行的过程（tj）。（）。

A:对

B:错

答案:Any=Trim(Cells(k,3))上述语句中Trim函数的功能是：Trim函数可删除文本字符串中的所有空格，单词之间的单个空格除外。（）。

A:对

B:错

答案:AYear(Date)上述语句中Year函数的功能是：Year函数可用于返回日期/时间值的年部分，从1900开始。（）。

A:对

B:错

答案:ASettbar=Application.CommandBars.Add(Temporary:=True)Withtbar.Controls.Add(Type:=msoControlButton).Caption=“当前年龄”.Style=msoButtonCaption.OnAction=“age”EndWith上述语句的功能是：在自定义工具栏tbar上添加按钮，设置按钮的为不可用状态。（）。

A:对

B:错

答案:B在Excel“开发工具”选项卡“控件”组的“插入”下拉列表中，单击“其他控件”按钮，可以添加所需要控件。（）。

A:错

B:对

答案:B第十四章测试Dimbutt1A