VBA程序开发与应用答案2023秋

第十四章测试

1.Dim butt1 As CommandBarControl
上述语句的功能是：语句声明模块级对象变量butt1。（ ）。
A:错 B:对
答案:B
2.With butt1
.Caption = "统计" '按钮标题
.FaceId = 16 '按钮图符
.Style = msoButtonIconAndCaption '图文型按钮
.OnAction = "tj" '执行的过程
End With
上述语句的功能是：在工具栏上添加“统计”按钮，为按钮指定一个图符，并指定要执行的过程为“tj”（ ）。
A:对 B:错 3.tbar.Visible = True
Worksheets("第1项").Activate
上述语句的功能是：设置工具栏的可见属性，选择“第1项”为当前工作表。（ ）。
A:错 B:对 4.Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.SendKeys "%X{F6}"
If Sh.Name = "总分" Then
butt1.Enabled = False
Else
butt1.Enabled = True
End If
End Sub上述语句的功能是：SheetActivate事件在工作簿的当前工作表改变时产生，在此激活功能区的“加载项”选项卡，对工具栏中按钮的可用性进行控制。如果当前工作表为“总分”，则使工具栏“统计”按钮不可用，否则可用。（ ）。
A:对 B:错 5.Application.DisplayAlerts = True 上述语句的功能是：打开删除确认。（ ）。
A:错 B:对