菜鸟级问题－文件怎么输不出来

Question

新建一工程，添加一个命令按钮command1,执行下列代码：
Private Sub Command1_Click()
   Dim filenum
   Dim name As String, a1 As String
   Dim age As Integer, a2 As Integer
   Dim sex As String, a3 As String
   finenum = FreeFile
   Open "d:\testfile.txt" For Output As filenum
   name = "张三"
   age = 20
   sex = "男"
   Write #filenum, name, age, sex
   Close (filenum)
   Open "d:\testfile.txt" For Input As filenum
   Input #filenum, a1, a2, a3
   MsgBox a1
   MsgBox a2
   MsgBox a3
End Sub执行时提示错误的文件名或号码

Answer 1

Private Sub Command1_Click()
   Dim filenum
   Dim name As String, a1 As String
   Dim age As Integer, a2 As Integer
   Dim sex As String, a3 As String
   filenum= FreeFile''finenum 这个错了
   Open "d:\testfile.txt" For Output As filenum
   name = "张三"
   age = 20
   sex = "男"
   Write #filenum, name, age, sex
   Close (filenum)
   Open "d:\testfile.txt" For Input As filenum
   Input #filenum, a1, a2, a3
   MsgBox a1
   MsgBox a2
   MsgBox a3
End Sub

Answer 2

打错字了，
finenum = FreeFile ====》 filenum = FreeFile