mcs/mbas/Test/tests/ConditionalStatementsA.vb

   1 Imports System
   2
   3 Module ConditionalStatementsA
   4
   5         Sub Main()
   6
   7                 Dim i As Integer = 0
   8
   9                 if i = 0 then i = 1
  10
  11                 if i <> 1 then throw new exception("#CSA1") else i = 2
  12
  13                 if i = 1 then else i = 3
  14
  15                 if i <> 3 then i = 2 else    ' Should give compile time error
  16
  17                 if i <> 2
  18                         i = 3
  19                 end if
  20
  21                 if i = 3
  22                 end if
  23
  24                 if i <> 3
  25                         throw new exception("#CSA2")
  26                 else
  27                         i = 4
  28                 end if
  29
  30                 if i <> 4 then
  31                         throw new exception("#CSA3")
  32                 elseif i = 4
  33                         i = 5
  34                 end if
  35
  36                 if i <> 5
  37                         throw new exception("#CSA4")
  38                 elseif i = 6
  39                         throw new exception("#CSA5")
  40                 elseif i = 5 then
  41                         i = 6
  42                 else
  43                         throw new exception("#CSA6")
  44                 end if
  45
  46         End Sub
  47
  48 End Module