在窗体上画一个文本框，当窗体载入时，在D盘的hm目录下创建一个“dat.dat”的文件，每次按回车键时将文本框内容保存到文件中，如果输入字符的大写“END”，则将结束输入。关闭文件，结束程序。回车的ASCII的值为13。

希望哪为能给我解决一下这个题目
在这里先谢谢了
望回复！

  谢谢了

Private Sub Form_Load()
Open "d:\hm\dat.dat" For Append As #1
End Sub
Private Sub Text1_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
If UCase(Right$(Text1.Text, 3)) = "END" Then
Close
Unload Me
Else
Write #1, Text1.Text
End If
End If
End Sub

呵呵，参考你的。我自己的方法！
使程序简单些了！！！