Imports System
Public Module Module1
Public Sub Main()
Dim numbers() As Integer = {1, 2}
Dim letters() As String = {"a", "b", "c", "d"}
For Each number As Integer In numbers
For Each letter As String In letters
Console.Write(number.ToString & letter & Environment.NewLine)
Next
Next
End Sub
End Module
' run:
'
' 1a
' 1b
' 1c
' 1d
' 2a
' 2b
' 2c
' 2d
'