ARRAYS

Esta estructura esta dividido en filas .


Ejercicios.

1. Elaborar un programa que me cree un arrays de los 18 elementos y lo llene con los 12 primeros numeros pares.

Module Module1
Dim arr1(17) As Integer
Dim x As Integer = 0
Sub Main()
For x = 1 To 18
arr1(x - 1) = x * 2
Next
For x = 0 To 17
Console.WriteLine(arr1(x))
Next
End Sub
End Module

2. Elaborar un programa que me cree un arrays de 5 elementos y lo llene con la palabra aprobada.

Module Module1
Dim arr1(4) As Integer
Dim x As Integer = 0
Sub Main()
For x = 1 To 4
arr1(x) = x + 1
Next
For x = 0 To 4
Console.WriteLine("aprobada")
Next
End Sub
End Module

3. Elaborar un programa que me cree un arraya de 7elementos y lo llene con los 7 numeros enteros.

Module Module1
Dim arr1(6) As Integer
Dim x As Integer = 0
Sub Main()
For x = 0 To 6
arr1(x) = x + 1
Next
For x = 0 To 6
Console.WriteLine(arr1(x))
Next
Console.ReadLine()
End Sub
End Module