Private Sub Command1_Click()
Dim ppp As Single
    For ppp = 0 To 10 Step 0.5
        aaa = yita(0.6, ppp, 300, 0.01, 2000, 1800, 0.6, 120, 60, 3, 0.3, 6.2, 5, 800, 600, 400, 2.2, 1.9, 2.2, 1000, 800, 206000)
        Print ppp, aaa
 Next ppp
End Sub
Private Sub Command2_Click()
    Unload Me
End Sub

这是我程序的一部分，我在运行之后，在form1里会产生一系列数据，我想将这些数据存到txt文件中，该如何在其中加入代码，求高手指教！我急着用，万分感谢！

Print ppp, aaa


Open "1.txt" For Append As #1                   '以追加方式打开文件，就是不会把原文件内容给干掉。
' 如果每次都新建文件， 使用 Output  关键字代替 Append  
  Print #1, ppp, aaa                            '写入内容
Close #1                                        '关闭文件

嗯 ，谢谢你再次帮助我！