验证身份证号合法性

验证身份证号是否合法？PrivateSubCommand1_Click()Dima%(17),w(),x$,s$,sum%,i%,y%Do'这个循环用来保证输入的字符串是17位的s=Text1.TextLoopWhileLen(s)17w=Array(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2)x="10X98765432"'这个是因为其中有一个字符是X，只能这样Fori=1To17