知到VBA程序开发与应用课后答案(知到APP2023答案)
97 min read知到VBA程序开发与应用课后答案(知到APP2023答案)
执行mysqli_query()函数，序开一定会返回结果集。用课（ ）
A 对
B 错
利用Office“录制宏”的后答功能可以实现部分程序设计___________，提高软件开发的案知___________，还可以______________。到A答案( )
A 效率，序开工作内容，用课获得语句和方法
B 效率，后答工作内容，案知提高准确度
C 自动化，到A答案效率，序开获得语句和方法
D 自动化，用课工作内容，后答提高准确度
编辑宏的案知方法：在________选项卡的“代码”组中单击________按钮，在“宏”对话框中选择宏，到A答案单击________按钮。（ ）。
A 宏，开发工具，编辑
B 编辑，宏，开发工具
C 开始，宏，VBE
D 开发工具，宏，编辑
进入VB编辑器（VBE）的方法：可以在__________选项卡的“代码”组中单击__________按钮，也可以用__________快捷键。（ ）。
A 设计，宏，F12
B 插入，宏，Shift+F11
C 开发工具，Visual Basic，Alt+F11
D 开始，宏，F9
调试VBA程序，可以用_________、__________、_________等方法。（ ）。
A 连续、单步、断点
B 单步、设置断点、stop语句
C 宏，开发工具，编辑
D 开始，宏，VBE
在Excel的VBA代码中，对象描述Worksheets(Sheet1).Range(A2)与（ ）等价。
A Worksheets(Sheet1).Cells(1,2)
B Worksheets(Sheet1).Cells(2,1)
C Worksheets(Sheet1).Range(A,2)
D Worksheets(Sheet1).Range(2A)
在Excel的VBA代码中，Range(A1:D8).Cut Range(F1)的作用为（ ）。
A 剪切单元格区域A1至D8，复制到单元格F1开始的区域中
B 剪切单元格区域A1至D8，移动到单元格F1开始的区域中
C 剪切单元格区域A1至D8，复制到单元格F1中
D 剪切单元格区域A1至D8，移动到单元格F1中
x，y是整数型变量，在VBA中产生一个范围在[x，y]之间的随机整数z的语句为（ ）。
A z=Int(Rnd*y) + x
B z=Int(Rnd*x)+y
C z=Int(Rnd*(y-x+1))+x
D z=Int(Rnd*(x-y+1) + y
Sheets(表1).Range(B3:E8).Font.Bold中的Range(B3:E8)是（ ）。
A 属性
B 方法
C 对象
D 事件
为了让VBA代码能够在当前电脑的任何Word文档中使用，需要将宏保存在（ ）。
A Normal文档
B 当前文档
C 当前工作簿
D 个人宏工作簿
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世界＞
Sheets(Sheet1).Range(A1:D5).Font.Bold中的Bold是（ ）。
A 属性
B 对象
C 事件
D 方法
若要用编程的方式向工作表添加ActiveX 控件，可用OLEObjects集合的Add方法。（ ）
A 错
B 对
If Target.Count ＞ 1 Then Exit Sub 的功能是若选中了多个单元格，则退出。（ ）
A 对
B 错
下面哪一个函数返回系统日期和时间（ ）;
A TIME()
B DATE()
C NOW()
D DAY()
将“剪切板”上的内容粘贴到指定按钮的图符上的命令栏属性方法为（ ）。
A PasteFace
B Visible
C Style
D CopyFace
编写stq过程，通过模块级变量newCombo引用工具栏上的组合框，由组合框的ListIndex属性得到选项的序号，用MsgBox显示相应的信息。（ ）
A 对
B 错
Microsoft没有提供直接用VBA激活功能区选项卡的方法。但是，可以使用SendKeys方法模拟按键，来激活需要的选项卡。（ ）
A 错
B 对
下列语句中属于建立菜单的语句是（ ）
A mb.Activate
B Set mb = MenyBars.Add(“MyMenu”)
C Set mt =mb.Menus.Add(“维护”)
D MsgBox(“执行输入功能”)
With combox.Width=120语句的含义（ ）
A 设置组合框宽度
B 指定要执行的过程
C 工具栏可见
D 设置组合框下拉列表数量
在VBA中，可使用CreateObject或GetObject功能返回一个到Word Application 对象的引用。（ ）
A 错
B 对
实现从word中进行excel操作必须要引用MicroSoft Excel 14.0 Object Libarary项（ ）
A 错
B 对
实现在word中对access的操作，需要进入“Visual Basic 编辑器”环境，在“工具”菜单上单击“引用”，在“可使用的引用”框中单击“Microsoft DAO 3.6 Object Library”。（ ）
A 对
B 错
在excel中向access添加一个新纪录的方法（ ）
A CopyFromRecordset方法
B AddNew方法
C OpenDatabase方法
D Updat方法e
实现将word中文本发送至PowerPoint中需进入VB编辑器，在“工具”菜单中选“引用”项。在“引用”对话框中选择“MicroSoft PowerPoint 14.0 Object Libarary”项。（ ）
A 错
B 对
Dir函数取出当前路径下第一个文件名（含扩展名）。（ ）
A 对
B 错
ThisDocument.Path取出当前路径名。（ ）
A 对
B 错
Sort方法对表格内容按扩展名、文件名进行排序并取消选中状态。（ ）
A 错
B 对
递归子程序的功能是，自己调用自己。（ ）
A 对
B 错
用GetFolder方法不可实现创建指定的文件夹对象。（ ）
A 对
B 错
fil Cells(22, 7), 1 调用子程序fil，对当前工作表的22行、7列单元格填写数值“1”。（ ）
A 错
B 对
Sub cls(rg As Range) With rg .ClearContents .Interior.ColorIndex = 2 .Borders.LineStyle = xlNone End WithEnd Sub 上述代码段的功能是：子程序用形参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 错
Set tbar = Application.CommandBars.Add(Temporary:=True) 上述代码段的功能是：工作簿打开时，通过这段代码建立一个临时自定义工具栏。（ ）
A 错
B 对
With tbar.Controls.Add(Type:=msoControlButton) .Caption = 导入课表 .Style = msoButtonCaption .OnAction = dr End With上述代码段的功能是：在工具栏放置按钮“导入课表”，指定要执行的子程序为dr。（ ）
A 对
B 错
tbar.Visible = True 上述代码段的功能是：令tbar自定义工具栏可见。（ ）
A 错
B 对
Weekday(Date, vbMonday) - 1上述代码段的功能是：用Weekday函数求出当前是星期几。第二个参数用vbMonday，则函数的返回值：1表示星期一、2表示星期二、……、7表示星期日。（ ）
A 错
B 对
Call sxl(w) 上述代码段的功能是：以w为实参，调用子程序sxl。（ ）
A 对
B 错
With butt1 .Caption = 提取 .Style = msoButtonCaption .OnAction = tq End With上述代码段的功能是：在工具栏上添加“提取”按钮，为按钮指定要执行的过程为tq。（ ）
A 对
B 错
在Excel“开发工具”选项卡“中，可以通过（ ）添加控件。
A “开始”选项卡“控件”组的“插入”下拉列表中，单击“对象”按钮
B “开发工具”选项卡“控件”组的“插入”下拉列表中，单击“其他控件”按钮
C “开始”选项卡“控件”组的“插入”下拉列表中，单击“其他控件”按钮
D “开发工具”选项卡“控件”组的“插入”下拉列表中，单击“对象”按钮
tbar.Visible = True Sheets(说明).Select上述代码段的功能是：让tbar工具栏可见，并选中“说明”工作表。（ ）
A 对
B 错
Set shr = ActiveSheet dqh = ActiveCell.Row上述代码段的功能是：设置shr为工作表变量，取出当前行号赋值给dqh变量。（ ）
A 对
B 错
Application.ScreenUpdating = False上述代码段的功能是：关闭当前屏幕更新。（ ）
A 错
B 对
对工作簿的Open事件编写代码时，可以建立临时自定义工具栏并使其可见，在工具栏上添加按钮，并指定要执行的过程。（ ）。
A 错
B 对
Set tbar = Application.CommandBars.Add(Temporary:=True) tbar.Visible = True上述代码段的功能是：建立临时自定义工具栏tbar，并设置其他属性为可见。（ ）
A 对
B 错
Set butt1 = tbar.Controls.Add(Type:=msoControlButton) With butt1 .Caption = 课程学时 .Style = msoButtonCaption .OnAction = calc End With上述代码段的功能是：在tbar工具栏上添加命令按钮butt1，按钮标题为“课程学时”，指定要执行的过程为“calc”。（ ）
A 对
B 错
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = 统计表 Then Application.SendKeys %x{ F6} Else Application.SendKeys %h{ F6} End IfEnd Sub上述代码段的功能是：对工作簿的SheetActivate事件编写代码，激活需要的选项卡。如果当前工作表为“统计表”时，激活功能区的“加载项”选项卡，否则激活“开始”选项卡。（ ）
A 错
B 对
hs = Range(A4).End(xlDown).Row上述代码段的功能是：求数据区A4到数据最后的有效行行数。（ ）
A 对
B 错
RANK(Number，Ref，Order) 函数的功能。（ ）
A 返回某数字在一列数字中的相对于其他数值的大小排名
B 返回某数字在一列数字中的相对位置关系
C 返回在一列数字中的排名最小的数值
D 返回在一列数字中的排名最大的数值
Do…… Loop Until jrs2 = 0上述语句功能是：当＜条件＞为真时继续循环。（ ）
A 错
B 对
jrs1 = Round(rs * 0.05, 0)上述语句功能是：使rs乘0.05，对结果四舍五入，值赋值给jrs1变量。（ ）
A 错
B 对
A = 10: B = 8: C = 6MyCheck = A ＞ B And B ＞ C上述语句的返回值是：（ ）。
A Null
B False
C 无返回值
D True
MyNumber = 34 + 6上述语句的返回值是：（ ）。
A 40
B 346
C 无返回值
D Null
tbar.Visible = True上述语句的功能是：使自定义工具栏tbar处于显示可见状态。（ ）。
A 错
B 对
With tbar.Controls.Add(Type:=msoControlButton) .Caption = 数据统计 .Style = msoButtonCaption .OnAction = tj End With上述语句的功能是：在自定义工具栏tbar上添加按钮，设置按钮的标题当前年龄、类型，指定要执行的过程（tj）。（ ）。
A 错
B 对
ny = Trim(Cells(k, 3))上述语句中Trim函数的功能是：Trim 函数可删除文本字符串中的所有空格，单词之间的单个空格除外。（ ）。
A 对
B 错
Year(Date)上述语句中Year函数的功能是：Year 函数可用于返回日期/时间值的年部分，从 1900 开始。（ ）。
A 错
B 对
Set tbar = Application.CommandBars.Add(Temporary:=True) With tbar.Controls.Add(Type:=msoControlButton) .Caption = 当前年龄 .Style = msoButtonCaption .OnAction = age End With上述语句的功能是：在自定义工具栏tbar上添加按钮，设置按钮的为不可用状态。（ ）。
A 对
B 错
在Excel“开发工具”选项卡“控件”组的“插入”下拉列表中，单击“其他控件”按钮，可以添加所需要控件。（ ）。
A 对
B 错
Dim butt1 As CommandBarControl上述语句的功能是：语句声明模块级对象变量butt1。（ ）。
A 错
B 对
With butt1 .Caption = 统计 '按钮标题 .FaceId = 16 '按钮图符 .Style = msoButtonIconAndCaption '图文型按钮 .OnAction = tj '执行的过程 End With上述语句的功能是：在工具栏上添加“统计”按钮，为按钮指定一个图符，并指定要执行的过程为“tj”（ ）。
A 对
B 错
tbar.Visible = True Worksheets(第1项).Activate 上述语句的功能是：设置工具栏的可见属性，选择“第1项”为当前工作表。（ ）。
A 错
B 对
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.SendKeys %X{ F6} If Sh.Name = 总分 Then butt1.Enabled = False Else butt1.Enabled = True End IfEnd Sub上述语句的功能是：SheetActivate事件在工作簿的当前工作表改变时产生，在此激活功能区的“加载项”选项卡，对工具栏中按钮的可用性进行控制。如果当前工作表为“总分”，则使工具栏“统计”按钮不可用，否则可用。（ ）。
A 错
B 对
智慧树VBA程序开发与应用
随着信息技术的不断发展，VBA程序在企业中的应用越来越广泛。VBA（Visual Basic for Applications）是一种应用程序开发语言，它可以在Microsoft Office应用程序中编写和运行宏。在智慧树
