“英语单词学习与复习”ｐｐｔ课件的设计与应用分析.docVIP

第 PAGE 页 “英语单词学习与复习”ＰＰＴ课件设计与应用 　　单词教学是中小学英语教学重要环节。在学习新单词时，需要呈现英语单词与中文对照；当复习单词时，需要先呈现英文单词，再按需要呈现中文对照。本文应这种教学需求，介绍在PowerPoint中利用控件与VBA程序开发“英语单词学习与复习”课件方法。 　　一、课件演示幻灯片界面与功能简介 　　二、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 arrGroupNum(intLessonNum) Or CInt(txtGroupNum) 　　 Else 　　课号未达到课程数，组号未达到单词组数时，组号加1 　　txtGroupNum.Value = CInt(txtGroupNum.Value) + 1 　　 End If 　　 For i = 1 To 4 　　为省篇幅，此处略去与“开始学习新词”按钮单击事件代码相同循环内容 　　 Next i 　　End Sub 　　5.Slide3“开始复习新词”与“复习后续新词”按钮单击事件代码 　　Private Sub ReviewNewWords_Click()与 　　Private Sub ReviewNextWords_Click() 　　为省篇幅，此处略去与“开始学习新词”与“学习后续新词”按钮单击事件代码“相同”内容，只需将最后输入txtChinese文本框内容相关语句改为： 　　ActivePresentation.Slides(Slide3).Shapes.Item(txtChinese i).OLEFormat.Object.Text = 　　 清除“txtChinese”各文本框内容 　　6.Slide3鼠标滑过英文单词文本框时显示相应中文对照，鼠标滑过中文对照文本框时清空框中内容事件代码 　　Private Sub txtEnglish1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 以鼠标滑过txtEnglish1文本框为例，其余类似 　　 If txtLessonNum.Value Or txtGroupNum.Value Then 　　txtChinese1.Text = WordList.Cells(4* CInt(txtGroupNum) - 1, 2 * CInt(txtLessonNum) + 1).Value 　　 Else 　　txtChinese1.Text = 　　 End If 　　End Sub 　　Private Sub txtChinese1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As