急求，这个excel怎么做！

Question

如题所述

Answer 1

第一题：
号制作，身份证前六位：前两位是省的号码，第三、四是地级市或地区号码，第五、六是市县（县级市）的号码，紧接着是年的四位，可以不管，六、七位是大于0和小于13的自然数；除了年除以4或百位除以400为整除的，二月29天外，平常二月28天；其余：当月份小于8时，偶数月是30天，奇数月31天；当大于7时，偶数月31天，奇数月30天。使用条件函数if来解决

Answer 2

三个题目，最后一题看不清楚。

第一题身份证验证其合法性，分这样几个单元分别验证方可：

1-6：代表籍贯，需要符合籍贯的对应码；

7-14：代表出生日期，需要正常日期格式；

15-16位：派出所号码；

17位：性别；

18位：校验码。本位是检验难点，可在网络上检索代码校验。

第二题：

可使用如下VBA代码求解：

Sub Pi_()

Dim i, j As Single
i = 1

Dim My_value As Double
My_value = 1
For i = 1 To 100
My_value = My_value * i / (2 * i + 1)
If My_value <= 10 ^ (-15) Then
j = i
Exit For
End If
Next


Dim m, n As Single
Dim Final_value1, Final_value2 As Double
Final_value = 0

For m = 1 To j
Final_value1 = 1

For n = 1 To m
Final_value1 = Final_value1 * n / (2 * n + 1)
Next

Final_value2 = Final_value2 + Final_value1
Next
Debug.Print "pi=" & Final_value2 * 2 + 2
End Sub

追问

谢谢，不过已经采纳答案了😭

Answer 3

这个老师太狂了，直接交白卷吧