Imports System

Public Module Module1

    Public Sub Main()

        Print("Start")

        PrintArrayWhileLoop()

        Print("End")

    End Sub

Private Sub PrintArrayNoLoop()

    Dim nInts(5) as integer

    'init array

    nInts(0) = 100

    nInts(1) = 101

    nInts(2) = 102

    nInts(3) = 103

    nInts(4) = 104

    nInts(5) = 105

    'repeat code changing index each time

    Print("Item " & "1" & ": " & nInts(0))

    Print("Item " & "1" & ": " & nInts(1))

    Print("Item " & "1" & ": " & nInts(2))

    Print("Item " & "1" & ": " & nInts(3))

    Print("Item " & "1" & ": " & nInts(4))

    Print("Item " & "1" & ": " & nInts(5))

End Sub

Private Sub PrintArrayForLoop()

    Dim nInts(5) as integer

    nInts(0) = 100

    nInts(1) = 101

    nInts(2) = 102

    nInts(3) = 103

    nInts(4) = 104

    nInts(5) = 105

    'use for loop to reuse code. Need to make index a variable      

    For i = 0 to 5

            Print("Item " & "i" & ": " & nInts(i))

    Next

End Sub

​

​

Private Sub PrintArrayForLoopReversed()

    Dim nInts(5) as integer

    nInts(0) = 100

    nInts(1) = 101

    nInts(2) = 102

    nInts(3) = 103

    nInts(4) = 104

    nInts(5) = 105

    'use loop. USe step keyword and a step of -1

    For i = 5 to 0 step -1

            Print("Item " & "i" & ": " & nInts(i))

    Next

End Sub

​

Private Sub PrintAnySizeArrayForLoop()

    Dim nInts(5) as integer

    nInts(0) = 100

    nInts(1) = 101

    nInts(2) = 102

    nInts(3) = 103

    nInts(4) = 104

    nInts(5) = 105

'use loop. Gest start and end values from the array itself

    For i = nInts.GetLowerBound(0) to nInts.GetUpperBound(0)

            Print("Item " & "i" & ": " & nInts(i))

    Next

End Sub

​

​

Private Sub PrintAnySizeArrayForLoopReversed()

    Dim nInts(5) as integer

    nInts(0) = 100

    nInts(1) = 101

    nInts(2) = 102

    nInts(3) = 103

    nInts(4) = 104

    nInts(5) = 105

'use loop. Get start and end values from the array itself. Reverse order by using a step of -1

For i = nInts.GetUpperBound(0) to nInts.GetLowerBound(0) step -1

            Print("Item " & "i" & ": " & nInts(i))

    Next

End Sub

​

Private Sub PrintArrayWhileLoop()

    Dim nInts(5) as integer

    nInts(0) = 100

    nInts(1) = 101

    nInts(2) = 102

    nInts(3) = 103

    nInts(4) = 104

    nInts(5) = 105

    Dim i as integer

'a while loop with an array. Probably silly to use here. For loops are for going through arrays.

    While i <> 5    

        Print("Item " & "i" & ": " & nInts(i))

        i += 1

    End While

End Sub

​

Private Sub GetMaxArrayValueFor()

'init arrays

    Dim nInts(5) as integer

    nInts(0) = 123

    nInts(1) = 231

    nInts(2) = 312

    nInts(3) = 321

    nInts(4) = 231

    nInts(5) = 132

'init scalars (not arrays)

    Dim i as integer

    Dim nMax as integer

    nMax = nInts(0) 

    For i = 0 to 5

        if (nInts(i) > nMax) then nMax = nInts(i)

    Next

    Print("Max: " & nMax)

End Sub

​

Private Sub Get2ndHighestArrayValueFor_1()

'init arrays

    Dim nInts(5) as integer

    nInts(0) = 123

    nInts(1) = 231

    nInts(2) = 312

    nInts(3) = 321

    nInts(4) = 231

    nInts(5) = 132

'init scalars (not arrays)

    Dim i as integer

    Dim nMax as integer

    nMax = nInts(0) 

'loop through. use if to select max value

    For i = 0 to 5

        if (nInts(i) > nMax) then nMax = nInts(i)

    Next

    Dim n2ndMax as integer

    n2ndMax = nInts(0)

'loop through. use a Compund if (use AND keyword to join 2 conditions) to select 2nd max value

    For i = 0 to 5

        if (nInts(i) > n2ndMax) AND (nInts(i) < nMax)  then n2ndMax = nInts(i)

    Next    

    Print("2nd Max: " & nMax)

End Sub

​

​

Private Sub Get2ndHighestArrayValueFor_2()

'init arrays

    Dim nInts(5) as integer

    nInts(0) = 123

    nInts(1) = 231

    nInts(2) = 312

    nInts(3) = 321

    nInts(4) = 231

    nInts(5) = 132

'init scalars (not arrays)

    Dim i as integer

    Dim nMax as integer

    Dim n2ndMax as integer

    nMax = nInts(0)

    n2ndMax = nInts(0)

        'loop through code use an if then elseif block to get max and 2nd max at the same time (within the same loop)

    For i = 0 to 5

        if (nInts(i) > nMax) then

            nMax = nInts(i)

        elseif (nInts(i) > n2ndMax) then

            'this only runs if nInts(i) is not the max but it is also higher than previous 2nd highest

            n2ndMax = nInts(i)  

        end if

    Next

    n2ndMax = nInts(0)

    For i = 0 to 5

        if (nInts(i) > n2ndMax) AND (nInts(i) < nMax)  then n2ndMax = nInts(i)

    Next    

    Print("2nd Max: " & nMax)

End Sub

​

'to do PrintArrayUNtil Loop

​

Private Sub Print(sText)

        Console.WriteLine(sText)

End Sub

​

End Module