论文部分内容阅读
在前文基础上，如果教师需要从单词表中挑选出重点讲授的某些单词，学生需要根据各自的实际情况挑选出比较难记的单词。那就需要利用控件和VBA程序开发建立与应用Excel动态“英语重点单词库”。本文将详述该课件的制作方法。
一、课件演示幻灯片界面与功能简介
课件演示“顺序复习新单词时挑选重点单词入库”幻灯片（Slide8）界面如图所示，它在前文slide3基础上添加了复选框（CheckBox1～4）、库中重点词数文本框（txtWordNum）、“重点单词入库（PutWordIn）”和“检查库中重点词数（CheckWordNum）”2个按钮，单击前一按钮可将用户选择的重点单词及其中文对照送到“重点单词库.xls”文件第2、3列，单击后一按钮可检查上述库文件中所保存的重点单词数。“重点单词的顺序与随机复习”幻灯片（Slide10）界面，布局类似于Slide8，但删除了txtLessonNum文本框和4个复选框，左边三个按钮则改为“开始复习重点词”、“复习后续重点词”、“随机复习重点词”。
二、VBA程序的设计与编制
限于篇幅，本文只介绍幻灯片Slide8各按钮单击事件、相关进程与函数的编制。幻灯片Slide10的相关事件和参数请读者结合案例提供的代码自学。
1.Slide8通用变量声明
Dim i, j, k As Integer
Dim arrGroupNum As Variant’存放各课的单词组数
Dim intLessonNum As Integer’存放当前课程的序号
Dim arrGroupNum As Variant ’存放各课的单词组数
Dim ExcelApp As Excel.Application
Dim ExcelBook As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
2.Silde8“开始复习新词”和“复习后续单词”按钮单击事件代码
请参阅前文Slide2幻灯片同名事件代码，并在“复习后续单词”按钮最后的循环中添加下列语句：
’取消选中“CheckBox”各复选框
ActivePresentation.Slides("Slide8").Shapes.Item("CheckBox"
一、课件演示幻灯片界面与功能简介
课件演示“顺序复习新单词时挑选重点单词入库”幻灯片（Slide8）界面如图所示，它在前文slide3基础上添加了复选框（CheckBox1～4）、库中重点词数文本框（txtWordNum）、“重点单词入库（PutWordIn）”和“检查库中重点词数（CheckWordNum）”2个按钮，单击前一按钮可将用户选择的重点单词及其中文对照送到“重点单词库.xls”文件第2、3列，单击后一按钮可检查上述库文件中所保存的重点单词数。“重点单词的顺序与随机复习”幻灯片（Slide10）界面，布局类似于Slide8，但删除了txtLessonNum文本框和4个复选框，左边三个按钮则改为“开始复习重点词”、“复习后续重点词”、“随机复习重点词”。
二、VBA程序的设计与编制
限于篇幅，本文只介绍幻灯片Slide8各按钮单击事件、相关进程与函数的编制。幻灯片Slide10的相关事件和参数请读者结合案例提供的代码自学。
1.Slide8通用变量声明
Dim i, j, k As Integer
Dim arrGroupNum As Variant’存放各课的单词组数
Dim intLessonNum As Integer’存放当前课程的序号
Dim arrGroupNum As Variant ’存放各课的单词组数
Dim ExcelApp As Excel.Application
Dim ExcelBook As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
2.Silde8“开始复习新词”和“复习后续单词”按钮单击事件代码
请参阅前文Slide2幻灯片同名事件代码，并在“复习后续单词”按钮最后的循环中添加下列语句：
’取消选中“CheckBox”各复选框
ActivePresentation.Slides("Slide8").Shapes.Item("CheckBox"