mcs/mbas/Test/tests/ConditionalStatementsD.vb

   1 Imports System\r
   2 \r
   3 Module ConditionalStatementsD\r
   4 \r
   5     Sub Main()\r
   6 \r
   7         Dim i As Integer\r
   8         Dim sarr() As String = {"cat", "awk", "zebra", "mouse", "snake", "tiger", "lion"}\r
   9         Dim str As String = "Lion"\r
  10         Dim arr(6) As Integer\r
  11         \r
  12         For i = 0 To 6\r
  13 \r
  14             Select sarr(i)\r
  15                 Case "ant" To "cow"\r
  16                     arr(i) = 1\r
  17                 Case < "dog", = "tiger", str\r
  18                     arr(i) = 2\r
  19                 Case "lion"\r
  20                     arr(i) = 3\r
  21                 Case >= "elepahant"\r
  22                     arr(i) = 4\r
  23                 Case Else\r
  24                     arr(i) = 5\r
  25             End Select\r
  26 \r
  27         Next\r
  28 \r
  29         If arr(0) <> 1 Or arr(1) <> 1 Then\r
  30             Throw New Exception("#CSD1 - Switch Statement failed")\r
  31         ElseIf arr(5) <> 2 Then\r
  32             Throw New Exception("#CSD2 - Switch Statement failed")\r
  33         ElseIf arr(6) <> 3 Then\r
  34             Throw New Exception("#CSD3 - Switch Statement failed")\r
  35         ElseIf arr(2) <> 4 Or arr(3) <> 4 Or arr(4) <> 4 Then\r
  36             Throw New Exception("#CSD4 - Switch Statement failed")\r
  37         Else\r
  38             Console.WriteLine("OK")\r
  39         End If\r
  40 \r
  41     End Sub\r
  42 \r
  43 End Module