Mix и Макс не работают должным образом в VB.Net

Question

У меня есть этот код в VB.NET

   Dim numeros(9) As Integer
   For Each numerito In numeros
       numerito = Val(InputBox("Ingrese un numero"))
   Next

   txtResultadoMayor.Text = Val(numeros.Max())
   txtResultadoMenor.Text = Val(numeros.Min())

Это должно быть очень просто и дать мне максимальные и минимальные значения, но и Min (), и Max () возвращают 0. Почему это так

Answer 1

Вам нужно изменить код, чтобы добавить числа в массив

   Dim numeros(9) As Integer
   For index As Integer = 0 To numeros.Count - 1
       numeros(index) = Val(InputBox("Ingrese un numero"))
   Next

   txtResultadoMayor.Text = Val(numeros.Max())
   txtResultadoMenor.Text = Val(numeros.Min())