mcs/mbas/Test/tests/ForEachB.vb

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