ADVERTISEMENT
ADVERTISEMENT

VB.Net program to insert an item into a one-dimensional array

Here, we are going to learn how to insert an item into a one-dimensional array in VB.Net?
Submitted by Nidhi, on December 11, 2020

Here, we will create an array of integers and then read elements from the user. After that, we will insert an item in the sorted array.

Program/Source Code:

The source code to insert an item into a one-dimensional array is given below. The given program is compiled and executed successfully.

'VB.Net program to insert an item into a sorted array.

Module Module1

    Sub Main()
        Dim arr As Integer() = New Integer(10) {}
        Dim n As Integer = 0
        Dim item As Integer = 0

        Console.Write("Enter size of array: ")
        n = Integer.Parse(Console.ReadLine())

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

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

        For i = 0 To 5 Step 1
            If (arr(i) >= item) Then
                For j = n To i Step -1
                    arr(j + 1) = arr(j)
                Next
                arr(i) = item
                GoTo OUT
            End If
        Next
OUT:
        Console.WriteLine("Elements of array after insertion: ")
        For i = 0 To n Step 1
            Console.WriteLine("{0}", arr(i))
        Next
    End Sub

End Module

Output:

Enter size of array: 5
Enter array elements:
Element[0]: 10
Element[1]: 20
Element[2]: 30
Element[3]: 40
Element[4]: 50
Enter Item: 35
Elements of array after insertion:
10
20
30
35
40
50
Press any key to continue . . .

Explanation:

In the above program, we created a module Module1 that contains a function Main(). In the Main(), we created an array arr of 10 elements and we also created more variables item, n which are initialized with 0.

Console.Write("Enter size of array: ")
n = Integer.Parse(Console.ReadLine())

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

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

In the above code, we read the size of the array then input the array elements from the user.

For i = 0 To 5 Step 1
    If (arr(i) >= item) Then
        For j = n To i Step -1
            arr(j + 1) = arr(j)
        Next
        arr(i) = item
        GoTo OUT
    End If
Next
OUT:
Console.WriteLine("Elements of array after insertion: ")
For i = 0 To n Step 1
    Console.WriteLine("{0}", arr(i))
Next

In the above code, we found the location in the sorted array to insert the item, if we found the array element greater than the given item, then we perform shift operation one position ahead. After that, we insert the item into the array and then print the update array on the console screen.

VB.Net Array Programs »



ADVERTISEMENT



ADVERTISEMENT



Comments and Discussions


ADVERTISEMENT

ADVERTISEMENT
ADVERTISEMENT
ADVERTISEMENT

Languages: » C » C++ » C++ STL » Java » Data Structure » C#.Net » Android » Kotlin » SQL
Web Technologies: » PHP » Python » JavaScript » CSS » Ajax » Node.js » Web programming/HTML
Solved programs: » C » C++ » DS » Java » C#
Aptitude que. & ans.: » C » C++ » Java » DBMS
Interview que. & ans.: » C » Embedded C » Java » SEO » HR
CS Subjects: » CS Basics » O.S. » Networks » DBMS » Embedded Systems » Cloud Computing
» Machine learning » CS Organizations » Linux » DOS
More: » Articles » Puzzles » News/Updates

© https://www.includehelp.com some rights reserved.