mcs/btests/ForEachB.vb

   1 Imports System\r
   2 \r
   3 Module ForEachB\r
   4 \r
   5     Class C1\r
   6 '        public index As Integer = 0\r
   7 \r
   8         Sub w()\r
   9             Dim arr() As Integer = {1, 2, 3}\r
  10             For Each index as integer In arr\r
  11                 Console.WriteLine(index)\r
  12             Next\r
  13         End Sub\r
  14     End Class\r
  15 \r
  16     Sub main()\r
  17         Dim c As New C1()\r
  18         c.w()\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\r