Dim sng As Single
        Dim dbl As Double
        Dim dec As Decimal
        sng = 1 / 7
        dbl = 1 / 7
        dec = CDec(1 / 7)
        lblSingle.Text = CStr(sng)
        lblDouble.Text = CStr(dbl)
        lblDecimal.Text = dec.ToString("G17")