女子最佳举重年龄

---

Private Sub Command1_Click()
Dim a%, b%, c%, d%, e%
a = Val(InputBox("请输入您出生的年份", "阳历", "2000"))
b = Val(InputBox("请输入您出生告团缺的月份", "阳历", "01"))
c = Val(InputBox("请输入您出生的日期"袜辩, "阳历", "01"))
d = Val(x + 100)
e=Datediff("d",#c/b/d#, Now,)
Print "您生或者命剩下的天数为:" & e

---

30岁以下吧

---