錯誤提示
錯誤原因
open是vb6.0的語法，VB2013沒有open所以報(bào)錯
Dimname?AsString=?""
????????Dimage?AsInteger
????????name?=?InputBox("請輸入姓名")
????????age?=?InputBox("請輸入年齡")
????????FileOpen(1,?"d:\信息.txt",?OpenMode.Append)
????????WriteLine(1,?name,?age)
????????FileClose(1)
?FileOpen(1,?"d:\信息.txt",?OpenMode.Input)
????????Dimh?AsString
????????Dimj?AsString
????????Dimf?AsString
????????f?=?""
????????h?=?""
????????j?=?""
????????WhileEOF(1)?=?False
????????????f?=?LineInput(1)?&?vbCrLf?&?f
????????EndWhile
????????FileClose(1)
????????MsgBox("姓名"&?"??"&?"年齡"&?vbCrLf?&?f)
