vfp编程输入身份证号、看男看女、看你是不是阜阳人
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
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
clear
endif
enddo
return
y='安徽省阜阳市阜南县'
case w='341226'
y='安徽省阜阳市颍上县'
case w='341227'
y='安徽省阜阳市利辛县'
case w='341281'
y='安徽省阜阳市亳州市'
case w='341282'
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'
else
?space(5)+'啊偶。。。您输入的身份证·不合法·'
endif
else
loop
endif
endfor
else
?'您输入的身份证号·长度错误·'
endif
m=messagebox("是否继续",4)
if m=7
exit
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
y='安徽省阜阳市市辖区'
case w='341202'
y='安徽省阜阳市颍州区'
case w='341203'
y='安徽省阜阳市颍东区'
case w='341204'
y='安徽省阜阳市颍泉区'
case w='341221'
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)
y='安徽省阜阳市临泉县'
case w='341222'
y='安徽省阜阳市太和县'
case w='341223'
y='安徽省阜阳市涡阳县'
case w='341224'
y='安徽省阜阳市蒙城县'
case w='341225'
D(8)='
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'
otherwise
y='可惜不是阜阳人'
endcase
?space(12)+y
?space(5)+substr(sfz,7,4)+'年'+substr(sfz,11,2)+'月'+substr(sfz,13,2)+'日出生'+ space(5)+'性别:'+m
else
clear
endif
enddo
return
y='安徽省阜阳市阜南县'
case w='341226'
y='安徽省阜阳市颍上县'
case w='341227'
y='安徽省阜阳市利辛县'
case w='341281'
y='安徽省阜阳市亳州市'
case w='341282'
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'
else
?space(5)+'啊偶。。。您输入的身份证·不合法·'
endif
else
loop
endif
endfor
else
?'您输入的身份证号·长度错误·'
endif
m=messagebox("是否继续",4)
if m=7
exit
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
y='安徽省阜阳市市辖区'
case w='341202'
y='安徽省阜阳市颍州区'
case w='341203'
y='安徽省阜阳市颍东区'
case w='341204'
y='安徽省阜阳市颍泉区'
case w='341221'
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)
y='安徽省阜阳市临泉县'
case w='341222'
y='安徽省阜阳市太和县'
case w='341223'
y='安徽省阜阳市涡阳县'
case w='341224'
y='安徽省阜阳市蒙城县'
case w='341225'
D(8)='
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'