buenas noches

chicos necesito de su ayuda para poder solucionar un problema que em estan dando en el instituto

se requiere lo siguiente: crear un formularios windows form para ingresar "N" cantidad de alumnos e ingresar "N" cantidad de notas
se debe mostrar el listado de alumnos ingresados y sus notas y el promedio.


tengo lo siguiente

dim alumnos(3,3) as integer
dim contador as integer
'' aqui se van agregando los valores
for i = 0 to 3
for j = 0 to 3
 alumnos(i,j)  = txtnotas.text 
next j
next i
 
'' aqui se van listando los valores
for i = 0 to 3
for j = 0 to 3
lista.items.add(alumnos(i,j))  '' la lista corresponde a un listbox
next
next

mi duda es la siguiente, al listar los numeros en el listbox se lista por ejemplo si ingreso el numero 1 se ingresan 4 numeros 1 ( 1111 ), y se deberian ingresar el primer numero 1 el sgundo y asi sucesivamente no se que estoy haciendo mal,

si alguien pudiera ayudarme con mi problema se los agradeceria.

saludos

---

[MOD]: Usa el botón "Insertar código".

No se entiende bien lo que pretendes hacer, he probado el código que has mostrado y me añade los números de las dimensiones de forma sucesiva, al menos lo que yo entiendo por sucesivamente.

Da más detalles. Muestra un ejemplo del resultado que obtienes, y otro del resultado que esperas obtener.

No se si será esto lo que pretendes hacer:

Dim alumnos(3, 3) As Integer
 
'' aqui se van agregando los valores
For iOuter As Integer = alumnos.GetLowerBound(0) To alumnos.GetUpperBound(0)
 
    For iInner As Integer = alumnos.GetLowerBound(1) To alumnos.GetUpperBound(1)
        alumnos(iOuter, iInner) = (iOuter + 1) * (iInner + 1)
    Next iInner
 
Next iOuter
 
 
'' aqui se van listando los valores
Dim sb As New System.Text.StringBuilder
 
For iOuter As Integer = alumnos.GetLowerBound(0) To alumnos.GetUpperBound(0)
 
    sb.AppendFormat("Alumno {0}: ", CStr(iOuter))
 
    For iInner As Integer = alumnos.GetLowerBound(1) To alumnos.GetUpperBound(1)
        sb.AppendFormat(" {0} ", CStr(alumnos(iOuter, iInner)))
    Next iInner
 
    sb.AppendLine()
 
Next iOuter
 
With ListBox1
    .SuspendLayout()
    .Items.AddRange(sb.ToString.Split(Environment.NewLine))
    .ResumeLayout()
End With
 
sb.Clear()

Saludos