[問題] ifelse select case問題

看板Programming作者tellalie (Memory)時間16年前 (2009/08/18 14:57)推噓3(3推 0噓 6→)

留言9則, 3人參與討論串1/1

我是程式新新新新手煩請大家幫忙指導一下最近寫了一個判斷電影分級的程式普遍級:一般皆可觀賞保護級:未滿六歲不得觀賞六歲以上十二歲家長陪同觀賞輔導級:未滿十二歲不得觀賞十二歲以上未滿十八歲家長陪同觀賞限制級:未滿十八歲不可觀賞 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

推

LPH66

08/18 16:35, , 1^F

08/18 16:35, 1^F

推

LPH66

08/18 16:37, , 2^F

08/18 16:37, 2^F

→

MOONRAKER

08/18 19:48, , 3^F

08/18 19:48, 3^F