再次散分,迎接本命年,哈哈.该怎么解决

再次散分,迎接本命年,哈哈.................
新年发达!!!!

------解决方案--------------------
先坐上沙发再说，哈哈
------解决方案--------------------
俺也是属猪的，顶~~~~~~~~~~~~~
------解决方案--------------------
我也要分！！！
------解决方案--------------------
接分

------解决方案--------------------
大家快接呀，新年快乐，接分快乐
------解决方案--------------------
祝楼主：祝楼主及各位VB朋友新年快乐，万事如意！

IF InStr(属相, "猪 ")> 0 then
goto 酒楼
ELSE
goto 农家乐
ENDIF

酒楼: MainMenu= "米饭 "& "酒 "& "饺子 "
SubMenu(1)= "猪头 "
SubMenu(2)= "猪身 "
SubMenu(3)= "猪身 "
SubMenu(4)= "猪尾 "
SubMenu(5)= "鱼 "& "虾 "& "螃蟹 "& "鸡 "& "鸭 "& "香肠 "& "腊肉 "& "Others "

For Hours=1 to 24
麻将=麻将+1
地主=地主+1
双扣=双扣+1
围棋=围棋+1
唱歌=唱歌+1
跳舞=跳舞=1
.
.
.
Next Hours
Exit Sub

农家乐:MainNenu= "红米饭 "& "南瓜汤 "& "野菜 "
SubMenu= "土豆烧牛肉 "
Exit Sub


------解决方案--------------------
hehe顶
------解决方案--------------------
up
------解决方案--------------------
接分
------解决方案--------------------
抱金猪
------解决方案--------------------
UP一下！
------解决方案--------------------
if not InStr(过年变量, "农家乐 ")> 0 then
exit
end
end if
------解决方案--------------------
up
------解决方案--------------------
新年快乐！
------解决方案--------------------
jf
------解决方案--------------------
新年快乐！谢谢拉！
------解决方案--------------------
回来了新年快乐
------解决方案--------------------
新年发达!!!!
------解决方案--------------------
接分~
------解决方案--------------------
分分分分分分分分分
------解决方案--------------------
接分！谢谢了
------解决方案--------------------
HAPPY NEW YEAR
------解决方案--------------------
过年了，又长一岁
------解决方案--------------------
本命年要穿红的
加油啊...呵呵
------解决方案--------------------