Coding console Application Menghitung Luas Menggunakan Type Data Double

Module Module1
    Sub Main()
        Dim sLuas As Double
        Dim sPanjang As Single = 7.5689782
        Dim sLebar As Single = 9.568972
        ‘ Hitung Luas Dengan Type Data Single
        sLuas = sPanjang * sLebar
        ‘Tampilkan di Message Box’
        MsgBox (“Hasil dengan Type Single ” + sLuas.ToString(), MsgBoxStyle.Information, “Tipe Data”)
    End Sub
End Module

Hasil Output ketika di run