程序代码 Private Sub Command1_Click()  '从根目录导入到text     Open App.Path & "\123.txt" For Binary As #1     Text1.Text = Input(LOF(1), 1)     Close #1 End Sub Private Sub Command2_Click()  '从根目录导入到list     Dim a As String     Open App.Path & "\123.txt" For Binary As #1     a = Input(LOF(1), 1)     Close #1     '-------------------------------------------导入变量     List1.Clear     Dim b() As String     Dim c As Integer     b = Split(a, vbCrLf)     For c = LBound(b) To UBound(b)         List1.AddItem b(c)     Next c     '-------------------------------------------分行导入 End Sub Private Sub Command3_Click() 'Text导入到list     List1.Clear     Dim b() As String     Dim c As Integer     b = Split(Text1.Text, vbCrLf)     For c = LBound(b) To UBound(b)         List1.AddItem b(c)     Next c End Sub Private Sub Command4_Click() 'list导入到Text     Dim a As Integer     Dim b As String     For a = 0 To List1.ListCount - 1         b = b & List1.List(a) & vbCrLf     Next a     Text1.Text = b End Sub