VB.net Program to Delete a Given Element From the One-Dimensional Array

You are currently viewing VB.net Program to Delete a Given Element From the One-Dimensional Array

VB.Net program to delete a given element from the one-dimensional array

'VB.Net program to delete a given element 
'from the one-dimensional array.

Module Module1

    Sub Main()
        Dim arr As Integer() = New Integer(6) {}
        Dim flag As Integer = 0
        Dim item As Integer = 0

        Console.WriteLine("Enter array elements: ")
        For i = 0 To 5 Step 1
            Console.Write("Element[{0}]: ", i)
            arr(i) = Integer.Parse(Console.ReadLine())
        Next

        Console.Write("Enter Item: ")
        item = Integer.Parse(Console.ReadLine())

        flag = 0
        For i = 0 To 5 Step 1
            If (arr(i) = item) Then
                flag = 1
                For j = i To 4 Step 1
                    arr(j) = arr(j + 1)
                Next
                GoTo OUT
            End If
        Next

OUT:
        If (flag) Then
            Console.WriteLine("Item {0} deleted successfully.", item)
        Else
            Console.WriteLine("{0} not found.", item)
        End If

        Console.WriteLine("Elements of array after deletion ")
        For i = 0 To (5 - flag) Step 1
            Console.WriteLine("{0}", arr(i))
        Next

    End Sub

End Module
Enter array elements:
Element[0]: 10
Element[1]: 20
Element[2]: 30
Element[3]: 40
Element[4]: 50
Element[5]: 60
Enter Item: 50
Item 50 deleted successfully.
Elements of array after deletion
10
20
30
40
60
Press any key to continue . . .

Ranjith Kumar

Hi, I'm Ranjith a full-time Blogger, YouTuber, Affiliate Marketer, & founder of Coding Diksha. Here, I post about programming to help developers.

Leave a Reply