Module Test
Sub Main()
Dim integerArray As Integer() = {1, 2, 3, 4, 5, 6}
Dim doubleArray As Double() = {1.1, 2.2, 3.3, 4.4, 5.5, 6.6, 7.7}
Dim charArray As Char() = {"H"c, "E"c, "L"c, "L"c, "O"c}
PrintArray(integerArray)
PrintArray(doubleArray)
PrintArray(charArray)
End Sub ' Main
Sub PrintArray(ByVal inputArray() As Integer)
For Each element As Integer In inputArray
Console.Write(element.ToString() & " ")
Next element
Console.WriteLine(vbCrLf)
End Sub
Sub PrintArray(ByVal inputArray() As Double)
For Each element As Double In inputArray
Console.Write(element.ToString() & " ")
Next element
Console.WriteLine(vbCrLf)
End Sub
Sub PrintArray(ByVal inputArray() As Char)
For Each element As Char In inputArray
Console.Write(element.ToString() & " ")
Next element
Console.WriteLine(vbCrLf)
End Sub
End Module
|