《“英语单词学习与复习”PPT课件的扩展设计――随机复习新单词.doc》由会员分享,可在线阅读,更多相关《“英语单词学习与复习”PPT课件的扩展设计――随机复习新单词.doc(2页珍藏版)》请在三一文库上搜索。
1、“英语单词学习与复习”课件的扩展设计随机复习新单词 通用变量 Dim i, m(1 To 4), n(1 To 4) As Integer Dim arrWordNum As Variant存放各课的单词数 Dim strWordMark As String 记录随机单词“|课号.词号|” Dim strReviewedWords As String 存放已显单词“|课号.词号|.” Dim IntWordSum As Integer 存放已显示过的单词数 “随机复习新词(ReviewNewWords)”按钮单击事件代码 Private Sub ReviewNewWords_Click() a
2、rrWordNum = Array(0, 16, 18, 14, 9)初始化各课的单词组数 If IntWordSum = 57 Then MsgBox (注意:您已经复习完所有单词。): Exit Sub End If Randomize 以系统当前时间作为产生随机数的种子数 For i = 1 To 4 Do 取一个没有显示过的单词 m(i) = Int(4 * Rnd + 1) 课程随机序号 n(i) = Int(arrWordNum(m(i) * Rnd + 1) 该课单词随机序号 strWordMark = | & m(i) & . & n(i) & | 记录随机产生单词的“|课号.
3、词号|” Loop Until IntWordSum = 57 Or InStr(strReviewedWords, strWordMark) = 0 IntWordSum = IntWordSum + 1记录已经显示过单词的数目 记录已经显示过单词的“|课号.词号|.” strReviewedWords = strReviewedWords & strWordMark 按课号和组号向“txtEnglish”各文本框循环输入WordList相应单元格的英文新词 ActivePresentation.Slides(Slide4).Shapes.Item(txtEnglish & i).OLEFormat.Object.Text = IIf(IntWordSum