错误提示
错误原因
open是vb6.0的语法,VB2013没有open所以报错
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)
网友评论