Withtbar.Controls.Add(Type=msoControlButton).Caption=“导入课表”.Style=msoButtonCaption.OnAction=“dr”EndWith上述代码段的功能是：在工具栏放置按钮“导入课表”，指定要执行的子程序为dr