英语单词学习与复习PPT设计与应用.docVIP

英语单词学习与复习PPT设计与应用 　　单词教学是中小学英语教学的重要环节。在学习新单词时，需要呈现英语单词和中文对照；当复习单词时，需要先呈现英文单词，再按需要呈现中文对照。本文应这种教学需求，介绍在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 (注意：第 intLessonNum 课所输入的组号应在1- arrGroupNum(intLessonNum) 范围内。): ChkInput = False: Exit Function 　　 End If 　　 ChkInput = True用户输入合理时，函数返回“真” 　　End Function 　　 　　3.Slide2“开始学习新词”按钮单击事件代码 　　Private Sub StudyNewWords_Click() 　　检查课号和组号文本框中输入的内容是否合理 　　 If (Not ChkInput()) Then Exit Sub