Programación VB, inserte nuevos elementos en la posición especificada en la matriz. ¡urgente!
Dim arr() As Integer
Dim n As Integer 'Número de elementos de la matriz
Dim a As Integer 'Almacenamiento de elementos recién insertados
Dim b As Integer 'Almacena la posición de inserción (1 antes del primer elemento, 2 entre el primer elemento y el segundo elemento...)
Subcomando privado1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Si b gt n 1 O b lt 1 Then MsgBox " Posición de inserción incorrecta": Salir; Sub
Label1.Caption = ""
n = n 1
ReDim Preserve arr(1 To n) 'Redefinir matriz de inserción de nuevos elementos
Para i = 0 Para n - b - 1
tem = arr(n - i): arr(n - i) = arr(n - i - 1): arr(n - i - 1) = tem
Siguiente
arr(b) = a
Para i = 1 To n
Etiqueta1.Caption = Label1.Caption amp; arr(i) amp; vbCrLf
Siguiente
Texto1.Text = ""
Texto = ""
End Sub
Sub privado Form_Load()
n = 4
ReDim arr(1 To n)
arr (1) = 73
arr(2) = 52
arr(3) = 44
arr(4) = 66
Fin Sub