Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB, inserte nuevos elementos en la posición especificada en la matriz. ¡urgente!

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