Double luokka

        Dim s, r As Double
        Dim Tulos As Integer
        Dim Totuus As Boolean
        Dim Teksti As String
        s = 3 : r = 5
        '
        ' Vertailu
        Tulos = s.CompareTo(r)
        ' Yhtäsuuruus
        Totuus = s.Equals(r)
        ' Tiiviste koodi
        Tulos = s.GetHashCode()
        ' tyyppi
        If s.GetType() Is Tulos.GetType Then s = 4
        ' tyyppikoodi
        Dim tc As System.TypeCode = s.GetTypeCode()
        ' Suurin numeroarvo
        s = Double.MaxValue
        ' Pienin numeroarvo
        s = Double.MinValue
        ' tekstistä numeroksi
        s = Double.Parse("543")
        ' numerosta tekstiksi
        Teksti = s.ToString
        '
        ' pienin mahdollinen positiivinen luku
        s = Double.Epsilon
        ' ei numero
        s = Double.NaN
        ' testaa onko ei-numero
        Totuus = Double.IsNaN(s)
        ' onko ääretön
        Totuus = Double.IsInfinity(s)
        ' onko negatiivinen ääretön
        Totuus = Double.IsNegativeInfinity(s)
        ' onko negatiivinen ääretön
        Totuus = Double.IsPositiveInfinity(s)
        ' vakio negatiivinen ääretön
        s = Double.NegativeInfinity
        ' vakio positiivinen ääretön
        s = Double.PositiveInfinity
        'tarkista onnistuuko kansallisten esitystapojen muunnos
        Dim myCultureInfo As New System.Globalization.CultureInfo("fi-FI", False)
        r = -8765.0R ' oikea arvo joka vastaa "8765-"
        Totuus = s.TryParse("8765-", Globalization.NumberStyles.AllowTrailingSign, myCultureInfo.NumberFormat, r)
                (onnistuuhan se Finlandiassa)