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 = koren(5+ZBI)

    N = Sqr(5 + ZBI)
    If N < 0 Then
        MsgBox ("Ne moze biti -")
        Exit Sub
    End If

    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