Perhitungan suatu luas bangun datar

Program ini menggunakan tampilan console, pertama kita pilih file - new project lalu pilih Console Aplication, setelah itu masukkin kode dibawah ini.



 Sub Main()
        Dim r, l, p, le, a As Double
        Console.WriteLine("Masukan Pilihan Anda")
        Console.WriteLine("[1]. Menghitung Luas Persegi Panjang")
        Console.WriteLine("[2]. Menghitung Luas Lingkaran")
        a = Console.ReadLine()
        If a = 1 Then
            Console.WriteLine("Masukan Panjang = ")
            p = Console.ReadLine
            Console.WriteLine("Masukan Lebar = ")
            le = Console.ReadLine
            l = p * le
            Console.WriteLine("Luas Persegi Panjang = " + l.ToString)
        ElseIf a = 2 Then
            Console.WriteLine("Masukan Jari-jari Lingkaran = ")
            r = Console.ReadLine
            l = Math.PI * r * r
            Console.WriteLine("Luas Lingkaran = " + l.ToString)
        Else
            Console.WriteLine("Anda salah memasukan pilihan")
        End If
        Console.ReadLine()
    End Sub