简单背单词.docVIP

简单背单词.txt老子忽悠孩子叫教育，孩子忽悠老子叫欺骗，互相忽悠叫代沟。▲ 男人 这花花世界，我要用什么颜色来吸引你。 All located varient define collection#定义大集合 Dim cklj, lstone As String 存放词库路径信息 Dim nowid As Long 当前单词的序号 Dim much As Long 当前所会的单词 Dim nums, eword As Long 词库中单词个数 eword=错误单词数量 Dim ids() As Long 记录目前测试的状态：1表示会了，0表示未记及未测试 Dim words() As String 记录整个的单词序列 Dim define() As String 记录单词释义 Dim str1, str2, str3 As String Dim stt, misy, cf As Integer stt时钟变量，用于说明状态：1表示正在做题，0表示在未做题状态 misy说明计时秒数，cf说明处于显示答案状态的时间 Dim timeout As Integer Dim selflo As String Const hights = 4260 Const hightn = 2700 Private Sub Command1_Click() ok If cklj lt;gt; Then 调整大小 Form1.Height = hightn 收起控制 启动时钟,并将此按钮设置为灰色 Timer1.Enabled = True Timer1.Interval = 1000 Command1.Enabled = False Command2.Enabled = True Else End If End Sub Private Sub Command10_Click() 打开自己的主页，展示自己的词库 Call openme(/379650356) End Sub Private Sub Command2_Click() ok 调整大小 Form1.Height = hights 恢复正常大小 时钟设置为0,开始测试按钮设置为可用 Timer1.Enabled = False Timer1.Interval = 0 Command1.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() ok 停止时钟 Timer1.Interval = 0 If cklj lt;gt; Then Call saveit 调用保存程序 Else End If End End Sub Private Sub Command4_Click() ok MsgBox wedown@163.com End Sub Over of 全局变量 Private Sub Command5_Click() 此按钮在程序正常加载词库且开始记单词后就不能按下 ok cklj = InputBox(请输入词库路径【本程序附带词库或由词库生成程序生成的txt文件】（退出程序，请输：exit；初始化该词库，输入：redo）, 词库路径) 提供退出程序的钩子 If cklj = exit Then End ElseIf cklj = redo Then Call redoit End Else End If 检验合法性 If Dir(cklj) = Or cklj = Then 清空可能的运行数据，初始化 much = 0: stt = 0: nums = 0 Timer1.Interval = 0 ReDim ids(nums) ReDim words(nums) ReDim define(nums) nowid = 0 Label5.Caption = Label7.Caption = Label9.Caption = Text1 = Text2 = 重新初始化 Text3 = lstone much = 0 nums = 0 If lstone = Then Exit Sub Else cklj = lstone Call lwd Exit Sub End If Else nums = 0 much = 0 Text3 = cklj lstone = cklj End If Call lwd 调用lwd=load words and definations End Sub Function lwd() 完成：仅含加载功能 Label10.Caption = 加载数据…… Dim i As Long 循环变量 作为初始化数据，需要检验数据的合法性 第一遍打开