Question

How to declare, initialize and print one-dimensional array of integers in VB.NET

Answer 1

Module Module1

    Sub Main()
        Dim arr() As Integer = {2, 234, 48, 17, 98, 918, 800, 12237, 100, 28}

        For i As Integer = 0 To arr.Length - 1
            Console.WriteLine("arr({0}) = {1}", i, arr(i))
        Next

    End Sub

End Module

'run:
'
'arr(0) = 2
'arr(1) = 234
'arr(2) = 48
'arr(3) = 17
'arr(4) = 98
'arr(5) = 918
'arr(6) = 800
'arr(7) = 12237
'arr(8) = 100
'arr(9) = 28

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()
        Dim arr(10 - 1) As Integer

        For i As Integer = 0 To arr.Length - 1
            arr(i) = i + 1
        Next
        For i As Integer = 0 To arr.Length - 1
            Console.WriteLine("arr({0}) = {1}", i, arr(i))
        Next
    End Sub

End Module

'run:
'
'arr(0) = 1
'arr(1) = 2
'arr(2) = 3
'arr(3) = 4
'arr(4) = 5
'arr(5) = 6
'arr(6) = 7
'arr(7) = 8
'arr(8) = 9
'arr(9) = 10

 

70+ SQL courses for beginners and professionals

Answer 3

Module Module1

    Sub Main()
        Dim arr(10) As Integer ' array of 11 integers

        For i As Integer = 0 To arr.Length - 1
            arr(i) = i + 1
        Next
        For i As Integer = 0 To arr.Length - 1
            Console.WriteLine("arr({0}) = {1}", i, arr(i))
        Next
    End Sub

End Module

'run:
'
'arr(0) = 1
'arr(1) = 2
'arr(2) = 3
'arr(3) = 4
'arr(4) = 5
'arr(5) = 6
'arr(6) = 7
'arr(7) = 8
'arr(8) = 9
'arr(9) = 10
'arr(10) = 11

 

70+ SQL courses for beginners and professionals