mcs/btests/ForB.vb

   1 Imports System\r
   2 \r
   3 Module ForB\r
   4 \r
   5     Class C1\r
   6         Public index As Integer = 0\r
   7 \r
   8         Sub x()\r
   9             For index = 0 To 2\r
  10                 Console.WriteLine(index)\r
  11             Next\r
  12         End Sub\r
  13 \r
  14     End Class\r
  15 \r
  16     Sub main()\r
  17         Dim c As New C1()\r
  18         c.x ()\r
  19         If c.index <> 3 Then\r
  20             Throw New Exception("#ForB1")\r
  21         End If\r
  22     End Sub\r
  23 \r
  24 End Module\r