哪位大哥帮我写作业!

来源：百度知道 编辑：UC知道 时间：2024/05/23 04:54:53
"编写InputBox函数输入一个人的身份证号.通过计算并显示出该人的生日和性别.身份证号倒数第二位是奇数为男.偶数为女" 这题VB怎么写啊

Dim ss, tmp As String
ss = InputBox("输入一个人的身份证号，然后点确定:" & Chr(13) & " 例：150104198506020083", "输入信息", "150104198506020050")
If (Val(Mid(ss, 17, 1)) Mod 2) = 0 Then
tmp = "女"
Else
tmp = "男"
End If
tmp = "身份证：" + ss + Chr(13) + "生日为：" + Mid(ss, 7, 4) + "-" + Mid(ss, 11, 2) + "-" + Mid(ss, 13, 2) + Chr(13) + "性别为：" + tmp
MsgBox tmp, vbOKOnly, "显示!<-小凡制作"