简单背单词.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 '记录整个的单词序列
亲情作文450字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 lflo As String
Const hights = 4260
Const hightn = 2700
Private Sub Command1_Click() 'ok
If cklj <> "" Then
'调整大小
Form1.Height = hightn '收起控制
'启动时钟,并将此按钮设置为灰色
Timer1.Enabled = True
Timer1.Interval = 1000
Command1.Enabled = Fal
Command2.Enabled = True
El
End If
End Sub
Private Sub Command10_Click()
'打开自己的主页，展示自己的词库
Call openme("ur./379650356")
End Sub
Private Sub Command2_Click() 'ok
'调整大小
Form1.Height = hights '恢复正常大小
'时钟设置为0,开始测试按钮设置为可用
Timer1.Enabled = Fal
Timer1.Interval = 0
Command1.Enabled = True
Command2.Enabled = Fal
End Sub
Private Sub Command3_Click() 'ok
'停止时钟
Timer1.Interval = 0
If cklj <> "" Then
Call saveit '深呼吸的正确方法调用保存程序
El
End If
End
End Sub
Private Sub Command4_Click() 'ok
MsgBox ""
End Sub
'Over of 全局变量
Private Sub Command5_Click() '此按钮在程序正常加载词库且开始记单词后就不能按下 ok
cklj = InputBox("请输入词库路径【本程序附带词库或由词库生成程序生成的txt文件】（退出程序，请输：exit；初始化该词库，输入：redo济慈的诗）", "词库路径")
'提供退出程序的钩子
If cklj = "exit" Then
End
ElIf cklj = "redo" Then
Call redoit
End
El
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
El
cklj = lstone
Call lwd
Exit Sub
End If
El
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 '循环变量
'作为初始化数据，需要检验数据的合法性
'第一遍打开文件目的是检验文件合法性
Dim gets As String
Dim strs As Integer
Dim alls As Long
sts = 0 'sts等于1表示存在文件错误
nums = 0
eword = 0
Open cklj For Input As #1
Do While Not EOF(1)
Line Input #1, gets
If countj(gets) = 2 Then
nums = nums + 1
El
' sts = 1
End If
Loop
Clo #1
If sts = 1 Or nums = 0 Then
MsgBox "词库数据错误或不存在！请重新指定！"
cklj = lstone
nums = 0
Call Command5_Click
Exit Function
El
End If
lstone = cklj
'Begin getting data
'重定义
ReDim ids(nums)
ReDim words(nums)
ReDim define(nums)
'OVer
Open cklj For Input As #1
Do While Not EOF(1)
Line Input #1, gets
'i = i + 1
Call getstring(gets) '将一行分解成3部分，str1为状态，石str2为单词，结婚纪念日送什么礼物str3为释义
If str1 = "1" Or str1 = "0" Then
i = i + 1
If i <= nums Then
ids(i) = Val(str1)
If ids(i) = "1" Then
much = much + 1
吃货眼中的中国
El
End If
words(i) = str2
define(i) = str3
恬静的反义词El
'说明出现超出定义范围的事情，所以……
End If
El
eword = eword + 1
End If
Loop
Clo #1
'/处理eword存储的单词错误个数
If eword = 0 Then
El
MsgBox "程序已为您过滤" & eword & "个错误词库数据"
End If
'处理“加载已完成测试的词库的情况”
If much = nums Then
Form1.Height = hights '恢复正常大小
MsgBox "此词库已测试完成，请更换词库！"
Command5_Click
El
Label7.Caption = much
Label9.Caption = nums - much
End If
结果运用Label10.Caption = "加载完成"
End Function
Private Sub Command6_Click()
Text3 = ""
Call clsdata '停止时钟，保存结果，清空所有数据
End Sub
Private Sub Command7_Click()
timeout = Val(InputBox("请输入单词输入限时：", "限时设定", 10))
If timeout = 0 Then
Exit Sub
El
End If
