发了N次没有人结！？？？？

Question

Private Sub Timer1_Timer()
Static b '定义静态变量
'''''''''当command进入屏幕内，将从头出，
Command1.Left = Command1.Left + 50
If Command1.Left > Form1.Width Then
Command1.Left = 0
Open "C:\1.txt" For Input As #1
For i = 0 To b
If EOF(1) Then
close #1
b = 0
exit sub
End If
Input #1, a
Next
Command1.Caption = a
b = b + 1
End If
Close #1
End Sub

Answer 1

背单词，因该遵从爱宾豪斯曲线，就是允许用户自己记下不熟悉的单词，定次调出直到背会为止，我计划做一个这样的背单词软件，用vb-fso，数据来源--我爱被单词的文本文件。
你的问题究竟是什么？就是关闭文件再重新打开吗？？