[资料分享] Last tool for GRE 红宝2012—42个list的VBS版本，任何windows系统都能用，可发音带 [复制链接]

headhuanglan
UID: 2504319

高级会员

Rank: 5 Rank: 5

声望: 156
寄托币: 2118
注册时间: 2008-6-14
精华: 0
帖子: 282

电梯直达

楼主

发表于 2013-6-20 00:10:11 |只看该作者 |倒序浏览

看到有同学用matlab写了个Last tool for GRE的版本很开心...但是似乎不能显示音标？而且不能发音？且有不少同学是不用matlab的，但大部分同学肯定用windows系统，所以...写了个VBS版本的Last tool for GRE。使用方法：直接双击gre.vbs即可，乱序的单词背诵次序随机生成！
这次用的单词来源是最新GRE红宝书excel版2012年第一版！上个帖子是97年老版本的~更正下~~
（但还是要感叹。。。如果有琦叔3000的excel文件就好了。。。）
主要思路：用VBS脚本来操作excel，在excel中记录下是否已经背会当前单词，而且可以选择是否发音（若觉得发音会降低过单词速度的同学可以选择不发音），是否开启excel显示（不开启的话就直接弹窗来背单词），无论任何种方式，最终都会把背单词的次数和是否正确写入excel文件，最终可以通过excel筛选来查看自己多次背错的单词！
QQ图片20130620000459.jpg

本人专业并非信息技术相关。。。VBS脚本若有不足之处希望信息专业同学帮忙改进完善。程序暂时无法中途退出背诵，所以选了多少词就坚持到底吧！O(∩_∩)O~

LTFGRE.part2.rar (131.38 KB, 下载次数: 56)

LTFGRE.part1.rar (200 KB, 下载次数: 55)

附vbs代码~~：

Public Sub swap (a,b)
c = a: a = b: b = c
End Sub
Dim a()
Randomize
Set spell = CreateObject("sapi.spvoice")
currentfolder = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
Set ExcelApp  =  CreateObject("Excel.Application")
Set ExcelBook =  ExcelApp.Workbooks.open(currentfolder+"/gre.xlsx")
Set ExcelSheet = ExcelBook.Worksheets("新红宝2012")

flag1=MsgBox("是否显示GRE单词excel文件？", vbYesNo, "提示")
if flag1=vbYes then
ExcelApp.Visible = True
end if
flag=MsgBox("是否开启单词发音功能？", vbYesNo, "提示")
i = InputBox("输入起始序号:")
if i=1 then i=2
j = InputBox("请输入终止序号（最大为6497）:")
if j>6497 then j=6497
num=j-i+1
msgbox ("您选择的单词数目为:"&num)
ReDim a(num)
For k = 1 To num
  a(k) = i + k - 1
Next
For s = 1 To num
  Call swap(a(s), a(Int(Rnd() * num) + 1))
Next
For m = 1 To num
   if flag=vbYes then
      spell.speak ExcelSheet.Range("A"&a(m)).Value
   end if
   re=msgbox(ExcelSheet.Range("A"&a(m)).Value&ExcelSheet.Range("B"&a(m)).Value&ExcelSheet.Range("C"&a(m)).Value,vbYesNo,"加油！O(∩_∩)O~")

   if re=vbNo then
      ExcelSheet.Cells(a(m),4).value = ExcelSheet.Cells(a(m),4).value+1
   end if
ExcelSheet.Cells(a(m),5).value = ExcelSheet.Cells(a(m),5).value+1
Next

r=MsgBox("退出并关闭gre.xlsx？", vbYesNo, "提示")
If r = vbYes Then
ExcelBook.Close (True)
ExcelApp.Quit
Set ExcelApp = Nothing
Set spell = Nothing
end If

已有 1 人评分	声望	收起理由
泠泠曲罢	+ 1	很给力!

总评分: 声望 + 1 查看全部投币

相关帖子 Updated by 2026.02.28

• Last tool for GRE 新红宝+3000的VBS版本,带发音及音标！

0 0

使用道具举报

headhuanglan
UID: 2504319

高级会员

Rank: 5 Rank: 5

声望: 156
寄托币: 2118
注册时间: 2008-6-14
精华: 0
帖子: 282

沙发

发表于 2013-6-20 00:12:32 |只看该作者

本帖最后由 headhuanglan 于 2013-6-20 00:40 编辑

excel文件来源于 “最新GRE红宝书excel版2012年第一版” gter上资源汇总帖子里有...感谢原始作者！！！音标参照老红宝excel文件合并入新红宝。所以有的单词没音标。配合window的屏幕放大镜来一起使用效果更佳！
vbs文件需要做如下修改：
re=msgbox(ExcelSheet.Range("A"&a(m)).Value&ExcelSheet.Range("B"&a(m)).Value&ExcelSheet.Range("C"&a(m)).Value,vbYesNo,"加油！O(∩_∩)O~")
修改为以下。。。把空格替换为真实空格（防止词性的adj v 等显示时与单词连为一体）
re=msgbox(ExcelSheet.Range("A"&a(m)).Value&"空格"&ExcelSheet.Range("B"&a(m)).Value&ExcelSheet.Range("C"&a(m)).Value,vbYesNo,"加油！O(∩_∩)O~")

若背单词中途实在想退出，则可在任务管理器中结束wscipt.exe的进程和相应excel进程！希望有高手继续完善此刷词脚本！

双非DIY美硕申请总结

使用道具举报