偶刚学VFP不久，写了一段代码，一运行就进入死循环，哪位高手帮忙看看哪里出错了，多谢了！

SET TALK OFF
SELECT 1
USE 表1

go top
do while .not. EOF()

a1=姓名

a2=语文

a3=数学

a4=英语

a5=总成绩

a6=平均成绩

a7=考试日期

a5=a2+a3+a4

a6=a5/3

SELECT 2
use 考试日期
y2=年份
m2=月份
use
y2=val(y2)
m2=val(m2)

if m2>0 .and. m2<10
m3=1
else
m3=2
endi
mm=str(m2,m3)
yy=str(y2,4)
ymym=yy+mm
a7=ymym

SELECT 1
USE 表1

replace 姓名 with a1

replace 语文 with a2

replace 数学 with a3

replace 英语 with a4

replace 总成绩 with a5

replace 平均成绩 with a6

replace 考试日期 with a7

SELECT 1
ENDDO

USE

retu

怎么处理?
请大家指点一二,谢了!