这学期选了vb选修课，学的不深，期末作业[Private Sub mnuFileOpen_Click()
    Dim sFile As String
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "我的记事本：" & FileName

    With dlgCommonDialog
        .DialogTitle = "打开"
        .CancelError = False
        'ToDo: 设置 common dialog 控件的标志和属性
        .Filter = "所有文件 (*.*)|*.*"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
    End Sub
    'ToDo: 添加处理打开的文件的代码   
           Private Sub mnuFileSave_Click()
 CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select

    MsgBox "添加 'mnuFileSave_Click' 代码。"
End Sub
     这个是打开和另存为运行之后打开框之后缺点什么求指教

这个怎么感觉是使用 应用程序  向导生成的代码段样的。

    'ToDo: 添加处理打开的文件的代码   

这个提示，你没处理吗，没看到打开文件的代码段，只看到弹出选择文件对话框的代码。
你这个是 使用的 富文件框，打开的代码可以很简单，不管内容，读取所有的内容，都按 rtf 的内容显示就可以了。
当然，你要自己判断一下，也行。