'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