Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
Beep
MsgBox "数据不全"
Exit Sub
End If
内容 = Text2.Text
日期 = Text1.Text
天气 = Combo1
Write #1, 内容, 日期, 天气
Text2.Text = ""
Text2.SetFocus
End Sub

我仿照书上，练习做了个窗体，为啥运行到
Write #1, 内容, 日期, 天气
提示错误
且，输入内容关闭后，下次打开，有是空白，也就是内容无法保留？

你是在写啥？没打开文件就直接写文件？

没看到有open也没有看到有close

怎么看不懂啊。我这几天也正为这个发愁，好郁闷，还请哪位高手指点指点顺序文件和随机文件怎么弄！谢谢！