mcs/btests/ForEachB.vb

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