Open "C:\Users\Administrator\Desktop\vb使用open方法读写文件.doc" For Input As #1RichTextBox1.Text = Input(LOF(1), #1)这是代码。