Question

How to use for each in VB.NET

Answer 1

Imports System

Public Class ForEach_VB
    Public Shared Sub Main(ByVal args As String())
		Dim names() As String = {"Sophia", "Emma", "Emily", "Ava", "Isabella", "Zoe"}
 
        For Each nm As String In names
            Console.WriteLine(nm)
        Next
     
	End Sub
 
End Class
 
 
 
' run:
'
' Sophia
' Emma
' Emily
' Ava
' Isabella
' Zoe
'

Learn SQL from A to Z at LearnSQL.com

Answer 2

Imports System

Public Class ForEach_VB
    Public Shared Sub Main(ByVal args As String())
		Dim arr() As Integer = {7, 13, 31, 18, 120, 331, 1600, 7000000, 130000000}
 
        For Each number As Integer In arr
            Console.WriteLine(number)
        Next
 
    End Sub
 
End Class
 
 
 
' run:
'
' 7
' 13
' 31
' 18
' 120
' 331
' 1600
' 7000000
' 130000000
'

 

Learn SQL from A to Z at LearnSQL.com

Answer 3

Imports System
Imports System.Collections.Generic
 
Public Class ForEach_VB
    Public Shared Sub Main(ByVal args As String())
        Dim lst As New List(Of String)(New String() {"vb", "c", "c++", "java"})
 
        For Each item As String In lst
            Console.WriteLine(item)
        Next
    End Sub
End Class
 
 
 
' run:
'
' vb 
' c 
' c++ 
' java
'

 

Learn SQL from A to Z at LearnSQL.com