我想做一个VB程序编辑，就是你输入相应的年份，会自动回复相应的属相。关于十二生肖的。
1个回答
展开全部
theyear = Val(InputBox("请输入年份"))
sx = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
ty = (theyear - 1960) Mod 12 '1960年是鼠年，以此为基准
If ty < 0 Then ty = ty + 12 '如果theyear<1960会得到负数，在此校正
MsgBox Mid(sx, ty + 1, 1)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
