mcs/btests/ForB.vb

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