[size=4][color=0000FF]我想做到以下效果：
身份证只能输入3次，超出3次后程序结束（即输入了非15位的身份证号时允许有3次输入的机会）；而在3次以内，输入的身份证号满足15位，从而判断男或女并且程序结束（即不要再出现输入身份证号）！请帮忙修改！[em18]
（附判断男女的规则定为：15位身份证的最后一个数是奇数就是男，是偶数就是女。）[/color][/size] 

[size=3][color=008000]CLS
PRINT "输入您的姓名:"
INPUT m$
PRINT "您的姓名是:"; m$
PRINT
PRINT "输入您的身份证号码(15位,共有3次机会),让我猜猜你的性别:"
FOR I = 1 TO 3
 INPUT sfz$
 IF LEN(sfz$) = 15 AND VAL(RIGHT$(sfz$, 1)) / 2 = FIX(VAL(RIGHT$(sfz$, 1)) / 2) THEN PRINT "您的性别是:女", "我猜得很准哟!"
 IF LEN(sfz$) = 15 AND VAL(RIGHT$(sfz$, 1)) / 2 <> FIX(VAL(RIGHT$(sfz$, 1)) / 2) THEN PRINT "您的性别是:男", "我猜得很准哟!"
 IF LEN(sfz$) <> 15 THEN PRINT "您输入的身份证号有错误!"
NEXT I
 PRINT "您居然忘记了自己的身份证号,那还有谁能猜出你的性别了!"
END[/color][/size]