Private Sub Command2_Click()
Dim a, b, c As String
Open "C:\1.txt" For Input As #1
Line Input #1, a
Line Input #1, b
Line Input #1, c
Close #1
Open "C:\2.txt" For Append As #1
Print #1, b
Print #1, c
Close #1
End Sub
VB6.0还是vb2008
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024