VB 求知道

Question

在调试程序时，Print #4,str这句时出现提示说：错误54，文件模式错误，这个你知道是怎么回事么

Answer 1

补充一下源代码：
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 #1Open"F:\regression\dem_huabei1_x90.asc"For Input As #2Open"F:\regression\dem_huabei1_y90.asc"For Input As #3Open"F:\regression\wheatmean.asc"For Input As #4DO While Not EOF(1)str = ""For i = 1 To 13898Input #1,zInput #2,wInput #3,vIf z>0 Then
 
z = -14.7534 * v + 2.103308 * w + 0.001688 * z + 840.7928 End Ifstr = str & z & ""Next iPrint #4,strLoopCloseEnd Sub

Answer 2

把 Open"F:\regression\wheatmean.asc"For Input As #4改为
Open"F:\regression\wheatmean.asc"For Output As #4你要输出肯定得指定为输出才行吧。