vfp编程输入身份证号、看男看女、看你是不是阜阳人

clear
do while .t.
accept '请输入身份证号码:' to sfz
if len(sfz)=18
dimension A(18),B(17)
B(1)=7
B(2)=9
B(3)=10
B(4)=5
B(5)=8
B(6)=4
B(7)=2
B(8)=1
B(9)=6
B(10)=3
B(11)=7
B(12)=9
B(13)=10
B(14)=5
B(15)=8
B(16)=4
B(17)=2
S=0
for i=1 to 17
A(i)=val(substr(sfz,i,1))
s=s+A(i)*B(i)
endfor
A(18)=substr(sfz,i,1)
if A(18)='x' .or. A(18)='X'
c='x'
else
c=substr(sfz,18,1)
endif
a=s%11
dimension D(11)
D(1)='1'
D(2)='0'
D(3)='x'
D(4)='9'
D(5)='8'
D(6)='7'
D(7)='6'
D(8)='5'
D(9)='4'
D(10)='3'
D(11)='2'
for j=1 to 11
if a=j-1
if D(j)=c
?space(5)+'恭喜您！！！输入的身份证号是·合法·滴'
n=val(substr(sfz,17,1))
if n%2=0
m='女'
else
m='男'
endif
w=substr(sfz,1,6)
do case
case w='341200'
y='安徽省阜阳市'
case w='341201'
y='安徽省阜阳市市辖区'
case w='341202'
y='安徽省阜阳市颍州区'
case w='341203'
y='安徽省阜阳市颍东区'
case w='341204'
y='安徽省阜阳市颍泉区'
case w='341221'
y='安徽省阜阳市临泉县'
case w='341222'
y='安徽省阜阳市太和县'
case w='341223'
y='安徽省阜阳市涡阳县'
case w='341224'
y='安徽省阜阳市蒙城县'
case w='341225'
y='安徽省阜阳市阜南县'
case w='341226'
y='安徽省阜阳市颍上县'
case w='341227'
y='安徽省阜阳市利辛县'
case w='341281'
y='安徽省阜阳市亳州市'
case w='341282'
y='安徽省阜阳市界首市'
otherwise
y='可惜不是阜阳人'
endcase
?space(12)+y
?space(5)+substr(sfz,7,4)+'年'+substr(sfz,11,2)+'月'+substr(sfz,13,2)+'日出生'+ space(5)+'性别：'+m
else
?space(5)+'啊偶。。。您输入的身份证·不合法·'
endif
else
loop
endif
endfor
else
?'您输入的身份证号·长度错误·'
endif
m=messagebox("是否继续",4)
if m=7
exit
else
clear
endif
enddo
return