Arreglos bidimensionales

Lo primero que debemos hacer es declarar el arreglo en este caso necesitamos un arreglo de 3 columnas por 9 filas
 Dim nro(0 To 2, 0 To 8)
Dim nros As Integer

Definimos la variable nros para ingresar el nro mediante inputbox

-----------------------------------------------------------------

CÒDIGO

-----------------------------------------------------------------

Public Class Form1
    Dim nro(0 To 2, 0 To 8)
    Dim nros As Integer


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For i = 0 To 8

            nros = InputBox("Ingrese el nro")

            If (nros < 0) Or (nros > 10) Then
                MsgBox("Valor invalido")
                i = i - 1
            Else

                nro(0, i) = nros
                ListBox1.Items.Add(nro(0, i))


            End If
        Next
        For i = 0 To 8
            nros = InputBox("Ingrese valores tipo decena")

            If (nros < 0) Or (nros > 99) Or (nros < 10) Then
                MsgBox("Valor invalido")
                i = i - 1
            Else

                nro(1, i) = nros
                ListBox2.Items.Add(nro(1, i))

            End If
        Next
        suma()
    End Sub
    Sub suma()
        For i = 0 To 8
            nro(2, i) = nro(0, i) + nro(1, i)
            ListBox3.Items.Add(nro(0, i) + nro(1, i))

        Next
    End Sub
End Class

-------------------------------------------------------

TAREA

_________________________________________

Usando arreglos bidimensionales permitir la multiplicacion de los 10 primeros numeros pares en la columna 0

por los 10 primeros multiplos de 5 en la columna 1 , el resultado debe presentarse en la columna 2 del arreglo y a su vez mostar los mismos en los diversos listbox

con ayuda de un cuarto listbox presente los valores de la columna 2 de manera inversa