VBA程序开发与应用章节测试课后答案2024秋

第十一章单元测试

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

A:对 B:错
答案:对

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

A:对 B:错
内容已经隐藏，点击付费后查看
3. Set butt1 = tbar.Controls.Add(Type:=msoControlButton)
   With butt1
   .Caption = "课程学时"
   .Style = msoButtonCaption
   .OnAction = "calc"
   End With
   上述代码段的功能是：在tbar工具栏上添加命令按钮butt1，按钮标题为“课程学时”，指定要执行的过程为“calc”。（ ）

A:对 B:错
内容已经隐藏，点击付费后查看
4. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If Sh.Name = "统计表" Then
   Application.SendKeys "%x{F6}"
   Else
   Application.SendKeys "%h{F6}"
   End If
   End Sub
   上述代码段的功能是：对工作簿的SheetActivate事件编写代码，激活需要的选项卡。如果当前工作表为“统计表”时，激活功能区的“加载项”选项卡，否则激活“开始”选项卡。（ ）

A:对 B:错
内容已经隐藏，点击付费后查看
5. hs = Range("A4").End(xlDown).Row
   上述代码段的功能是：求数据区A4到数据最后的有效行行数。（ ）

A:对 B:错
内容已经隐藏，点击付费后查看
• «
• 1
• 2
• ...
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• »