VB HitungLuas

 Module HitungLuas

    'Buka Hitung Luas Lingkaran.vbproj

    Sub HitungLuas(ByVal radius As Double)

        Dim luas As Double

        Const pi = 3.142

        luas = pi * radius * radius

        'Tampil pada screen

        MsgBox("Luas Lingkaran1 = " & luas)

    End Sub

    Sub Main()

        Dim radius As Double, luas As Double

        'Terima input

        radius = InputBox("Masukkan radius: ")

        'Hitung luas lingkaran

        Call HitungLuas(radius)

        MsgBox("Luas Lingkaran2 = " & luas)

    End Sub

End Module