Table of Contents
hide
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...
----------------- 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 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(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...
Example : A VB .Net Program to display all the Single Character values stored in an Array statically through Module via 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 Module via 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 the Console Application.
Imports System
Module Module1
Sub Main()
Dim i As Integer
Dim arr() As Object = {"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 For Each Loop/Without any help of Index through Module via 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 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 Two Dimensional Array through Module via 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...
0 Comments