“英语单词学习与复习”PPT课件的扩展设计――随机复习新单词.doc
-
资源ID:1588096
资源大小:13.80KB
全文页数:2页
- 资源格式: DOC
下载积分:2元
快捷下载
会员登录下载
微信登录下载
微信扫一扫登录
友情提示
2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
|
“英语单词学习与复习”PPT课件的扩展设计――随机复习新单词.doc
“英语单词学习与复习”课件的扩展设计随机复习新单词 通用变量 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() arrWordNum = 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) & "|" '记录随机产生单词的“|课号.词号|” 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