VBA 编程实现 PPT 演示模式下实验数据即时输入并自动运算出结果摘 要：利用 VBA 编程成功解决 PPT 演示模式下可即时手动输入实验数据并自动运算即时呈现结果的久而未决的难题，为测密度、杠杆平衡条件、探究电流与电压电阻关系，测滑轮组机械效率，伏安法测电阻，探究滑变最大功率等涉及定量计算的实验课提高教学效率提供解决方法. 关键词：VBA 编程；PPT 演示模式下即时输入并自动运算；二次开发 1 背景 由于 PPT 演示在可视化教学、提高课堂效率、扩大教学容量等方面的显著作用，PPT 演示在当前教学中已经是许多教师离不开的教学手段，但也存在久而未决的问题：绝大多数老师无法在 PPT 演示模式下进行数据输入并进行自动运算，如果这个问题能够解决，这对理科老师在实验教学中快速处理实验数据，提高课堂效率大有裨益. Office 系统提供了强大的二次开发后台：VBA（Visual Basic for Applications）环境，主要能用来扩展 Microsoft Office 的应用程序功能，这当然包括 Microsoft Office 下的PowerPoint（PPT）. 本文通过研究 PowerPoint 下的 VBA 解决了这个问题，下面以测液体和不规则固体密度实验课为例，进行二次开发，提供 PPT 演示模式下实验数据即时输入并自动运算即时显示结果的解决方案. 2 任务 设计实验→进行测量→收集数据→PPT 演示模式下即时输入数据→PPT 演示模式下对即时输入数据进行自动运算（见图 1-图 4）. 3 实现方法 3.1 通过控件设置输入文本框（白格，以 TextBox1 为例，见图2） ，开启演示模式下数据输入功能，并设置文本框属性（见图 5、图 6）. 3.2 对自动运算文本框（灰格）进行编程，实现 PPT 演示模式下对即时输入数据进行自动运算. 3.2.1 对图 2 中石块的体积所在列灰格部分编程（以 TextBox4为例，见图 7）. 用意是：当 TextBox3 不为 0，TextBox4 的值才会是 TextBox3与 TextBox2 两文本框输入值的差，并保留两位小数，相当于表现算法：V=V2-V1. 3.2.2 ?ν?2 中石块的密度所在列灰格部分编程（以 TextBox5为例，见图 8）. 用意是：当 TextBox4 不为 0，TextBox5 的值才会是 TextBox1与 TextBox4 两文本框输入值的商，并保留两位小数，避免由于除数为零导致运算溢出，相当于表现算法：ρ=mv. 3.3 使用方法 事先要将 PPT 菜单中宏安全性调为低；演示模式下白格部分要手动输入实测数据，之后，鼠标点击灰格部分，按下空格键会依据实验数据自动计算并即时呈现结果. 4 该解决方案的作用和意义 分组实验完成后，老师可以在 PPT 放映模式下即时收集数据并输入相应文本框，自动显示结果，归纳实验结论，学生立即分享实验成果，而不是耽于反复演算而冲淡了体验实验过程和方法的课堂主题和乐趣. 类似测密度、探究杠杆平衡条件、探究电流与电压和电阻关系，测滑轮组机械效率，伏安法测电阻、电功率，探究滑变最大功率等涉及定量计算的实验课，利用此解决方法，可以大大提高效率，值得分享同行，共同提高教学水平. 参考文献： Office2003 系统自带 Visual Basic for Applications（VBA）本地计算机帮助文件.。
