Option Strict On
Imports System.Collections.Generic
Public Module TypeNameFunction
Public Sub Main()
Console.WriteLine(TypeName(2 + 1.34)) ' displays Double
Dim arr1 As Array = Array.CreateInstance(GetType(String), 10)
Console.WriteLine(TypeName(arr1))
Dim stringArray(10) As String
Console.Writeline(TypeName(stringArray))
Dim sl As New SortedList(Of String, String)
Console.WriteLine(TypeName(sl))
End Sub
End Module
|