Open sOutfile For Append As #2 'psoutfile.txt
Print #2, "Iter: ", nIter, " Best val: ", fPbestVal(iGbest); Now
Print #2, "Neighborhood size (0 is global): ", iLOCAL
For iDimindex = 1 To iDIMENSIONS
Print #2, "Dim. ", iDimindex, "Pos. ", fPos(iGbest, iDimindex)
Next iDimindex
Close #2
有这样一个打印数据程序段在一个循环里面，每一个循环运行一次，但是到下一次循环的时候就把前一次的给覆盖了，我现在不想让他覆盖原先的出来的数据，想让他每个循环出来的数据都在，应该怎么写啊？

叫别人给你调试程序就给别人个方便还好啊？
你这里头该定义的变量没定义
还有一堆看不懂的函数
我这里简单改了一下，没发现有问题啊。执行了三次 文本大小从1KB增加到3KB了

唯一的可能性是你那里的函数有副作用

我测试的是这样的程序：

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Open "c:\psoutfile.txt" For Append As #2 'psoutfile.txt
Print #2, "Iter: ", 123, " Best val: ", 5555, Now
Print #2, "Neighborhood size (0 is global): ", 55555
For i = 1 To 12
Print #2, "Dim. ", i, "Pos. ", 122
Next
Close #2
End Sub

执行三次后txt文件的内容：
Iter: 123 Best val: 5555 2007-8-3 17:42:50
Neighborhood size (0 is global): 55555
Dim. 1 Pos. 122
Dim. 2 Pos. 122
Dim. 3 Pos. 122
Dim. 4 Pos. 122
Dim. 5 Pos. 122
Dim. 6 Pos. 122
Dim. 7 Pos. 122
Dim. 8 Pos. 122
Dim. 9 Pos. 122
Dim. 10 Pos. 122
Dim. 11 Pos. 122
Dim. 12 Pos. 122
Iter: 123 Best val: 5555 2007-8-3 17:42:58
Neighborhood size (0 is global): 55555
Dim. 1 Pos. 122
Dim. 2 Pos. 122
Dim. 3 Pos. 122
Dim. 4 Pos. 122
Dim. 5 Pos. 122
Dim. 6 Pos. 122
Dim. 7 Pos. 122
Dim. 8 Pos. 122
Dim. 9 Pos. 122
Dim. 10 Pos. 122
Dim. 11 Pos. 122
Dim. 12 Pos. 122
Iter: 123 Best val: 5555 2007-8-3 17:42:58
Neighborhood size (0 is global): 55555
Dim. 1 Pos. 122
Dim. 2 Pos. 122
Dim. 3 Pos. 122
Dim. 4 Pos. 122
Dim. 5 Pos. 122
Dim. 6 Pos. 122
Dim. 7 Pos. 122
Dim. 8 Pos. 122
Dim. 9 Pos. 122
Dim. 10 Pos. 122
Dim. 11 Pos. 122
Dim. 12 Pos. 122
Iter: 123 Best val: 5555 2007-8-3 17:42:58
Neighborhood size (0 is global): 55555
Dim. 1 Pos. 122
Dim. 2 Pos. 122
Dim. 3 Pos. 122
Dim. 4 Pos. 122
Dim. 5 Pos. 122
Dim. 6 Pos. 122
Dim. 7 Pos. 122
Dim. 8 Pos. 122
Dim. 9 Pos. 122
Dim. 10 Pos. 122
Dim. 11 Pos. 122
Dim. 12 Pos. 122

能把你的qq，或者msn给我吗，我和你直接聊，这个只是部分的程序
谢谢了

主要是这些定义的变量，每一个循环出来的值都在变，不是一样的

每一次循环后(打印)给它定一个坐标,坐标不同就可了啊
或者再每一次循环最后的一个字段加一个vbCrLf(回车符与换行符结合)