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