Array Examples in VB .Net

Published by Admin on

Table of Contents hide
1. Example : An Array Example in VB .Net or a Program to display only the first and last integer values from a statically stored Array value through a Module via a Console Application.
2. Example : An array Example in VB .Net or a program to display all the integer values in different ways as stored in an array statically through a module via a console application.
3. Example : An array Example in a VB .Net program to accept and display the user’s input/dynamic values through a module via a console application.
4. Example: A VB.NET program to display all single-character values stored in an Array statically through a Module via a Console Application.
5. Example: A VB.NET program to display all the String values stored in an Array statically through a Module via a Console Application.
6. Example : A VB .NET program to display all the Object values/Misc. Characters are stored in an Array statically through a Module via a Console Application.
7. Example : A VB .Net Program to display all the values stored in an Array statically using a For Each Loop/Without any help of an Index through a Module via a Console Application.
8. Example: A VB .Net Program is used to display the size/count of an array’s length in different ways through the module via the console application.
9. Example : A VB .Net Program to convert a String into Single Characters of an array through Module via Console Application.
10. Example : A VB .Net Program to accept integer values from users at run time/dynamically in a one-dimensional array through keyboard and display all of them through Module via Console Application.
11. Example : A VB .Net Program to display the descending values of all the accepted/stored values in a dimensional Array through a Module via a Console Application.
12. Example : A VB .Net Program to display all the statically stored values from a two-dimensional array through a Module via a Console Application.
13. Example : A VB .Net Program to display all the user-accepted dynamic values from a two-dimensional Array through a Module via a Console Application.
Example : An Array Example in VB .Net or a Program to display only the first and last integer values from a statically stored Array value through a Module via a Console Application.
Imports System
Module Module1
    Sub Main()

        Dim i As Integer
        Dim arr() As Integer = {10, 20, 30, 40, 50}
        Console.WriteLine("The values stored in an array is: ")

        Console.Write(arr(0))
        Console.Write(" ")
        Console.Write(arr(1))


        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module
Example : An array Example in VB .Net or a program to display all the integer values in different ways as stored in an array statically through a module via a console application.
Imports System
Module Module1
    Sub Main()

        Dim i As Integer        
        Dim arr() As Integer = {10, 20, 30, 40, 50}
        Console.WriteLine("The values stored in an array is: ")
        For i = 0 To arr.Length - 1
            Console.WriteLine(arr(i))
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output :
The values stored in an array is:
10
20
30
40
50

Press any key to exit from output screen...

NB: Here, Dim arr(4) As Integer = {10, 20, 30, 40, 50} declaration is not possible, [here 4 is upper index value, i.e. for storing 5 total values], because it assigns values in parallel. It may be possible when values are assigned later after it declaration.
-----------------  OR  -----------------

Imports System
Module Module1
    Sub Main()

        Dim i As Integer
        Dim arr() As Integer = {10, 20, 30, 40, 50}
        Console.WriteLine("The values stored in an array is: ")
        'For i = 0 To 4
        For i = 0 To arr.Length - 1
            Console.Write(arr(i))
            Console.Write(" ")
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output :
The values stored in an array is:
10 20 30 40 50

Press any key to exit from output screen...

-----------------  OR  -----------------

Imports System
Module Module1
    Sub Main()

        Dim arr As Integer() = New Integer(5) {10, 20, 30, 40, 50, 60}
        'Dim arr As Integer() = New Integer() {10, 20, 30, 40, 50, 60}

        Console.WriteLine("The values stored in array are : ")
        For i = 0 To arr.Length - 1
            Console.WriteLine(arr(i))
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output :
The values stored in an array is:
10
20
30
40
50

Press any key to exit from output screen...

-----------------  OR  -----------------

Imports System
Module Module1
    Sub Main()

        Dim i As Integer
        Dim arr As Integer()
        arr = New Integer() {10, 20, 30, 40, 50}
        Console.WriteLine("The values stored in an array is: ")
        For i = 0 To arr.Length - 1
            Console.WriteLine(arr(i))
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output :
The values stored in an array is:
10
20
30
40
50

Press any key to exit from output screen...

-----------------  OR  -----------------

Imports System
Module Module1
    Sub Main()

        Dim i As Integer
        Dim arr(4) As Integer
        'Dim arr(0 To 4) As Integer  'Fixed Size Array
        arr(0) = 10
        arr(1) = 20
        arr(2) = 30
        arr(3) = 40
        arr(4) = 50
        Console.WriteLine("The values stored in an array is: ")
        For i = 0 To arr.Length - 1
            Console.WriteLine(arr(i))
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output :
The values stored in an array is:
10
20
30
40
50

