mcs/mbas/Test/tests/ConditionalStatementsC.vb

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