这个可以用取模的方式实现、主要思路如下:
dim year as integer
dim rem as integer
year=val(inputbox("请输入年份"))
rem=year mod 12
select case rem
case 0
msgbox "猴"
case 1
msgbox "鸡"
case 2
msgbox "狗"
case 3
msgbox "猪"
case 4
msgbox "鼠"
case 5
msgbox "牛"
case 6
msgbox "虎"
case 7
msgbox "兔"
case 8
msgbox "龙"
case 9
msgbox "蛇"
case 10
msgbox "马"
case 11
msgbox "羊"
end select
主要代码就是这样了!你在根据要要修改完善下就可以了、