Como calcular Média Harmônica em VB.NET - VB.NET para Matemática e Estatística

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos criar um vetor com os valores do conjunto
    Dim valores As Double() = New Double() {3, 9, 7, 2, 5}
    ' tamanho do vetor
    Dim n As Integer = valores.Length
    ' para guardar a média harmônica
    Dim media_harmonica As Double
    ' guarda a soma dos inversos dos elementos do conjunto
    Dim soma As Double = 0

    ' vamos mostrar os elementos do conjunto
    Console.Write("Os elementos do conjunto são: ")
    For i As Integer = 0 To valores.Length - 1
      Console.Write(valores(i) & ", ")
    Next

    ' agora vamos somar os inversos dos elementos
    For i As Integer = 0 To valores.Length - 1
      soma = soma + (1.0 / valores(i))
    Next

    ' agora obtemos a média harmônica
    media_harmonica = n / soma

    ' e mostramos o resultado
    Console.WriteLine(vbCrLf & "A Média Harmônica é: " &
      media_harmonica)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module