Imports System

​

Public Module Module1

​

    Public Sub Main()

        DIm stock as integer

        Dim Processor As String

        Dim x As Integer

        Dim ram As String

        Dim y As String

        Dim storage as string

        Dim z as String

        Dim screen as string

        Dim a as String

        Dim casing as string

        Dim b as String

        Dim usb_Port as integer

        Dim c as string

        Do

            console.WriteLine("                                                                                                                                             insta-  @Soban.QAM")

            Console.WriteLine("Stock required")

            stock = console.readLine()

            if stock >= 30 or stock < 0

                console.WriteLine("stock unavailable")

            End if

        Loop until stock <= 30 and stock > 0

​

        Console.WriteLine("stock available")

        do

            Console.WriteLine("Processor required")

            Console.WriteLine("press 1 for p3, 2 for p5, 3 for p7")

            Processor = Console.ReadLine

        loop until processor < 4 and processor > 0

​

        If Processor = 1 Then

            x = 100

        ElseIf Processor = 2 Then

            x = 120.0

        ElseIf Processor = 3 Then

            x = 200

        End if

​

        do

            Console.WriteLine("press 1 for 16 gb ram, 2 for 32 gb ram")

            ram = Console.ReadLine

        loop until ram < 3 and ram > 0

​

        If ram = 1 Then

            y = 75

        ElseIf ram = 2 Then

            y = 150

        End If

​

        do

            Console.WriteLine("press 1 for 1 TB strorage , 2 for 2 TB storage")

            storage = Console.ReadLine

        loop until storage < 3 and storage > 0

​

        If storage = 1 Then

            z = 50

        ElseIf storage = 2 Then

            z = 100

        End If

​

        Do

            console.WriteLine("screen required")

            Console.WriteLine("press 1 for 19 inch, 2 for 23 inch")

            screen = Console.ReadLine

        loop until screen < 3 and screen > 0

​

        If screen = 1 Then

            a = 65

        ElseIf screen = 2 Then

            a = 120

        End If

​

        do

            Console.WriteLine("press 1 for mini tower, 2 for 23 mid tower")

            casing = Console.ReadLine

        loop until casing < 3 and casing > 0

​

        If casing = 1 Then

            b = 40

        ElseIf screen = 2 Then

            b = 70

        End If

​

        DO

            Console.WriteLine("press 1 for 2 usb ports, 2 for 4 usb ports ")

            Usb_port = Console.ReadLine

        loop until Usb_port < 3 and Usb_port > 0

​

        If Usb_port = 1 Then

            c = 10

        ElseIf Usb_port = 2 Then

            c = 20

        End If

​

        Console.WriteLine("$ " & stock * (x + y + z + a + b + c))

    End Sub

End Module

​