Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ' # Intervalo
        Dim num As Double
        num = Val(TextBox5.Text)
        TextBox6.Text = (1 + 3.333 * Math.Log10(num))
        Intervalo = TextBox6.Text
        TextBox6.Text = ""
    End Sub

Public Class Media_de_tendencias_central
    Dim d As Double = 0
    Dim c As Double = 0
    Dim suma As Double = 0.0
    Dim multi As Double = 0.0
    Dim numero As String

// MEDIA ARITMÉTICA //

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num As Double
        num = TextBox1.Text
        suma = suma + num
        d = d + 1
        numero = numero & num & " + "
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Sorted = True
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim aritmetica As Double
        aritmetica = suma / d
        TextBox2.Text = aritmetica
    End Sub

// MEDIA GEOMÉTRICA //

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim num2 As Double
        num2 = TextBox3.Text
        multi = multi * num2
        c = c + 1
        numero = numero & num2 & " * "
        ListBox2.Items.Add(TextBox3.Text)
        TextBox3.Text = ""
        TextBox3.Focus()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ListBox2.Sorted = True
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim geometrica As Double
        geometrica = Math.Sqrt(multi ^ 1 / c)
        TextBox4.Text = geometrica
    End Sub
End Class