rtjgv

Ejemplo práctico matrices unidimensionales
Hacer una aplicación que permita a un usuario capturar 10 números enteros positivos o negativos e imprima los valores en el orden que se capturan comotambién los valores ordenados de menor a mayor.
1 Crear la interfaz de usuario

Utilizando el cuadro de herramientas haga clic en el control específico y ubique los siguientes controles en elformulario en la posición deseada: 2 TextBox, 2 Label, 1 Button.
1 Establecer las propiedades de los objetos del interfaz de usuario

Después de colocar los controles u objetos en el formulario,establezca las siguientes
propiedades a los controles:
Tabla 6.1 Propiedades de los controles de la aplicación MatricesUnidimensionales.
Nombre proyecto: MatricesUnidimensionales
ControlPropiedad
Valor
TextBox1
Name
txtoriginal
Text
En blanco
TextAlign
Center
Font
Microsoft Sans Serif, 12pt, style=Bold
TextBox2
Name
txtordenado
Text
En blanco
TextAlignCenter
Font
Microsoft Sans Serif, 12pt, style=Bold
Label1
Name
lbloriginal
Text
Matriz Original
TextAlign
MiddleCenter
Font
Microsoft Sans Serif, 12pt, style=Bold
Label2
Namelblordenado
Text
Matriz Original
TextAlign
MiddleCenter
Font
Microsoft Sans Serif, 12pt, style=Bold
Button1
Name
boton
Text
Capturar números
Form1
Name
formulario
TextMatrices unidimensionales

La interfaz de usuario queda como se muestra en la siguiente figura:
Figura 6.1 Interfaz de usuario (Matrices Unidimensionales).

1 Escribir código
Seleccione elobjeto boton y abra el editor de código y escriba el siguiente código:
Dim datos (10) As Integer
Dim i, j, numero, temporal As Integer
txtoriginal.Text = " "
txtordenado.Text = " "
For i = 0To 9
numero = InputBox("Digite un Numero entero")
datos (i) = numero
txtoriginal.Text = txtoriginal.Text & datos (i) & " , "
Next
For i = 0 To 9
For j = i To 9
If (datos (i) > datos...