请大家帮我看看这段小程序错在哪？在线等！

gymxyl 2004-08-31 09:35:29

<%
dim fso,f,g,w,qq(139,45),zz(139,45),zz0(7),zz1(7), DeltZ(7)
For i=1 to 7
zz0(i)=0
Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("f:\xyl\q.txt", 1)
set g = fso.OpenTextFile("f:\xyl\z.txt", 1)
For i=1 to 139
w=f.readline
aa=split(w,",")
for j=0 to ubound(aa)
qq(i,j)=csng(aa(j))
Next
w=g.readline
aa=split(w,",")
For j=0 to ubound(aa)
zz(i,j)=csng(aa(j))
Next

For k=1 to nNode
id=GMT(k,1)
if k=en(id) then
zz1(k)=zz(i,ec(id))
else
zz1(k)=zz(i,sc(id))
end if
if i=1 then
DeltZ(k)=0.0:zz0(k)=zz1(k)
else
DeltZ(k)=zz1(k)-zz0(k)
Response.Write zz1(k)&Chr(13)&Chr(10)
Next
Next
%>

其中GMT（，）ec（），sc（）都是已知的。
一运行总说错误的“next”，这是怎么回事？

...全文

87 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

zorou_fatal 2004-09-01

打赏
举报

呵呵,GMT里的形参都什么类型的?

gymxyl 2004-09-01

打赏
举报

GMT不是函数，一个二维数组。

mjpclab 2004-09-01

打赏
举报

这要看你的GMT函数的参数怎么用了

gymxyl 2004-08-31

打赏
举报

还请大家帮我看看这个问题！谢谢了，很急！

gymxyl 2004-08-31

打赏
举报

怎么又说“GMT”类型不匹配？

zorou_fatal 2004-08-31

打赏
举报

<%

dim fso,f,g,w,qq(139,45),zz(139,45),zz0(7),zz1(7), DeltZ(7)
For i=1 to 7

zz0(i)=0

Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("f:\xyl\q.txt", 1)
set g = fso.OpenTextFile("f:\xyl\z.txt", 1)

For i=1 to 139

w=f.readline
aa=split(w,",")

for j=0 to ubound(aa)
qq(i,j)=csng(aa(j))
Next

w=g.readline
aa=split(w,",")

For j=0 to ubound(aa)
zz(i,j)=csng(aa(j))
Next

For k=1 to nNode

id=GMT(k,1)

if k=en(id) then
zz1(k)=zz(i,ec(id))
else
zz1(k)=zz(i,sc(id))
end if

if i=1 then
DeltZ(k)=0.0:zz0(k)=zz1(k)
else
DeltZ(k)=zz1(k)-zz0(k)
Response.Write zz1(k)&Chr(13)&Chr(10)
end if '<-----------这里少了个end if

Next
Next
%>

zorou_fatal 2004-08-31

打赏
举报

<%

dim fso,f,g,w,qq(139,45),zz(139,45),zz0(7),zz1(7), DeltZ(7)
For i=1 to 7

zz0(i)=0

Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("f:\xyl\q.txt", 1)
set g = fso.OpenTextFile("f:\xyl\z.txt", 1)

For i=1 to 139

w=f.readline
aa=split(w,",")

for j=0 to ubound(aa)
qq(i,j)=csng(aa(j))
Next

w=g.readline
aa=split(w,",")

For j=0 to ubound(aa)
zz(i,j)=csng(aa(j))
Next

For k=1 to nNode

id=GMT(k,1)

if k=en(id) then
zz1(k)=zz(i,ec(id))
else
zz1(k)=zz(i,sc(id))
end if

if i=1 then
DeltZ(k)=0.0:zz0(k)=zz1(k)
else
DeltZ(k)=zz1(k)-zz0(k)
Response.Write zz1(k)&Chr(13)&Chr(10)
end if

Next
Next
%>