input script

masukkan script berikut di bawah ini :

setelah itu start

Module Module1

    Sub Main()
        Dim barang(4) As String
        Dim harga (4) As String
        Dim indeks As Integer
        Dim total As Integer
        Dim cari As String
        Dim ketemu As Boolean
        ketemu = False

        indeks = 0
        While indeks < 5
            Console.Write("Masukkan nama barang  {0} :", indeks + 1)
            barang(indeks) = Console.ReadLine()
            indeks = indeks + 1
        End While
        Console.WriteLine()
        indeks = 0

            While indeks < 5
            Console.Write("Masukkan harga barang {0} :", indeks + 1)
            harga(indeks) = Console.ReadLine()
            indeks = indeks + 1

        End While
        Console.WriteLine()
        indeks = 0

        While indeks < 5
            Console.WriteLine("Barang {0} adalah {1}", barang(indeks), harga(indeks))
            total = total + harga(indeks)
            indeks = indeks + 1

        End While
        Console.Write("Total harga adalah : {0}", total)
        Console.WriteLine()
        Console.Write("Masukkan barang yang dicari :")
        cari = Console.ReadLine()
        ketemu = False

        indeks = 0
        While indeks < 5
            If barang(indeks) = cari Then
                Console.WriteLine("Barang {0} ditemukan dengan harga {1}", barang(indeks), harga(indeks))
                ketemu = True
            End If

            indeks = indeks + 1

        End While
        If ketemu = False Then
            Console.WriteLine("Barang tidak ditemukan")
        End If
        Console.ReadLine()
    End Sub

End Module