Private Sub cmdRacunaj_Click()
    Dim A(1000) As Integer, ZBI As Integer, PetA As Single, ZbirA As Integer, Rezultat As Single, N As Single, i As Integer

    ZBI = Int(txtZBI.Text)
    If ZBI = 0 Then
        ZBI = 8
    End If

    ' N = (5+ZBI)/ZBI

    Dim broj1 As Single, broj2 As Single
    broj1 = (5 + ZBI)
    broj2 = ZBI
    If broj2 = 0 Then
        MsgBox ("Ne moze se deliti sa nulom!")
        Exit Sub
    End If

    N = broj1 / broj2

    For i = 0 To N - 1
        A(i) = Val(InputBox("Unesi broj:"))
    Next i


    PetA = 1
    For i = 0 To 4
        PetA = PetA * A(i)
    Next i


    ZbirA = 0
    For i = 0 To N - 1
        ZbirA = ZbirA + A(i)
    Next i

    Rezultat = PetA / ZbirA

    txtProizvod.Text = PetA
    txtZbir.Text = ZbirA
    txtRezultat.Text = Rezultat

End Sub