mcs/mbas/Test/tests/ConditionalStatementsD.vb

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