用vb根据身份证号提取其中的省份，出生日期，性别，校验码的代码,怎么写啊，要具体的正确的，再悬赏2

发布网友 发布时间：2022-04-26 12:50

我来回答

共5个回答

热心网友 时间：2023-10-09 15:06

Private Sub Command1_Click()

  Select Case Mid(Trim(Text1.Text), 1, 2)

    Case 11

      Text2.Text = "北京市"

    Case 12

      Text2.Text = "天津市"

    Case 13

      Text2.Text = "河北省"

    Case 14

      Text2.Text = "山西省"

    Case 15

      Text2.Text = "内蒙古自治区"

    Case 21

      Text2.Text = "辽宁省"

    Case 22

      Text2.Text = "吉林省"

    Case 23

      Text2.Text = "黑龙江省"

    Case 31

      Text2.Text = "上海市"

    Case 32

      Text2.Text = "江苏省"

    Case 33

      Text2.Text = "浙江省"

    Case 34

      Text2.Text = "安徽省"

    Case 35

      Text2.Text = "福建省"

    Case 36

      Text2.Text = "江西省"

    Case 37

      Text2.Text = "山东省"

    Case 41

      Text2.Text = "河南省"

    Case 42

      Text2.Text = "湖北省"

    Case 43

      Text2.Text = "湖南省"

    Case 44

      Text2.Text = "广东省"

    Case 45

      Text2.Text = "广西壮族自治区"

    Case 46

      Text2.Text = "海南省"

    Case 50

      Text2.Text = "重庆市"

    Case 51

      Text2.Text = "四川省"

    Case 52

      Text2.Text = "贵州省"

    Case 53

      Text2.Text = "云南省"

    Case 54

      Text2.Text = "*自治区"

    Case 61

      Text2.Text = "陕西省"

    Case 62

      Text2.Text = "甘肃省"

    Case 63

      Text2.Text = "青海省"

    Case

      Text2.Text = "你喜欢回族自治区"

    Case 65

      Text2.Text = "维吾尔自治区"

    Case 71

      Text2.Text = "省"

    Case 72

      Text2.Text = "特别行政区"

    Case 73

      Text2.Text = "澳门特别行政区"

  End Select

  Text3.Text = Mid(Text1.Text, 7, 8)

  Text4.Text = IIf(Val(Mid(Text1.Text, 17, 1)) Mod 2 = 0, "女", "男")

  Text5.Text = Mid(Text1.Text, 18, 1)

End Sub

热心网友 时间：2023-10-09 15:06

我可以帮你写 需要的话 私信我追问你可以帮我写我写吗

追答1147462691

热心网友 时间：2023-10-09 15:07

我有写过这样的例子
可以帮你写一个的

热心网友 时间：2023-10-09 15:07

200块我还考虑一下，200分算什么，你要我送你2000追问哎，也就找个人帮帮忙嘛，我还是学生，你就要坑我两百，好心塞

热心网友 时间：2023-10-09 15:08

这年头很少用VB了吧