Press any key to exit from output screen...

NB: Dim arr(4) As Integer, here 4 is upper index value, i.e. total value is 5. This declaration is possible and corret because the values are assigned later after declaration, but not correct and possible in parallel declaration as in Dim arr(4) As Integer={10, 20, 30, 40, 50}. The correct form is Dim arr() As Integer={10, 20, 30, 40, 50}.
Example : An array Example in a VB .Net program to accept and display the user’s input/dynamic values through a module via a console application.
Module Module1
    Sub Main()
        Dim x(4) As Integer   ' To store 5 values in array
        Dim i As Integer
        For i = 0 To 4
            Console.WriteLine("Please enter integer value {0} of 5:", i + 1)
            x(i) = (Console.ReadLine())
            'x(i) = Convert.ToInt32(Console.ReadLine())
        Next

        Console.WriteLine("The entered numbers are :")
        For i = 0 To 4
            Console.Write(x(i) & " ")
        Next
        Console.ReadKey()
    End Sub
End Module

Output:
Please enter integer value 1 of 5:
10
Please enter integer value 2 of 5:
20
Please enter integer value 3 of 5:
30
Please enter integer value 4 of 5:
40
Please enter integer value 5 of 5:
50
The entered numbers are :
10 20 30 40 50

-----------------  OR  -----------------

Module Module1
    Sub Main()
        Dim x(4) As Integer   ' To store 5 values in array
        Dim i As Integer
        For i = 0 To 4
            Console.WriteLine("Please enter integer value {0} of 5:", i + 1)
            x(i) = (Console.ReadLine())
            'x(i) = Convert.ToInt32(Console.ReadLine())
        Next

        Console.WriteLine("The entered odd numbers are :")
        For i = 0 To 4
            If x(i) Mod 2 <> 0 Then
                Console.Write(x(i) & " ")
            End If
        Next
        Console.ReadKey()
    End Sub
End Module

-----------------  OR  -----------------

Module Module1
    Sub Main()
        Dim x(9) As Integer   ' To store 10 values in array
        Dim table, i As Integer
        Console.WriteLine("Enter your table value")
        table = Console.ReadLine()
        For i = 0 To 9
            x(i) = table * (i + 1)
        Next

        Console.WriteLine("The entered table values are :")
        For i = 0 To 9
            Console.Write(x(i) & " ")
        Next
        Console.ReadKey()
    End Sub
End Module

-----------------  OR  -----------------

Module Module1
    Sub Main()

        Dim x(4) As Integer   ' To store 5 values in array
        Dim i As Integer
        For i = 0 To 4
            Console.WriteLine("Please enter integer value {0} of 5:", i + 1)
            x(i) = (Console.ReadLine())
            'x(i) = Convert.ToInt32(Console.ReadLine())
        Next

        Console.WriteLine("The entered numbers in reverse order are :")
        Array.Reverse(x)

        For i = 0 To 4
            Console.Write(x(i) & " ")
        Next
        Console.ReadKey()
    End Sub
End Module

-----------------  OR  -----------------

Module Module1
    Sub Main()

        Dim x(4) As Integer   ' To store 5 values in array
        Dim i As Integer
        For i = 0 To 4
            Console.WriteLine("Please enter integer value {0} of 5:", i + 1)
            x(i) = (Console.ReadLine())
            'x(i) = Convert.ToInt32(Console.ReadLine())
        Next

        Console.WriteLine("The entered numbers in Ascending or Sorted order are :")
        Array.Sort(x)

        For i = 0 To 4
            Console.Write(x(i) & " ")
        Next
        Console.ReadKey()
    End Sub
End Module

-----------------  OR  -----------------

Imports System.Linq
Module Module1
    Sub Main()
        Dim x(4) As Integer   ' To store 5 values in array
        Dim i As Integer
        For i = 0 To 4
            Console.WriteLine("Please enter integer value {0} of 5:", i + 1)
            x(i) = (Console.ReadLine())
            'x(i) = Convert.ToInt32(Console.ReadLine())
        Next

        Console.WriteLine() ' for newline
        Console.WriteLine() ' for newline

        Console.WriteLine("The Maximum entered numbers is :")
        Console.Write(x.Max())

        Console.WriteLine()

        Console.WriteLine("The Minimum entered numbers is :")
        Console.Write(x.Min())

        Console.ReadKey()

    End Sub

