Imports System

Public Module Module1

    Sub Main()

        Dim sLuas As Single

        Dim sPanjang As Single = 7.5689782

        Dim sLebar As Single = 9.568972

        Dim sLuas2 As Double

        Dim sPanjang2 As Double = 7.5689782

        Dim sLebar2 As Double = 9.568972

        'hitung luas dengan type data SINGLE

        sLuas = sPanjang * sLebar

        sLuas2 = sPanjang2 * sLebar2

        'Tampilkan dalam message box

        Console.WriteLine("Hasil dengan type SINGLE adalah" + sLuas.ToString)

        Console.WriteLine("Hasil dengan type DOUBLE adalah" + sLuas2.ToString )

    End Sub

End Module

​

​