主题：嘻嘻,问一个关于十二生肖的问题
wf8860
[专家分：0] 发布于 2006-03-05 11:23:00
我想编写一个十二生肖的程序,现在想用QBASIC的SELECT CASE这个语句编写出来,请教各位啦[em11]
回复列表 （共10个回复）
沙发
moz [专家分：37620] 发布于 2006-03-05 12:20:00
为什么要用select case？
input "请输入你的出生年份：",y
print "你是属";mid$("鼠牛虎兔龙蛇马羊猴鸡狗猪",((y-4)mod 12)*2+1,2);"的"
板凳
wf8860 [专家分：0] 发布于 2006-03-05 12:48:00
请问这个是什么意思啊?((y-4)mod 12)*2+1,2)才学习的,不懂,呵呵,有完整的程序吗?谢谢[em8]
3 楼
moz [专家分：37620] 发布于 2006-03-05 12:58:00
y就是年份
y-4就是年份减去四年
mod 12就是y除以12的余数
*2就是两倍，因为一个汉字有两个字节
+1是用在mid的字节位置的
( )是用来提高运算优先级的。
还有什么不明白的吗？
4 楼
wf8860 [专家分：0] 发布于 2006-03-05 13:06:00
恩,这个意思我懂了,但是我想用那个SELECT CASE 这个语句写出来,因为才学嘛,想知道这样的程序应当怎么样的一个过程,呵呵,还是再麻烦您一下吧
5 楼
moz [专家分：37620] 发布于 2006-03-05 16:43:00
input "请输入你的出生年份：",y
print "你是属";
select case (y mod 12)
case 4 : print "鼠"
case 5 : print "牛"
case 6 : print "虎"
case 7 : print "兔"
case 8 : print "龙"
case 9 : print "蛇"
case 10: print "马"
case 11: print "羊"
case 0 : print "猴"
case 1 : print "鸡"
case 2 : print "狗"
case 3 : print "猪"
case else:print"你输入数据有误"
end select
6 楼
wf8860 [专家分：0] 发布于 2006-03-05 20:46:00
谢罗
7 楼
yuanfuchen [专家分：0] 发布于 2006-03-06 17:47:00
注意：SELECT CASE 中符合条件的可能有多种，只判断第一个符全要求后，就不管其它的了
8 楼
moz [专家分：37620] 发布于 2006-03-07 08:17:00
哦
你是学C的吧
9 楼
wf8860 [专家分：0] 发布于 2006-03-07 08:41:00
谢各各位了
10 楼
yoyoyozan [专家分：310] 发布于 2006-04-06 15:33:00
汗。。看到第五楼还以为是C。。
我来回复
您所在位置：