单词教学是中小学英语教学的重要环节。在学习新单词时，需要呈现英语单词和中文对照；当复习单词时，需要先呈现英文单词，再按需要呈现中文对照。本文应这种教学需求，介绍在PowerPoint中利用控件和VBA程序开发“英语单词学习与复习”课件的方法。
　　
　　一、课件演示幻灯片界面与功能简介
　　
　　单词选自北京市义务教育课程改革实验教材（九年级）Unit 1的Lesson 1～4（单词数分别为：16、18、14、9个）。课件将各课中每4个单词视为1组。新单词顺序学习幻灯片（Slide2）界面（如下图），采用“标题和两栏文本”版式：“标题区”含标题、供输入所学单词的课号（txtLessonNum）和组号（txtGroupNum）文本框；“左栏文本区”含“English”、等号、放置4个英文单词的文本框（txtEnglish1～4）；“右栏文本区”含“中文”和放置中文对照的文本框（txtChinese1～4）；底部安排了“开始学习新词（StudyNewWords）”、“学习后续新词（StudyNextWords）”和“清除全部（ClearAll）”3个按钮；右上角图标对应Microsoft Office Spreadsheet 11.0控件数据源（WordList），放置有Lesson 1～4各课新词。在VBA编辑器窗口单击F4键后，幻灯片及所有控件名称均可在“属性”窗口修改。新单词顺序复习幻灯片（Slide3）界面布局类似于Slide2，只是“开始复习新词”和“复习后续新词”按钮实现的功能略异。
　　
　　
　　二、VBA程序的设计与编制
　　
　　请读者注意前两个事件的对应代码在单词课号和组号内容为“空、不全为数字或数字不合适”的情况下相关容错与提示信息的处理方法。
　　
　　1.Slide2和Slide3通用变量声明
　　Dim I As Integer
　　Dim arrGroupNum As Variant’存放各课的单词组数
　　Dim intLessonNum As Integer’存放当前课程的序号
　　
　　2.Slide2和Slide3检查用户输入内容是否合理的无参函数
　　Private Function ChkInput() As Boolean ’初始化各课的单词组数
　　 arrGroupNum = Array(0, 4, 5, 4, 3)
　　’在课号和组号文本框中无内容时，赋值为1
　　 If txtLessonNum.Text = "" Then txtLessonNum.Text = "1"
　　 If txtGroupNum.Text = "" Then txtGroupNum.Text = "1"
　　 If Not IsNumeric(txtLessonNum.Value) Or Not IsNumeric(txtGroupNum.Value) Then
　　 ’在课号和组号文本框中输入内容不全为数字时，给出提示信息，返回False并退出函数
　　MsgBox ("请在“Lesson”和“Group”文本框中均输入“数字”。"): ChkInput = False: Exit Function
　　 Else
　　 ’ 向当前课号变量赋值
　　intLessonNum = CInt(txtLessonNum.Text)
　　 End If
　　 If CInt(txtLessonNum) > 4 Or CInt(txtLessonNum < 1) Or CInt(txtGroupNum) < 1 Then
　　MsgBox ("注意：所输入课号应为1～4范围内的整数，组号应为≥1的整数。"): ChkInput = False: Exit Function
　　 ElseIf (CInt(txtGroupNum) > arrGroupNum(intLessonNum) Or CInt(txtGroupNum) < 1) Then
　　MsgBox ("注意：第"