作者tellalie (Memory)
站内Programming
标题[问题] ifelse select case问题
时间Tue Aug 18 14:57:35 2009
我是程式新新新新手 烦请大家帮忙指导一下
最近写了一个判断电影分级的程式
普遍级:一般皆可观赏
保护级:未满六岁不得观赏
六岁以上十二岁家长陪同观赏
辅导级:未满十二岁不得观赏
十二岁以上未满十八岁家长陪同观赏
限制级:未满十八岁不可观赏
input Y=年龄 M=分级(普 护 辅 限 其中一个字串)
我用ifelse 写的出来
程式大概这样
<%
Dim Y As Integer = 20, M As String = "辅"
Response.Write("请输入年龄:" & Y & "请输入分级:" & M & "<BR>")
If M = "保" And Y < 6 Then
Response.Write("N," & "未满六岁不得观赏")
ElseIf M = "保" And Y >= 6 And Y < 12 Then
Response.Write("N," & "需长辈陪同")
ElseIf M = "保" And Y >= 12 Then
Response.Write("Y," & "可观赏")
ElseIf M = "辅" And Y < 12 Then
Response.Write("N," & "未满十二岁不得观赏")
ElseIf M = "辅" And Y >= 12 And Y < 18 Then
Response.Write("N," & "需长辈陪同")
ElseIf M = "辅" And Y >= 18 Then
Response.Write("Y," & "可观赏")
ElseIf M = "限" And Y < 18 Then
Response.Write("N," & "未满十八岁不得观赏")
ElseIf M = "限" And Y >= 18 Then
Response.Write("Y," & "可观赏")
Else
Response.Write("Y," & "皆可观赏")
End If
%>
异想天开用if加上case结果是残念 如下
<%
Dim Y As Integer = 7, M As String = "辅"
Response.Write("请输入年龄:" & Y & "请输入分级:" & M & "<BR>")
If M = "保" Then
Select Case Y
Case Y < 6
Response.Write("N" & "未满六岁不得观赏")
Case Y >= 6 And Y < 12
Response.Write("N" & "需长辈陪同")
Case Y >= 12
Response.Write("Y" & "可观赏")
End Select
ElseIf M = "辅" Then
Select Case Y
Case Y < 12
Response.Write("N" & "未满十二岁不得观赏")
Case Y >= 12 And Y < 18
Response.Write("N" & "需长辈陪同")
Case Y >= 18
Response.Write("Y" & "可观赏")
End Select
ElseIf M = "限" Then
Select Case Y
Case Y < 18
Response.Write("N" & "未满十八岁不得观赏")
Case Y >= 18
Response.Write("Y" & "可观赏")
End Select
Else
Response.Write("Y" & "皆可观赏")
End If
%>
请问版各位大哥大姐 有这种if case的写法吗 如果没有
原来的ifelse 有更好的写法吗 感觉又臭又长的 感谢指导
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.117.117.58
1F：推 LPH66:select case 不是这样写的.... 140.112.250.80 08/18 16:35
2F：推 LPH66:回去翻书 里面应该会教你怎麽写 140.112.250.80 08/18 16:37
3F：→ MOONRAKER:可他是VB啊 VB的case超多功能 爆无聊的 59.120.168.228 08/18 19:48
4F：推 LPH66:就算是VB的select case也不用把Y写进去... 140.112.250.80 08/18 21:39
5F：→ tellalie:楼上大哥我不懂您的意思，我看书中VB的 122.117.117.58 08/18 22:24
6F：→ tellalie:case可以判断范围例如case Y<=5表五以下 122.117.117.58 08/18 22:25
7F：→ tellalie:都成立，case"A"To"Ｚ"表Ａ到Ｚ都符合 122.117.117.58 08/18 22:26
8F：→ tellalie:能多给愚笨的小弟一些提示吗 谢谢 122.117.117.58 08/18 22:26
9F：→ MOONRAKER:你在VB画面上打出来不会自动修正吗？ 125.232.96.108 08/19 05:36