'Primer 8: Osnovne operacije sa nizovima

Sub testNiz()
    Dim niz() As Integer
    Dim n As Integer    'dimenzija niza
    Dim sPoruka As String
    'unosimo broj elemenata niza kao broj iz opsega [2,10]
    n = InputBox("Unesite broj elemenata niza (2 <= n <= 10)")
    'zauzimamo mesto u memoriji za elemente niza
    ReDim niz(n)
    'unosimo elemente niza
    unosNiza niz, n
    sPoruka = ispisNiza(niz, n)
    MsgBox "Unet je niz: " & sPoruka

    dodajSvima niz, n, 1    'povecavamo svaki element niza za 1
    sPoruka = ispisNizaObrnut(niz, n)
    MsgBox "Izmenjen niz u obrnutom poretku: " & sPoruka
End Sub

Sub unosNiza(ByRef niz() As Integer, ByVal n As Integer)
    Dim i As Integer
    For i = 1 To n
        niz(i) = InputBox("Unesite niz(" & i & ")")
    Next
End Sub

'svakom elementu niza se dodaje prirastaj (koji moze da bude i negativan)
Sub dodajSvima(ByRef niz() As Integer, ByVal n As Integer, ByVal prirastaj As Integer)
    Dim i As Integer
    For i = 1 To n
        niz(i) = niz(i) + prirastaj
    Next
End Sub

'Vrednost funkcije je niska sastavljena od elemenata niza razdvojenih razmakom
Function ispisNiza(ByRef niz() As Integer, ByVal n As Integer) As String
    Dim i As Integer
    ispisNiza = niz(1)
    For i = 2 To n
        ispisNiza = ispisNiza & " " & niz(i)
    Next
End Function

'Vrednost funkcije je niska sastavljena od elemenata niza razdvojenih razmakom ali u poretku od poslednjeg ka prvom
Function ispisNizaObrnut(ByRef niz() As Integer, ByVal n As Integer) As String
    Dim i As Integer
    ispisNizaObrnut = niz(n)
    For i = n - 1 To 1 Step -1
        ispisNizaObrnut = ispisNizaObrnut & " " & niz(i)
    Next
End Function