Rem 针对你家狗给出的几种解决方案
Sub main()
dim status as integer
status=inputbox("输入你家狗的情况",X)
call HandleDog(status)
end Sub
public sub HandleDog(顽皮情况 as integer)
select case 顽皮情况
case 跳来跳去
Call 栓着()
case 贪吃
Call 少喂()
case 凶
Call 母狗相陪()
case 狂吠
Call 带狗口罩()
case 挣脱绳子
Call 换铁链子()
case else
Call 杀掉()
end select
end Sub
Rem 简略思路，能看懂吧。。。