一个很简单的VB小程序轻松指导下拿取100分

关于这同一个问题，我这是第四问了，都回答了就可以拿到100分了。我现在把程序贴出来，不知道为什么RichTextBox里显示的是乱码，费了好长时间也无法找到原因，请大侠指导一下。
Private Sub Command1_Click()
RichTextBox1.FileName = Replace(Dir1.Path & "\" & File1.FileName, "\\", "\")
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
Drive1.Drive = "d:\"
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
File1.Pattern = "*.doc;*.rtf"
End Sub

用vb编一个很简单的小程序 关于VB一个简单的小程序，菜鸟提问 vb的一个小程序 一个简单的小程序。 用VB设计一个很简单的程序 一个很简单的vb程序(我初学 不会) 求一个比较简单的vb程序 [在线等] ：一个简单的vb程序 请教一个简单的vb程序 一个简单的VB程序问题