End Module
Example: A VB.NET program to display all single-character values stored in an Array statically through a Module via a Console Application.
Imports System
Module Module1
    Sub Main()

        Dim i As Integer
        Dim arr() As Char = {"A", "B", "C", "D", "E"}

        Console.WriteLine("The values stored in an array is: ")
        For i = 0 To arr.Length - 1
            Console.WriteLine(arr(i))
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output :
The values stored in an array is:
A
B
C
D
E

Press any key to exit from output screen...

-----------------  OR  -----------------

Imports System
Module Module1
    Sub Main()

        Dim i As Integer
        Dim arr(2) As Char
        arr(0) = "A"
        arr(1) = "B"
        arr(2) = "C"

        Console.WriteLine("The values stored in an array is: ")
        For i = 0 To arr.Length - 1
            Console.WriteLine(arr(i))
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output:
The values stored in an array is:
A
B
C

Press any key to exit from output screen...
Example: A VB.NET program to display all the String values stored in an Array statically through a Module via a Console Application.
Imports System
Module Module1
    Sub Main()
        Dim i As Integer       

        Dim arr() As String = {"India", "America", "France", "Russia", "Israel"}

        Console.WriteLine("The values stored in an array is: ")
        For i = 0 To arr.Length - 1
            Console.WriteLine(arr(i))
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output :
The values stored in an array is:
India
America
France
Russia
Israel

Press any key to exit from output screen...
Example : A VB .NET program to display all the Object values/Misc. Characters are stored in an Array statically through a Module via a Console Application.
Imports System
Module Module1
    Sub Main()

        Dim i As Integer
        Dim arr() As Object = {"India", 50, "S400", 5000.32, "600"}
        'Dim arr() As String = {"India", 50, "S400", 5000.32, "600"}

        Console.WriteLine("The values stored in an array is: ")
        For i = 0 To arr.Length - 1
            Console.WriteLine(arr(i))
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output :
The values stored in an array is:
India
50
S400
5000.32
600

Press any key to exit from output screen...
Example : A VB .Net Program to display all the values stored in an Array statically using a For Each Loop/Without any help of an Index through a Module via a Console Application.
Imports System
Module Module2
    Sub Main()
        Dim arr() As Integer = {1, 2, 3, 4, 5}
        Dim i As Integer

        For Each i In arr
            Console.WriteLine("Value of index {0} is {1}", i - 1, i)
        Next
        Console.WriteLine("Press any key to exit from output...")
        Console.ReadLine()
    End Sub
End Module

Output :
Value of index 0 is 1
Value of index 1 is 2
Value of index 2 is 3
Value of index 3 is 4
Value of index 4 is 5
Press any key to exit from output...
Example: A VB .Net Program is used to display the size/count of an array’s length in different ways through the module via the console application.
Imports System
Module Module1
    Sub Main()

        Dim arr1() As Char = {"A", "B", "C", "D"}

        Dim arr2(2) As Char
        arr2(0) = "A"
        arr2(1) = "B"
        arr2(2) = "C"

        Dim arr3() As Integer = {10, 20}

        Dim arr4() As String = {"India", "America", "France", "Russia", "Israel", "UK"}

        Dim arr5() As Object = {"India", 50, "S400", 5000.32, "600"}

        Console.WriteLine("The Size/Length of different array are : ")
        Console.WriteLine(arr1.Length)
        Console.WriteLine(arr2.Length)
        Console.WriteLine(arr3.Length)
        Console.WriteLine(arr4.Length)
        Console.WriteLine(arr5.Length)

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output: 
The Size/Length of different array are :
4
3
2
6
5

Press any key to exit from output screen...
Example : A VB .Net Program to convert a String into Single Characters of an array through Module via Console Application.
Imports System
Module Module1
    Sub Main()

        Dim Str As String = "Welcome"

        Dim arr() As Char = Str.ToCharArray()

        For Each x As Char In arr
            Console.WriteLine(x)
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output:
W
e
l
c
o
m
e

Press any key to exit from output screen...
Example : A VB .Net Program to accept integer values from users at run time/dynamically in a one-dimensional array through keyboard and display all of them through Module via Console Application.
Imports System
Module Module1
    Sub Main()

        Dim arr(5) As Integer
        'Dim arr As Integer() = New Integer(5) {}

        Console.WriteLine("Enter the 6 Array elements")
        Console.WriteLine()

        For i As Integer = 0 To 5
            Console.Write("Enter the array {0} value for Index {1}: ", i + 1, i)
            arr(i) = Console.ReadLine()
        Next

        Console.WriteLine()
        Console.WriteLine("The stored 6 array elements are : ")
        For j As Integer = 0 To 5
            Console.WriteLine(arr(j))
        Next

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output:
Enter the 6 Array elements

