Visual Basic.NET - Programa que muestre los primeros 100 números de izquierda a derecha con un array de dos dimensiones

Dim numeros(2,50) As Integer 'Declaramos el array de 2 filas y 50 elementos cada fila

'Rellenamos el array

dim x=1

dim cad1 as string 'aqui almacenaremos la primera fila de numeros

dim cad2 as string 'aqui almacenaremos la segunda fila de numeros

for x=x to 50

     numeros(1,x)=x 'en la primera fila empezamos desde el 1 hasta el 50

     numeros(2,x)=x+50 'en la segunda fila empezamos desde el 1+50=51 hasta el 100

     cad1=cad1+cstr(numeros(1,x))+" "  'almacenamos los numeros que acabamos de guardar en una cadena, pero

     cad2=cad2+cstr(numeros(2,x))+" "  'antes los convertimos a string con la funcion CSTR para que no de error.

next

'Ahora mostramos en un msgbox cad1 (fila 1 del array) y cad2 (fila 2 del array) de izda a derecha

msgbox(cad1+chr(13)+cad2) 'mostramos las 2 cadenas con un salto de linea de por medio