在VB 6.0里调程序出现问题，不知如何改正，谁能帮忙解答一下？
我在调下面的程序的Print #4，str这句时，出现提示：实时错误54，文件模式错误，不知道谁能帮忙解答一下，我的文件格
式是ascii格式的，请高手帮我看看这个程序哈~~~~~跪谢了。（我是个程序盲，这些简单的调程序操作，是一个计算机童鞋教
我的，麻烦高手尽可能说的详细点哈，越通俗易懂越好~）
Dim i As Integer,j As Integer,z As Double,v As Double,w As Double,str As String
Private Sub Command1_Click()
Open"F:\regression\dem_huabei_project90.asc"For Input As #1
Open"F:\regression\dem_huabei1_x90.asc"For Input As #2
Open"F:\regression\dem_huabei1_y90.asc"For Input As #3
Open"F:\regression\wheatmean.asc"For Input As #4
DO While Not EOF(1)
str = ""
For i = 1 To 13898
Input #1,z
Input #2,w
Input #3,v
If z>0 Then
z = -14.7534 * v + 2.103308 * w + 0.001688 * z + 840.7928
End If
str = str & z & ""
Next i
Print #4,str
Loop
Close
End Sub
[解决办法]
Print #4，str这句时，出现提示：实时错误54，文件模式错误
提示很明显,文件打开模式改为output,才能保存
Open"F:\regression\wheatmean.asc"For output As #4
