彩鸟级的问题

[debonair_wei]

我在pb6.5数据窗口的picture控件里显示相应的图片，并在数据窗口控件的doubleclicked事件里写入了下述代码：
string docname,named
int fnum,i,loops,value
long flen,sum_read,p_new
blob b,b_photo
p_new=0
value = GetFileOpenName("请选择照片", docname, named, "bmp", &
+ "bmp格式文件 (*.bmp),*.bmp")
IF value = 1 THEN
flen=filelength(docname)
fnum=fileopen(docname,Streammode!,Read!,LockRead!)
if flen > 32765 then
if mod(flen,32765) =0 then
loops=flen/32765
else
loops =(flen/32765)+1
end if
else
loops = 1
end if
for i=1 to loops
sum_read=fileread(fnum,b)
b_photo=b_photo + b
p_new=p_new + sum_read
fileseek(fnum,p_new,frombeginning!)
next
FileClose(fnum)
dw_1.object.p_1.filename = docname
程序出现语法错误，请大哥哥，大姐姐们帮俺看一下到底是什么错误,并给予指正

[yu_hl]

这一段：
if mod(flen,32765) =0 then
loops=flen/32765
else
loops =(flen/32765)+1
end if
else
loops = 1

最后一个else没有配对啊。

[debonair_wei]

我将上面的IF语句改为
if flen > 32765 then
loops=(flen - 1)/32765
else
loops = 1
end if
错误依旧，还请各位不只回答高难度问题的高手能给小弟再指点指点