Setbutt=tbar.Controls.Add(Type=msoControlButton)Withbutt.Caption=“课程学时”.Style=msoButtonCaption.OnAction=“calc”EndWith上述代码段的功能是：在tbar工具栏上添加命令按钮butt，按钮标题为“课程学时”，指定要执行的过程为“calc”