求VB大哥帮忙

2.出生年

3.出生月份

4、一个生日

5.奇数？男性，甚至女性

所以第一步是截取这些数字？Mid(ID，7，4)？//(身份证号，从第7位到最后4位)取1994。

ID = " 4107211994110111037465 "

Years = Mid(ID，7，4)'取出生的第7位和第4位。

MDate = Mid(ID，11，2)'取11位置后的两个出生月份。

months = Mid(ID，13，2)

选择案例Mid(Trim(ID)，1，2)

案例11

MsgBox“您的户口所在地:北京”

案例12

MsgBox“您的户口在天津”

案例13

MsgBox“您的户口所在地:河北省”

案例14

MsgBox“你的户口在哪里:山西省”

案例15

MsgBox“您的户口所在地:内蒙古自治区”

案例21

MsgBox“您的户口所在地是辽宁省”

案例22

MsgBox“您的户口所在地:吉林省”

案例23

MsgBox“你的户口在哪里:黑龙江省”

案例31

MsgBox“您的户口所在地:上海”

案例32

MsgBox“你的户口在哪里:江苏省”

案例33

MsgBox“您的户口所在地:浙江省”

案例34

MsgBox“您的户口所在地:安徽省”

案例35

MsgBox“您的户口所在地:福建省”

案例36

MsgBox“你的户口在哪里:江西省”

案例37

MsgBox“你的户口在哪里:山东省”

案例41

MsgBox“你的户口在哪里:河南省”

案例42

MsgBox“你的户口在哪里:湖北省”

案例43

MsgBox“您的户口所在地:湖南省”

案例44

MsgBox“您的户口所在地:广东省”

案例45

MsgBox“您的户口所在地:广西壮族自治区”

案例46

MsgBox“您的户口所在地:海南省”

案例50

MsgBox“您的户口所在地:重庆”

案例51

MsgBox“你的户口在哪里:四川省”

案例52

MsgBox“您的户口所在地:贵州省”

案例53

MsgBox“你的户口在哪里:云南省”

案例54

MsgBox“您的户口所在地:西藏自治区”

案例61

MsgBox“你的户口在哪里:陕西省”

案例62

MsgBox“您的户口所在地:甘肃省”

案例63

MsgBox“您的户口所在地:青海省”

案例64

MsgBox“你的户口在哪里:你喜欢回族自治区吗？”

案例65

MsgBox“您的户口所在地:新疆维吾尔自治区”

案例71

MsgBox“您的户口所在地:台湾省”

案例72

MsgBox“您的户口所在地:香港特别行政区”

案例73

MsgBox“您的户口所在地:澳门特别行政区”

结束选择

MsgBox "你的性别:" &；IIF (val (mid (ID，17，1)) mod 2 = 0，“女性”，“男性”)

MsgBox“你的生日:“&；mDate & amp“-”& amp；月份

MsgBox“您的年龄是:“&；(年(日)-年)

MsgBox“你的生肖:“&；Mid("鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪)，((年(日)-年)mod 12)+1)mod 12+1)

MsgBox“你的星座:“&；Mid("摩羯座水瓶座双鱼座白羊座金牛座双子座巨蟹座狮子处女座天秤座天蝎座射手座摩羯座"，(month(mdate)+IIF((day(mdate)-(19+int(mid(" 10212344533))，month(。= 0，0，-1)) * 2 + 1，2)& amp；“座位”