Imports System

Public Module Module1

Public Sub Main()

Dim pilih, ulang as Char

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

Do

Console.WriteLine()

Console.WriteLine("PROGRAM HITUNG LUAS BANGUN")

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

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

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

pilih = console.ReadLine()

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("hasil penjumlahan 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("hasil penjumlahan 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