Enter the array 1 value for Index 0: 10
Enter the array 2 value for Index 1: 20
Enter the array 3 value for Index 2: 30
Enter the array 4 value for Index 3: 40
Enter the array 5 value for Index 4: 50
Enter the array 6 value for Index 5: 60

The stored 6 array elements are :
10
20
30
40
50
60

Press any key to exit from output screen...
Example : A VB .Net Program to display the descending values of all the accepted/stored values in a dimensional Array through a Module via a Console Application.
Module Module1
    Sub Main()
        Dim numbers(9) As Integer   ' To store 10 values in array
        Dim i As Integer
        For i = 0 To 9
            Console.WriteLine("Please enter integer value {0} of 10:", i + 1)
            numbers(i) = (Console.ReadLine())
            'numbers(i) = Convert.ToInt32(Console.ReadLine())
        Next

        Array.Sort(numbers)
        Array.Reverse(numbers)

        Console.WriteLine("The entered numbers in descending order are :")
        For i = 0 To 9
            Console.Write(numbers(i) & " ")
        Next
        Console.ReadKey()
    End Sub
End Module
Example : A VB .Net Program to display all the statically stored values from a two-dimensional array through a Module via a Console Application.
Imports System
Module Module1
    Sub Main()

        Dim tda(,) As Integer = {{10, 20}, {30, 40}, {50, 60}}        

        Console.WriteLine("The stored 6 array elements in 3 rows and 2 columns are : ")
        Console.WriteLine()
        For i As Integer = 0 To 2
            For j As Integer = 0 To 1
                Console.WriteLine("The values at index {0}, {1} = {2}", i, j, tda(i, j))
            Next j
        Next i

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output:
The stored 6 array elements in 3 rows and 2 columns are :

The values at index 0, 0 = 10
The values at index 0, 1 = 20
The values at index 1, 0 = 30
The values at index 1, 1 = 40
The values at index 2, 0 = 50
The values at index 2, 1 = 60

Press any key to exit from output screen...
Example : A VB .Net Program to display all the user-accepted dynamic values from a two-dimensional Array through a Module via a Console Application.
Imports System
Module Module1
    Sub Main()

        Dim tda(3, 2) As Integer

        Console.WriteLine("Enter 12 array elements in 4 rows and 3 columns are : ")
        Console.WriteLine()
        For i As Integer = 0 To 3
            For j As Integer = 0 To 2
                tda(i, j) = Console.ReadLine()
            Next j
        Next i
        Console.WriteLine()

        Console.WriteLine("The stored 12 array elements in 4 rows and 3 columns are : ")
        For i As Integer = 0 To 3
            For j As Integer = 0 To 2
                Console.WriteLine("The values at index {0}, {1} = {2}", i, j, tda(i, j))
            Next j
        Next i

        Console.WriteLine()
        Console.WriteLine("Press any key to exit from output screen...")
        Console.ReadLine()
    End Sub
End Module

Output:

10
20
30
40
50
60
70
80
90
100
110
120

The stored 12 array elements in 4 rows and 3 columns are :
The values at index 0, 0 = 10
The values at index 0, 1 = 20
The values at index 0, 2 = 30
The values at index 1, 0 = 40
The values at index 1, 1 = 50
The values at index 1, 2 = 60
The values at index 2, 0 = 70
The values at index 2, 1 = 80
The values at index 2, 2 = 90
The values at index 3, 0 = 100
The values at index 3, 1 = 110
The values at index 3, 2 = 120

Press any key to exit from output screen...

Loading

Categories: VB .Net Theory

0 Comments

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Related Posts

VB .Net Theory

Control Statements in VB .Net

Decision Statements in VB .Net Definition A decision statement in VB .NET is used to control the flow of execution of a program statement by allowing different blocks of code to execute based on conditions Read more…

VB .Net Theory

Array & Collection

Array Introduction An array in VB .NET is a simple and static data structure. Definition In VB .NET, an Array in VB .NET is a collection of elements of the same data type stored in contiguous Read more…

VB .Net Theory

Procedure/Function Examples

Example : A program in VB .Net 2013 to show a Subroutine/Sub Procedure. Example : A program in VB .Net to show a Parameterized Subroutine Procedure. Example : A program in VB .Net 2013 to Read more…