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

VBA程序开发与应用知到智慧树章节测试课后答案2024年秋吉林师范大学博达学院第一章单元测试

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

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

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

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

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

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

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

A:开发工具，宏，编辑

B:开始，宏，VBE

C:宏，开发工具，编辑

D:编辑，宏，开发工具

答案:开发工具，宏，编辑

第二章单元测试

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

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

B:插入，宏，Shift+F11

C:开始，宏，F9

D:设计，宏，F12

答案:开发工具，VisualBasic，Alt+F11

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

A:宏，开发工具，编辑

B:开始，宏，VBE

C:连续、单步、断点

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

答案:单步、设置断点、stop语句

在Excel的VBA代码中，对象描述Worksheets("Sheet1").Range("A2")与（）等价。

A:Worksheets("Sheet1").Range("2A")

B:Worksheets("Sheet1").Cells(2,1)

C:Worksheets("Sheet1").Range("A",2)

D:Worksheets("Sheet1").Cells(1,2)

答案:Worksheets("Sheet1").Cells(2,1)

在Excel的VBA代码中，Range("A1:D8").CutRange("F1")的作用为（）。

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

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

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

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

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

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

A:z=Int(Rnd*x)+y

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

C:z=Int(Rnd*y)+x

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

答案:z=Int(Rnd*(y-x+1))+x

第三章单元测试

Sheets("表1").Range("B3:E8").Font.Bold中的Range("B3:E8")是（）。

A:事件

B:方法

C:属性

D:对象

答案:对象

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

A:个人宏工作簿

B:Normal文档

C:当前工作簿

D:当前文档

答案:Normal文档

Selection.Find.Execute的作用是执行查找。（）

A:对B:错

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

A:数值型

B:对象型

C:日期型

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

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

ClearFormatting方法是用来清除文本的。（）

A:对B:错

答案:错

第四章单元测试

要使表签label1的标题栏显示“欢迎进入VBA世界”,下面语句正确的是（）。

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

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

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

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

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

Sheets("Sheet1").Range("A1:D5").Font.Bold中的Bold是（）。

A:对象

B:属性

C:方法

D:事件

答案:属性

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

A:错B:对

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

A:错B:对

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

A:TIME()

B:NOW()

C:DAY()

D:DATE()

答案:DATE()

第五章单元测试

将“剪切板”上的内容粘贴到指定按钮的图符上的命令栏属性方法为（）。

A:PasteFace

B:CopyFace

C:Visible

D:Style

答案:PasteFace

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

A:错B:对

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

A:错B:对

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

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

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

C:mb.Activate

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

答案:Setmb=MenyBars.Add(“MyMenu”)

Withcombox.Width=120语句的含义（）

A:工具栏可见

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

C:设置组合框宽度

D:指定要执行的过程

答案:设置组合框宽度

第六章单元测试

在VBA中，可使用CreateObject或GetObject功能返回一个到WordApplication对象的引用。（）

A:错B:对

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

A:对B:错

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

A:对B:错

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

A:CopyFromRecordset方法

B:OpenDatabase方法

C:AddNew方法

D:Updat方法e

答案:AddNew方法

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

A:对B:错

答案:对

第七章单元测试

Dir函数取出当前路径下第一个文件名（含扩展名）。（）

A:错B:对

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

A:对B:错

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

A:错B:对

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

A:错B:对

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

A:对B:错

答案:错

第八章单元测试

filCells(22,7),1

调用子程序fil，对当前工作表的22行、7列单元格填写数值“1”。（）

A:错B:对

答案:对Subcls(rgAsRange)

Withrg

.ClearContents

.Interior.ColorIndex=2

.Borders.LineStyle=xlNone

EndWith

EndSub上述代码段的功能是：子程序用形参rg表示单元格区域。其功能是清除该单元格区域的内容、背景颜色和边框。（）

A:对B:错

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

A:错B:对

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

A:对B:错

答案:对sheets("sheet1").Visible=False'隐藏sheet1这张工作表。（）

A:错B:对

答案:对

第九章单元测试

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

A:对B:错

答案:对Withtbar.Controls.Add(Type:=msoControlButton)

.Caption="导入课表"

