Exercise 3 of 2018-09-04

Function esercizio3(ByVal parametro1 As Integer, ByVal parametro2 As Integer) As Double
    esercizio3 = 0
    Dim conta As Integer
    conta = 0
    Dim i As Integer
    For i = parametro1 To parametro2
        If 1 <> 0 Then
            esercizio3 = esercizio3 + (1 / i)
            conta = conta + 1
        End If
    Next i
    esercizio3 = esercizio3 / conta
End Function