Imports System 

Public Module Module1 

Public Sub Main() 

Dim pilih, ulang as Char 

Dim panjang, lebar, alas, tinggi, sisi, luas as integer 

Do 

Console.WriteLine() 

        Console.WriteLine(":================================:")

        Console.WriteLine(": PROGRAM HITUNG LUAS BANGUN     :") 

        Console.WriteLine(": A. HITUNG LUAS PERSEGI PANJANG :") 

        Console.WriteLine(": B. HITUNG LUAS SEGITIGA        :")

        Console.WriteLine(": C. HITUNG LUAS BUJURSANGKAR    :")

        Console.WriteLine(": D. HITUNG LUAS JAJARAN GENJANG :")

        Console.WriteLine(":================================:")

        Console.Write("masukkan pilihan A, B, C, atau D :") 

pilih = console.ReadLine() 

        Console.WriteLine("================================")   

Select Case pilih 

Case "A" 

    Console.WriteLine() 

    Console.WriteLine("Program Hitung Luas Persegi Panjang") 

    Console.Write("Masukkan Panjang Bangun :") 

    panjang = console.ReadLine() 

    console.Write("Masukkan Lebar Bangun :") 

    lebar = console.ReadLine() 

    luas = panjang * lebar 

                console.WriteLine("Luas Bangun Datar adalah {0}",luas) 

Case "B" 

    Console.WriteLine() 

    Console.WriteLine("Program Hitung Luas Segitiga") 

    Console.Write("Masukkan Alas Bangun :") 

    alas = console.ReadLine() 

    console.Write("Masukkan Tinggi Bangun :") 

    tinggi = console.ReadLine() 

    luas = alas * tinggi * 0.5 

                Console.WriteLine("Luas Bangun Datar adalah {0}",luas) 

Case "C" 

    Console.WriteLine() 

    Console.WriteLine("Program Hitung Luas Bujur Sangkar") 

    Console.Write("Masukkan Sisi Bujur Sangkar :") 

    sisi = console.ReadLine()  

    luas = sisi * sisi 

                console.WriteLine("Luas Bangun Datar adalah {0}",luas)

End Select 

Console.WriteLine() 

Console.write("Apakah akan Menghitung Kembali (Y/T) ? ") 

ulang = Console.ReadLine() 

Console.Clear() 

loop while (ulang="Y") 

Console.WriteLine("TERIMAKASIH TELAH MENGGUNAKAN APLIKASI INI") 

            Console.ReadLine() 

End Sub 

End Module

​