VB HitungLuasLingkaran

 Module HitungLuasLingkaran

    'Buka HitungLuasLingkaran.vbproj

    Function HitungLuasLingkaran(ByVal radius As Double)

        Const pi = 3.142

        HitungLuasLingkaran = pi * radius * radius

    End Function

    Sub Main()

        Dim radius As Double, luas As Double

        'Terima input

        radius = InputBox("Masukkan radius: ")

        'Hitung luas lingkaran

        luas = HitungLuasLingkaran(radius)

        'Tampil pada screen

        MsgBox("Luas Lingkaran = " & luas)

    End Sub

End Module