Private Sub cmdRacunajBre_Click()
    ' Rezultat = (1*2*3*...)/(1+2+3+...)
    Dim broj As Integer, proizvod As Integer, zbir As Integer, Rezultat As Single
    broj = Int(txtFakt.Text)
    proizvod = 1
    zbir = 0
    For i = 1 To broj
        proizvod = proizvod * i
        zbir = zbir + i
    Next i
    Rezultat = proizvod / zbir
    txtFaktorijelRez.Text = Rezultat
End Sub