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]]

说地不明白，那些文件都是干什么的，是要生成的还是，原来就有

Text1.Locked = False
    Text1.Text = ""
    Text1.Text = B
    Text1.Locked = True


典型的没见过世面的代码……

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

你没看书。

Locked属性是指是否允许用户键入（修改）文本，不妨碍你的程序修改文本。
还有，你觉得不写xxx.text=""光写xxx.text=B那它的文本在拷贝文本前就不被清空了吗？

Dim A As Integer
A=20
A=30
' 现在A的值是50吗？

btw VB里删除文件最简单的是Kill，语法自己查。注意文件不移动到回收站。删除失败会引起错误。

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

不管你是什么情况
    Text1.Locked = False
    Text1.Text = ""
    Text1.Text = B
    Text1.Locked = True

与 Text1.Text=B没有任何区别。（默认Locked为True）

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

基本功不扎实    佩服领悟力

呵呵   抓紧搞基础啊

没看懂什么意思。

text1.text=B
时，一定会把前面的数据清掉，如果你不需要清掉的，就应该是

text1.text = text1.text & vbcrlf & b
这里是假设每段后面要换行。