mcs/mbas/Test/tests/test1.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 \r
  10         For i = 0 To 10\r
  11 \r
  12             Select Case i\r
  13                 Case 0 To 4\r
  14                 'Case 0 \r
  15                     'arr(i) = 1\r
  16                 Console.WriteLine("MANJU i is {0}",i)\r
  17             End Select\r
  18 \r
  19         Next\r
  20 \r
  21 \r
  22     End Sub\r
  23 \r
  24 End Module\r