寄托家园留学论坛

标题: Last tool for GRE 的VBS版本，任何windows系统都能用，可发音带音标！ [打印本页]

作者: headhuanglan 时间: 2013-6-19 23:07:52 标题: Last tool for GRE 的VBS版本，任何windows系统都能用，可发音带音标！

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

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

[attach]221744[/attach]

[attach]221743[/attach]
附~附件VBS代码：

'定义“交换”过程swap(a,b)——将a,b值互换，为了核心算法用
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")    '创建EXCEL对象
Set ExcelBook =  ExcelApp.Workbooks.open(currentfolder+"/gre.xlsx")
Set ExcelSheet = ExcelBook.Worksheets(1)

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("请输入终止序号（最大为6193）:")
if j>6193 then j=6193
num=j-i+1
msgbox ("您选择的单词数目为:"&num)
ReDim a(num)
'将从起始号i到终止号j的num个数放入a()
For k = 1 To num
  a(k) = i + k - 1
Next
'下面对数组a()中的元素制造出一个随机排列，以取sheet1中的行号
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  '给单元格D（a（m））赋值
   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 '结束EXCEL对象
Set ExcelApp = Nothing '释放App对象
Set spell = Nothing
end If

作者: compe 时间: 2013-6-19 23:15:05

感谢分享，thanks alot

作者: compe 时间: 2013-6-19 23:17:46

另外，论坛里面有3000的excel版，应该是last tool 红宝版改的，楼主有功夫开发的话可以传给你

:lol

作者: headhuanglan 时间: 2013-6-19 23:20:31

直接把地址贴到这个帖子后面，我有空的话看看！

作者: 核小酥 时间: 2013-6-19 23:23:12

文科僧膜拜大神！！！！！！！！！！！！！！

抱走

拜谢！！！

作者: headhuanglan 时间: 2013-6-19 23:29:43

compe 发表于 2013-6-19 23:17
另外，论坛里面有3000的excel版，应该是last tool 红宝版改的，楼主有功夫开发的话可以传给你

直接把文件地址发给我，我有空的话我看看，正发愁3000怎么过呢。。。。

作者: 小猪和大猪 时间: 2013-8-16 10:58:07

谢谢分享:p

作者: fddyn 时间: 2013-10-1 11:00:30

感谢分享，thanks alot

作者: ddxxrr 时间: 2014-4-7 20:18:49

楼主好人！

作者: 挪威蚂蚁 时间: 2015-4-26 06:39:21

感谢楼主分享资源！

作者: soloss 时间: 2016-1-24 13:35:11

:(

作者: soloss 时间: 2016-1-24 13:35:37

作者: 江公子 时间: 2016-1-29 17:27:58

感谢分享

作者: 于泊宁 时间: 2016-1-29 18:04:28

？？？东西呢？求分享

作者: Alaricsz 时间: 2016-5-26 23:55:24

thanks!

作者: liqinyou 时间: 2016-8-13 15:08:18

非常感谢

作者: Christinawee 时间: 2017-2-28 11:18:25

? 提示: 作者被禁止或删除内容自动屏蔽？

作者: 喵酱 时间: 2017-5-3 14:41:07

同楼上

作者: 姜花多寂寞 时间: 2018-8-4 14:44:30

谢谢楼主

作者: imzlolzz 时间: 2018-8-5 02:32:16

THank you!!!!

作者: winterstory 时间: 2018-8-23 16:10:09

提示: 作者被禁止或删除内容自动屏蔽？

作者: headhuanglan 时间: 2018-8-24 00:04:04

winterstory 发表于 2018-8-23 16:10
提示: 作者被禁止或删除内容自动屏蔽？

I didn't login for a long time, the account was stolen for phishing posts. That't the reason my account is banned. But, it's OK now.

作者: Jtiger6 时间: 2021-7-20 17:34:54

顶楼主，辛苦了。

欢迎光临寄托家园留学论坛 (https://bbs.gter.net/)