dim fn as string
function idchk(byval idv as string,byval sextype as string)as string
s=mid(idv,1,1)
if (len(idv)<10) or s<"A" or s>"Z" then
idchk="FORMAT ERROR"
exit function
end if

s=mid(idv,2,1)
if not((s="1" and sextype ="M") or (s="2" and sextype="F"))then
idchk="SEX CODE ERROR"
exit function
end if


for i =3 to 10
if (mid......................................................................................................................................








我要瘋了!!!!!
該死的程式語言,
最近被這個討厭的程式壓的喘不過氣來,
背死它,恨死它,殺死它!!!
哼......







> ---------------- < **











HI~各位,我回來了!!!!

氣質冬瓜回來囉!!!!