Program A 

Variabel constanta type data.

1. Yang mebuat program error yaitu alamat tidak menemukan tujuan yang jelas, tujuan yang terdekat adalah pada const alamat = “Kuningan”, seedangkan di module adalah “Purwokerto”. Seharusnya pada program btalmtt1_Click baris alamat = “Kuningan” di beri tanda ‘ untuk mentidak aktifkannya.
   
   
2. Karena tujuan yang dituju alamat pada program btalmt1_Click dan btalmt2_Click adalah pada program yang terdekat yaitu pada baris const alamat = “Kuningan”, jika ingin berbeda dilakukan program seperti pada btnama yaitu salah satu diantara btalmt1 dan btalmt2 diberi alamat jelas, dan pada baris const alamat = “Kuningan” dihapus.
   
   
3. Pada program bttambahumur1_Click baris Dim umur As Integer, seharusnya Dim diganti dengan Static agar saat ditekan tombol tambah umur 1, umur bertambah 1 dari sebelumnya.
   
   
4. Pada form2 button – button seperti btnama, btalamat, dan btumur sudah menemukan target yang jelas pada module, pada btnama baris txtnama.Text = nama ada target di module yaitu public Public const nama As String = “Nandang Hermanto” Pada btalamat juga ada target di module yaitu Public const alamat As String = “Purwokerto” Pada btumur juga ada target di module yaitu Public const umur As Integer = 17
   
   

   Hasil dari program di atas.

    

    
   
   

   Program B

   If dan Case.

   Kelemahan programnya ada pada nama barang dan harga barang, dimana tertuliskan nama barang = - dan harga barang = 0 
   
   
   
   
   
   
   
    Sebelum listing di benarkan.
   
   
   
   
   
   Sesudah listing di perbaiki.
   
   
   
   
   
   Hasil dari program B setelah di jalankan.