mcs/btests/ConditionalStatementsC.vb

   1 Imports System\r
   2 \r
   3 Module ConditionalStatementsC\r
   4 \r
   5     Sub Main()\r
   6 \r
   7         Dim i As Integer\r
   8         Dim arr(10) As Integer\r
   9         Dim flag As Boolean\r
  10 \r
  11         For i = 0 To 10\r
  12 \r
  13             Select Case i\r
  14                 Case 0 To 2\r
  15                     arr(i) = 1\r
  16                 Case Is < 2, 3, 6 To 7\r
  17                     arr(i) = 2\r
  18                     Select Case i           ' Nested Select Case Statement\r
  19                         Case 0 To 2\r
  20                             flag = False\r
  21                         Case 3, 6 To 7\r
  22                             flag = True\r
  23                         Case Else\r
  24                             flag = False\r
  25                     End Select\r
  26                 Case Is <= 8, Is >= 7\r
  27                     arr(i) = 3\r
  28                 Case Else\r
  29                     arr(i) = 4\r
  30             End Select\r
  31 \r
  32         Next\r
  33 \r
  34         If arr(0) <> 1 Or arr(1) <> 1 Or arr(2) <> 1 Then\r
  35             Throw New Exception("#CSC1 - Select Case Statement failed")\r
  36         ElseIf arr(3) <> 2 Or arr(6) <> 2 Or arr(7) <> 2 Then\r
  37             Throw New Exception("#CSC2 - Select Case Statement failed")\r
  38         ElseIf arr(4) <> 3 Or arr(5) <> 3 Or arr(8) <> 3 Or arr(9) <> 3 Or arr(10) <> 3 Then\r
  39             Throw New Exception("#CSC3 - Select Case Statement failed")\r
  40         ElseIf flag = False Then\r
  41             Throw New Exception("#CSC4 - Nested Select Case Statement failed")\r
  42         Else\r
  43             Console.WriteLine("OK")\r
  44         End If\r
  45 \r
  46     End Sub\r
  47 \r
  48 End Module