Private Sub Command2_Click()

Dim f As Integer, str As String

str = "测试内容啊啊啊"

f = FreeFile()

Open "d:/dat777.csv" For Append As #f    '     ====   "," + Chr(34) + "内容222" + Chr(34)

Print #f, CStr(1) + "," + Chr(34) + Text1.Text + Chr(34); "," + Chr(34) + Text2.Text + Chr(34) + "," + Chr(34) + Text3.Text + Chr(34)

'Print #f, CStr(1) + "," + Chr(34) + "内容111" + Chr(34); "," + Chr(34) + "内容222" + Chr(34) + "," + Chr(34) + "内容3333" + Chr(34)

Close #f

End Sub