mcs/btests/ForEachB.vb

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