你的代码呢,贴出来看看

你好
我的程序如下，请查一查错误出在什么地方？

Private Sub Command1_Click()
dim a,b,c
a=text1.text:b=text2.text:c=text3.text
If nFile=newFile then
Open "f:\myfile.txt" For Append As nFile
print "年","月","日"
close
Else
Open "f:\myfile.txt" For Append As nFile
print a,b,c
close
End if
End Sub

Private Sub Command1_Click()
Dim a, b, c
Dim nFile As Integer
Dim str As String
nFile = FreeFile
Open "f:\myfile.txt" For Append As nFile
If LOF(nFile) = 0 Then
Print #nFile, "年", "月", "日"
End If

a = Text1.Text: b = Text2.Text: c = Text3.Text
Print #nFile, a, b, c
Close #nFile
End Sub

有点小错误,改了一下

[此贴子已经被作者于2007-6-19 13:43:09编辑过]

你好：
你辛苦了，谢谢你，程序的过程，我大致看懂了。不过还有点小问题。
我想知道下面这个小程序是什么意思，我不懂，
Open "f:\myfile.txt" For Input As nFile
Line Input #nFile, str
Close #nFile
请你解释一下，好吗？

从myfile.txt中读出第一行

你好，
你的责任心很强，我非常感谢你
这次的程序我一看就明白了，以后多交流。
不过，我还有问题要向你请教：
如何将生成的exe文件能够在其他机子上的windows下运行？

将程序打包
1.外接程序->外接程序管理器->打包和展开向导
选中加载/卸载,启动时加载
2.外接程序->打包和展开向导

请问此程序设计者,您的意图是不是把a,b,c,即3个TEXT的值输出来,初学者,请解释一下,您的运行结果是哪个值?谢谢

就是a,b,c,即3个TEXT的值

你好：
首先，谢谢你的帮助。
我的小程序终于可以运行了，省了不少事。
我想说一有关打包的问题，你给评判一下，看是否有错，若是有错的话，请你给予指正，我的做法是：
先将程序编好，然后，保存，之后，按照你所说的打包方法进行打包，最后，生成exe文件。

不过有一个问题就是，运用“外接程序--打包和展开”时，总有一个提示，要求先保存，当按完确定之后，也不知是否已打包了？打包时有其他变化吗？