VBA程序开发与应用答案2023

第十一章测试

1.对工作簿的Open事件编写代码时，可以建立临时自定义工具栏并使其可见，在工具栏上添加按钮，并指定要执行的过程。（ ）。
A:对 B:错
答案:A
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:对