Private Function generarZ() As Double
Dim moRandom As New Random
Dim sumaRandomicos As Double
Dim acumulador As Double
For intContadorRandomicos As Integer = 1 To 12
acumulador = acumulador + Math.Round(moRandom.NextDouble, 2)
Next
sumaRandomicos = acumulador
Return sumaRandomicos
End Function