Reducir codigo

[saldave]

Buenas tardes :
tengo el siguiente ejercicio:
Calcular el número de elementos negativos, cero y positivos de un vector dado de 20 elementos.

- Habra alguna manera de poder reducir el siguiente codigo que he realizado para solucionar el problema que me plantean :

Private Sub boton_Click(sender As Object, e As EventArgs) Handles boton.Click
Dim number(0 To 4), vnumber, i, j As Integer
Dim cont1 As Integer = 0
Dim cont2 As Integer = 0
Dim cont3 As Integer = 0
For i = 0 To number.Length - 1
vnumber = InputBox("Ingrese Numero")
number(i) = vnumber
Next

For j = 0 To number.Length - 1
If number(j) > 0 Then
cont1 = cont1 + 1
txtpositivos.Text = cont1
txtceros.Text = cont2
txtnegativos.Text = cont3
ElseIf number(j) = 0 Then
cont2 = cont2 + 1
txtpositivos.Text = cont1
txtceros.Text = cont2
txtnegativos.Text = cont3
ElseIf number(j) < 0 Then
cont3 = cont3 + 1
txtpositivos.Text = cont1
txtceros.Text = cont2
txtnegativos.Text = cont3
End If
Next
End Sub

Esto lo hago con el fin de poder optimizar mi logico viendo que otras alternativas tiene otras personas.

Gracias por lo comentarios.

Saludos

[saldave]

Por favor obvien la inconcordancia entre el enunciado que dice vector de 20 elementos y el codigo que declara un vector con 5 elementos,el objetivo principal es la forma de reducir el codigo presentado.

Agradezco de antemano sus respuestas.
Saludos.

[agleiva]

Lo más corto que se me ocurre es:

Código VB.Net:

Private Sub boton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
    Dim count = 20
    Dim numbers = Enumerable.Range(0, count) _
                            .Select(Function(x) CInt(InputBox("Ingrese un numero"))) _
                            .ToArray()
 
    txtCeros.Text = number.Count(Function(x) x = 0)
    txtNegativos.Text = number.Count(Function(x) x < 0)
    txtPositivos.Text = number.Count(Function(x) x > 0)
 
End Sub
 

Aunque esto es muy poco robusto ya que si el usuario ingresa un texto que no sea numérico va a dar error en tiempo de ejecución al tratar de convertirlo a Integer mediante la función Cint().

Lo más logico sería filtrar de la lista solamente aquellas cadenas de texto que sean convertibles a enteros, usando la funcion IsNumeric() de Visual Basic.Net:

Código VB.Net:

Private Sub boton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
    Dim count = 20
    Dim number = Enumerable.Range(0, count) _
                           .Select(Function(x) InputBox("Ingrese un numero")) _
                           .Where(Function(x) IsNumeric(x)) _
                           .Select(Function(x) CInt(x)) _
                           .ToArray()
 
    txtCeros.Text = number.Count(Function(x) x = 0)
    txtNegativos.Text = number.Count(Function(x) x < 0)
    txtPositivos.Text = number.Count(Function(x) x > 0)
 
End Sub