摘 要：利用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）本地计算机帮助文件.