Dim A As String, B As String
Private Sub Command1_Click()
         
                           '打开所抽的题中的填空题
     Open App.Path & "\01\填空题.txt" For Input As #1
     While (Not EOF(1))
        Input #1, A
        B = B & A & vbCrLf
    Wend
    Close #2, #3
    Text1.Locked = False
    Text1.Text = ""
    Text1.Text = B
    Text1.Locked = True
    End Sub

Private Sub Command2_Click()
                            '打开所抽的题中的改错题
    Open App.Path & "\01\改错题.txt" For Input As #2
    While (Not EOF(2))
        Input #2, A
        B = B & A & vbCrLf
    Wend
    Close #1, #3
    Text1.Locked = False
    Text1.Text = ""
    Text1.Text = B
    Text1.Locked = True
End Sub

Private Sub Command3_Click()
                            '打开所抽的题中的程序设计题
     Open App.Path & "\01\编程题.txt" For Input As #3
     While (Not EOF(3))
        Input #3, A
        B = B & A & vbCrLf
    Wend
    Close #1, #2
    Text1.Locked = False
    Text1.Text = ""
    Text1.Text = B
    Text1.Locked = True
End Sub
每一个按钮单击事件 下都不能彻底清除text1中的内容，就是#1，#2，#3这些建立的文件没哟彻底清除
请问大家怎么用kill进行删除

[[it] 本帖最后由 Boer 于 2008-10-14 14:36 编辑 [/it]]

这个难道你还看不懂吗  ？  我觉得我说得很明白了
就是访问几个装有记事本的文件  把其中的文本读取出来  放到textbox当中  
没点击一下按钮textbox中的文本都必须彻底清除 使新拷贝进来的文本能在textbox开始地方显示

我的意思就是要让textbox里面的内容更新
Dim A As Integer
A=20
A=30
' 现在A的值是50吗？
A里面的内容是30 我要的就是后来的值  
上面我的代码运行时始终把以前的内容替换不了  它直接就加在原来的内容后面
  还有我编程经历才刚刚开始 望高手指点

我知道默认Locked为True
我是想让textbox中的内容清空之后再赋予新的值
解决办法我是想彻底删除#1, #2，#3在内存中的值

晕我就是要吧以前的清除掉呀  但是 运行时就是清除不掉