Question

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

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

Answer 1

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 64

      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

追问

要代码啊

追答

代码不是已经给你发了吗？你只要复制粘贴就行了。窗体界面你自己做一下。
工程文件附件传不上去。

追问

嗯嗯，好的

只是它前面还有一个要求，我发给你看看哈

还要判断什么的，我题都没看懂

追答

代码：

Private Sub Command1_Click()

  Dim strNo As String

  strNo = InputBox("请输入身份证号码：", "输入框")

  If Len(strNo) <> 18 Then

    MsgBox "输入错误"

  Else

    Select Case Mid(Trim(strNo), 1, 2)

      Case 11

        Text2.Text = "北京市"

   ' ……………………此处省略若干行，否则超出容量限制，发不了。你自己从我原先发 

  '的代码中将这些行复制粘贴上

      Case 73

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

    End Select

    Text3.Text = Mid(Trim(strNo), 7, 8)

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

    Text5.Text = Mid(Trim(strNo), 18, 1)

  End If

End Sub

界面：

运行效果：

追问

谢谢谢谢啊，我现在才打开看到，真的很感谢

以后有不会的可不可以请教你啊，我们学vb以后肯定还会有不懂的

在吗，我可可以问你个问题啊

这个第六题我做了，可是哪里错了啊，不知道怎么改

拜托啦，帮我看看嘛

Answer 2

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

追问

你可以帮我写我写吗

追答

1147462691

Answer 3

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

追问

真的吗，谢谢谢谢

这个是任务

如果你会做，帮我一下嘛，我弄了很久都没弄出来白痴啊，拜托啦

追答

你什么时候要？

追问

4点钟之前

要提交的

拜托了

追答

艹 写不出来 时间太紧张了

追问

好吧，谢谢了

追答

。。。。。。。。。。。。不客气

Answer 4

200块我还考虑一下，200分算什么，你要我送你2000

追问

哎，也就找个人帮帮忙嘛，我还是学生，你就要坑我两百，好心塞

Answer 5

这年头很少用VB了吧

追问

没办法，这是安排的任务

你会不嘛，帮我写写嘛

追答

不好意思，已经好多年不用VB了，编译工具都卸载了。