1 Open App.Path & "\sj.tmp" For Append As #1 For i = 0 To n - 1 Print #1, Format(xs(i), "000.000"), Format(ys(i), "000.000") Next i Close #12 For i = 1 To n Open App.Path & "\" & i & ".tmp" For Output As #2 Print #2, Format(xs, "000.000"), Format(ys, "000.000") Close #2 Next i
Open App.Path & "\sj.tmp" For Append As #1
For i = 0 To n - 1
Print #1, Format(xs(i), "000.000"), Format(ys(i), "000.000")
Next i
Close #12
For i = 1 To n
Open App.Path & "\" & i & ".tmp" For Output As #2
Print #2, Format(xs, "000.000"), Format(ys, "000.000")
Close #2
Next i