程序代码 Private Sub Command1_Click() '以(覆盖)模式导出text     Open App.Path & "\123.txt" For Output As #1     Print #1, Text1.Text     Close #1 End Sub Private Sub Command2_Click()'以(追加)模式导出text     Open App.Path & "\123.txt" For Append As #1     Print #1, Text1.Text     Close #1 End Sub Private Sub Command3_Click()'导出list     Dim a As Integer     Dim b As String     For a = 0 To List1.ListCount - 1         b = b & List1.List(a) & vbCrLf     Next a     '-------------------------------------------整理文本     Open App.Path & "\123.txt" For Output As #1     Print #1, b     Close #1     '-------------------------------------------正式导出 End Sub