mcs/btests/ForEachC6.vb

   1 REM LineNo: 14
   2 REM ExpectedError: BC30070
   3 REM ErrorMessage: Next control variable does not match For loop control variable 'j'.
   4
   5 Imports System
   6
   7 Module ForEachC6
   8
   9     Sub main()
  10         Dim arr() As Integer = {1, 2, 3}
  11         For Each i As Integer in arr
  12             For Each j As Integer in arr
  13                 Console.WriteLine("Hello World")
  14             Next i
  15         Next
  16     End Sub
  17
  18 End Module