过年了，放假了，散分，明年谁最2呢？

[hztltgg]

220200 20020202 2020
220200 20020220 0202
220200 20020222 2022

220202 20020202 0220
220202 20020220 2200
220202 20020222 0222

这几个身份证号码校验能通过，不知花落谁家

[Bridge_go]

没人啊，都给我吧，哈哈哈哈哈哈哈哈哈哈

[OrdinaryCoder]

接分

[hztltgg]

加点点技术含量吧，放个校验函数

    Public Function IdCardValid(s18 As String) As Boolean

        Dim Weight = {7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2}
        Dim Parity = "10X98765432"
        Dim s17 = s18.Substring(0, 17)
        Dim s = 0
        For i = 0 To 16
            s += Int32.Parse(s17(i).ToString()) * Weight(i)
        Next
        Return Parity(s Mod 11).ToString() = s18.Substring(17, 1)

    End Function

[snowman1101]

Dim s17 = s18.Substring(0, 17)

楼上，这句没什么用啊

[不胖到130不改名字]

希望新的一年能脱单

[hztltgg]

引用 4 楼 snowman1101 的回复:

Dim s17 = s18.Substring(0, 17)

楼上，这句没什么用啊

有用，取前17位，就是最后一位不要，前几位要计算

[正怒月神]

[SharkShen]

[qq_40142095]

接分

[weixin_44711684]

[纯阳真人]

明年什么都不求，只求脱单，实在不行就只求没人催我脱单

[杀马特丶蛮牛]

while(true)
  Console.WriteLine("2");

[snowman1101]

引用 6 楼 hztltgg 的回复:

[quote=引用 4 楼 snowman1101 的回复:]

Dim s17 = s18.Substring(0, 17)

楼上，这句没什么用啊

有用，取前17位，就是最后一位不要，前几位要计算[/quote] 都已经有s18了，直接用更方便啊。 而且用第18位的时候也是直接用的s18

[csdn3ks2017]

最二的最快乐！所有最快乐的最2

[hztltgg]

引用 13 楼 snowman1101的回复:

[quote=引用 6 楼 hztltgg 的回复:] [quote=引用 4 楼 snowman1101 的回复:]

Dim s17 = s18.Substring(0, 17)

楼上，这句没什么用啊

有用，取前17位，就是最后一位不要，前几位要计算[/quote] 都已经有s18了，直接用更方便啊。 而且用第18位的时候也是直接用的s18[/quote] 你说的对，可能这个代码一开始是想用集合来处理，时代久远不知道怎么改成这样了

[stonemaomao]

新年快乐，大家都快乐，