vb顺序文件的使用

磁盘上有File1.txt和File2.txt两个文件。要求将两个文件中的数据读出，并保存到一个新的文件File3.txt中。窗体上有“保存数据”(控件名称为cmdSave)和“读取数据”(控件名称为cmdRead)两个命令按钮。
答的好可以加分

既然要VB的代码，这里有！别忘了把D:\盘改成你的路径。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim s As String
Private Sub cmdRead_Click()
Open "d:\file1.txt" For Input As 1
Dim s1 As String
Do While EOF(1) = False
Line Input #1, s1
s = s + s1 + vbCrLf
Loop
Close 1
Open "d:\file2.txt" For Input As 2
Dim s2 As String
Do While EOF(2) = False
Line Input #2, s2
s = s + s2 + vbCrLf
Loop
Close 2
MsgBox "读取完毕，现在可以保存"
End Sub

Private Sub cmdSave_Click()
Open "d:\file3.txt" For Output As 3
Write #3, s
Close 3
MsgBox "保存完毕"
End Sub

Private Sub Form_Load()
cmdRead.Caption = "读取数据"
cmdSave.Caption = "保存数据"
End Sub