易语言UPX进度条问题

给你一个完整的代码：

.版本 2

.程序集 窗口程序集1

.程序集变量 NN, 整数型

.子程序 __启动窗口_创建完毕

NN ＝ 0

时钟1.时钟周期 ＝ 100

标签1.标题 ＝ “正在加载组件（0/5）”

.子程序 _时孝搭乱钟1_周期事件

进度条1.位置 ＝ 进度条1.位置 ＋ 1

.如果真 (进度条1.位置 ＝ 100)

.如果 (NN ＜ 5)

NN ＝ NN ＋ 1

标签1.标题 ＝ “正在加载组件（” ＋ 到文本 (NN) ＋ “/5）”

.否则

时钟1.时钟周期 ＝ 0

返回 ()

.如果结束

进度条1.位置 ＝ 0

.如果真结束

.版本 2

.程序集 窗口程序集1

.程序集变量 NN, 整数型

.子程序 __启动窗口_创建完毕

NN ＝ 0

时钟1.时钟周期 ＝ 100

标签1.标题 ＝ “正在加载组件（0/5）”

.子程序 _时钟1_周期事件

进度条1.位置 ＝ 进度枝陪条1.位置 ＋ 1

.如果真 (进度条1.位置 ＝ 100)

.如果 (NN ＜ 5)

NN ＝ NN ＋巧档 1

标签1.标题 ＝ “正在加载组件（” ＋ 到文本 (NN) ＋ “/5）”

.否则

时钟1.时钟周期 ＝ 0

返回 ()

.如果结束

进度条1.位置 ＝ 0

.如果真结束

sample.dat里的数字项一定是1到2000吗？这个程序蚂前羡应该可以。

注意闷拍：程序里悔举的nn是result文件的个数，result文件必须存为Result_1.dat、Result_2.dat以此类推。

××××××××××××××××××××××××××××××××××××××××××××××××××

character*(20) filename,str

dimension a(2000,2),num(2000),c(2000)

real a,c

do i=1,2000

num(i)=i

c(i)=0.0

enddo

nn=100

do k=1,nn

write(str,*) k

str=adjustl(str)

str=trim(str)

filename=trim('Result_'//str)//'.dat'

call get_n(filename,n)

open(12,file=filename,status='old')

do i=1,n

read(12,*) (a(i,j),j=1,2)

enddo

close(12)

call cumul(n,a,c)

enddo

open(13,file='sample.dat',status='unknown')

do i=1,2000

write(13,*) num(i),c(i)

enddo

close(13)

end

subroutine get_n(filename,n)

character*(*) filename

real temp

n=0

open(11,file=filename,status='old')

do while(.not.eof(11))

read(11,*) temp

n=n+1

enddo

close(11)

end subroutine

subroutine cumul(n,a,c)

dimension a(2000,2),c(2000)

real a,c

do i=1,n

k=int(a(i,1))

c(k)=c(k)+a(i,2)

enddo

end subroutine

××××××××××××××××××××××××××××××××××××××××××××××××××

---