多啦X梦521
一、有道词典：
有道词典是网易公司开发的一款翻译软件，最大特色在于其翻译是基于搜索引擎，网络释义的，也就是说它所翻译的词释义都是来自网络。
二、百词斩：
“百词斩”是一款网红背单词APP，可以离线使用，0流量背单词。
三、沪江开心词场：
游戏化背词体验，好友PK大战，排行榜激励机制，社团讨论吐槽…在这里背词，除了收获更好的自己，你还会很开心！
背单词技巧：
逻辑记忆：
通过词本身的内部逻辑关系，词与词之间的外部逻辑关系记忆单词。
① 把几个字母看作做一个来记 如："ight" light, right, fight, night, might, sight, tight。
② 外旧内新，如：bridge "桥"看成 b+ridge "ridge（山脊）。
联想记忆：
① 音与形的联想，即根据读音规则记忆单词。
② 形与义的联想，如：eye 把两个e看成两个眼。banana 把a看成一个个的香蕉。bird 把b和d看成两个翅膀。
③ 象声词，联想实际的声音，如：gong 锣；coo 咕咕声。
分类记忆：
把单词进行分门类 如：动物，植物等，进行分类记忆。你可以找一本分类字典作为参考。
卡片记忆：
自制作单词卡片随时随身进行记单词，卡片写上单词的词形、词性、词义、音标、搭配、例句等。
西安指纹锁
1、知米背单词
知米背单词 创新性地以搭配记单词。利用搭配记单词的好处有：
（1）单词不再孤立地记，而是串联起来记；
（2）单词不再机械地记，而是在理解基础上记；
（3）单词不再抽象地记，而是在应用场景中记。
2、有道词典
有道词典通过独创的网络释义功能，轻松囊括互联网上的流行词汇与海量例句，并完整收录《柯林斯高级英汉双解词典》、《21世纪大英汉词典》等多部权威词典数据，词库大而全，查词快且准。结合丰富的原声视频音频例句，总共覆盖3700万词条和2300万海量例句 。
有道词典集成中、英、日、韩、法多语种专业词典，切换语言环境，即可快速翻译所需内容，网页版有道翻译还支持中、英、日、韩、法、西、俄七种语言互译。
新增的图解词典和百科功能，提供了一站式知识查询平台，能够有效帮助用户理解记忆新单词，而单词本功能更是让用户可以随时随地导入词库背单词，英语学习轻松get！
3、单词风暴
单词风暴（WordStorming）是使用全新记忆理念精心打造的一款多语言背单词软件，在记忆中首次引入头脑风暴（BrainStorming），激发大脑潜能，并充分发挥电脑辅助记忆的优势，运用多种科学的统计分析模型以及艾宾浩斯记忆曲线分析用户的记忆行为。
科学地管理记忆过程，确保最大程度地抵抗遗忘，使用户以最短的时间进行大量的记忆成为可能。单词风暴也是第一个同时具有手机版和电脑版的背单词软件。
4、扇贝单词
扇贝单词是由扇贝网提供的英语单词学习APP。开发者为南京贝湾信息科技有限公司。 2019年4月扇贝单词升级为扇贝单词英语版。
扇贝单词英语版是基于启发式学习法的词汇软件，在学习过程中，系统不会立刻告知答案，会让用户自行判断是否认识这个单词，并根据例句判断释义，帮助用户回忆和理解。
5、百词斩
百词斩是由成都超有爱科技有限公司针对英语学习开发的一款“图背单词软件”。软件为每一个单词提供了趣味的配图和例句，让记单词成为一种乐趣。2019年12月，教育部办公厅公布第一批教育App备案名单，百词斩通过备案。
参考资料来源：
百度百科——知米背单词
百度百科——有道词典
百度百科——单词风暴
百度百科——扇贝单词
百度百科——百词斩
追梦少年0215
窗体1：Dim vb As ECPrivate Sub Timer1_Timer() If Label3.Left + Label3.Width > 0 Then Label3.Move Label3.Left - 60 Else Label3.Left = frmYH.ScaleWidth End IfEnd SubPrivate Sub cmdAdd_Click()Dim w() As ECDim i%Dim j%Dim n%Dim p%i = 1txtWord.Text = " "txtmean.Text = " "Open "c:\cc5.txt" For Random As #1 Len = Len(vb)While Not EOF(1)Get #1, i, vbi = 1 + iWendp = i - 1n = InputBox("请输入要添加的单词个数")ReDim w(n)For j = 1 To nw(j).Word = InputBox("请输入单词")w(j).Explon = InputBox("请输入解释")vb = w(j)Put #1, p, vbp = p + 1Next jMsgBox "添加成功"Close #1End SubPrivate Sub cmdDel_Click()Dim s As String * 10Dim fn As StringDim t1%Dim t2%Dim i%Dim b%Dim j%Dim g%Dim m%Text1.Text = " "Text2.Text = " "s = InputBox("请输入要删除的单词")Open "c:\cc5.txt" For Random As #1 Len = Len(vb)i = 1Do Until EOF(1)Get #1, i, vbIf Trim(s) = Trim(vb.Word) Thenb = iExit DoEnd Ifi = i + 1LoopIf Trim(s) <> Trim(vb.Word) ThenMsgBox "没有这个单词"Close #1Exit SubEnd Ifm = 1Do Until EOF(1) Get #1, m, vb m = m + 1 Loop m = m - 1 fn = "c:\cc4.txt" Select Case b Case 1 Open fn For Random As #2 Len = Len(vb) j = 1 g = 2 Do Until EOF(1) Get #1, g, vb Put #2, j, vb j = j + 1 g = g + 1LoopClose #1Kill "c:\cc5.txt"MsgBox "删除成功" Case 2 To m - 1Open fn For Random As #2 Len = Len(vb) j = 1 For x = 1 To b - 1 Get #1, x, vb Put #2, j, vb j = j + 1 Next xDo Until EOF(1) Get #1, b + 1, vb Put #2, j - 1, vb b = b + 1 j = j + 1 Loop Close #1 Kill "c:\cc5.txt" MsgBox "删除成功" Case m Open fn For Random As #2 Len = Len(vb)For j = 1 To m - 1 Get #1, j, vb Put #2, j, vb Next j Close #1 Kill "c:\cc5.txt" MsgBox "删除成功" End Select Close #2Open "c:\cc5.txt" For Random As #1 Len = Len(vb)Open "c:\cc4.txt" For Random As #2 Len = Len(vb)j = 1Do Until EOF(2) Get #2, j, vb Put #1, j, vb j = j + 1LoopClose #1Close #2Kill "c:\cc4.txt"End SubPrivate Sub cmdEixt_Click()EndEnd SubPrivate Sub cmdFind_Click()Dim t As String * 10Dim i%i = 1t = txtWord.TextOpen "c:\cc5.txt" For Random As #1 Len = Len(vb)Do Until EOF(1)Get #1, i, vbIf Trim(t) = Trim(vb.Word) Thentxtmean.Text = vb.ExplonExit DoEnd Ifi = i + 1 LoopIf Trim(t) <> Trim(vb.Word) ThenMsgBox "找不到这个单词" End IfClose #1End SubPrivate Sub Form_Load() Dim vb As ECOpen "c:\cc5.txt" For Random As #1 Len = Len(vb)For i=1 to 100vb.Word = inputbox("输入单词")vb.Explon = inputbox("输入释义")Put #1, i, vbNext iClose #1End Sub模块：Type ECWord As String * 10Explon As String * 8End Type