.Style=msoButtonCaption

.OnAction="dr"

EndWith上述代码段的功能是：在工具栏放置按钮“导入课表”，指定要执行的子程序为dr。（）

A:对B:错

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

A:错B:对

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

A:对B:错

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

A:错B:对

答案:对

第十章单元测试

Withbutt1

.Caption="提取"

.Style=msoButtonCaption

.OnAction="tq"

EndWith上述代码段的功能是：在工具栏上添加“提取”按钮，为按钮指定要执行的过程为tq。（）

A:对B:错

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

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

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

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

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

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

tbar.Visible=True

Sheets("说明").Select

上述代码段的功能是：让tbar工具栏可见，并选中“说明”工作表。（）

A:错B:对

答案:对Setshr=ActiveSheet

dqh=ActiveCell.Row

上述代码段的功能是：设置shr为工作表变量，取出当前行号赋值给dqh变量。（）

A:错B:对

答案:对Application.ScreenUpdating=False

上述代码段的功能是：关闭当前屏幕更新。（）

A:错B:对

答案:对

第十一章单元测试

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

A:对B:错

答案:对Settbar=Application.CommandBars.Add(Temporary:=True)

tbar.Visible=True上述代码段的功能是：建立临时自定义工具栏tbar，并设置其他属性为可见。（）

A:对B:错

答案:对Setbutt1=tbar.Controls.Add(Type:=msoControlButton)

Withbutt1

.Caption="课程学时"

.Style=msoButtonCaption

.OnAction="calc"

EndWith

上述代码段的功能是：在tbar工具栏上添加命令按钮butt1，按钮标题为“课程学时”，指定要执行的过程为“calc”。（）

A:对B:错

答案:对PrivateSubWorkbook_SheetActivate(ByValShAsObject)

IfSh.Name="统计表"Then

Application.SendKeys"%x{F6}"

Else

Application.SendKeys"%h{F6}"

EndIf

EndSub

上述代码段的功能是：对工作簿的SheetActivate事件编写代码，激活需要的选项卡。如果当前工作表为“统计表”时，激活功能区的“加载项”选项卡，否则激活“开始”选项卡。（）

A:对B:错

答案:对hs=Range("A4").End(xlDown).Row

上述代码段的功能是：求数据区A4到数据最后的有效行行数。（）

A:对B:错

答案:对

第十二章单元测试

RANK(Number，Ref，Order)函数的功能。（）

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

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

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

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

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

Do

……

LoopUntiljrs2=0

上述语句功能是：当＜条件＞为真时继续循环。（）

A:对B:错

答案:错jrs1=Round(rs*0.05,0)

上述语句功能是：使rs乘0.05，对结果四舍五入，值赋值给jrs1变量。（）

A:对B:错

答案:对A=10:B=8:C=6

MyCheck=A＞BAndB＞C

上述语句的返回值是：（）。

A:无返回值

B:Null

C:True

D:False

答案:True

MyNumber="34"+"6"

上述语句的返回值是：（）。

A:"346"

B:40

C:Null

D:无返回值

答案:40

第十三章单元测试

tbar.Visible=True上述语句的功能是：使自定义工具栏tbar处于显示可见状态。（）。

A:错B:对

答案:对Withtbar.Controls.Add(Type:=msoControlButton)

.Caption="数据统计"

.Style=msoButtonCaption

.OnAction="tj"

EndWith上述语句的功能是：在自定义工具栏tbar上添加按钮，设置按钮的标题当前年龄、类型，指定要执行的过程（tj）。（）。

A:对B:错

答案:对ny=Trim(Cells(k,3))

上述语句中Trim函数的功能是：Trim函数可删除文本字符串中的所有空格，单词之间的单个空格除外。（）。

A:对B:错

答案:对Year(Date)

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

A:错B:对

答案:对Settbar=Application.CommandBars.Add(Temporary:=True)

Withtbar.Controls.Add(Type:=msoControlButton)

.Caption="当前年龄"

.Style=msoButtonCaption

.OnAction="age"

EndWith

上述语句的功能是：在自定义工具栏tbar上添加按钮，设置按钮的为不可用状态。（）。

A:对B:错

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