[vb6] unire due array

[michelecali]

stai sbagliando ... dopo aver acquisito i due array, devi creare un terzo array con dimenzioni = alla soma di n1 + n2
poi instanzi due cicli For to next separati, incrementando una variabile a ogni ciclo che farà riferimento all'indice del terzo array che vuoi riempire:

Dim n1(10) As Integer
Dim n2(4) As Integer
Dim i As Integer


For i = 0 To 10
n1(i) = InputBox("inserisci n")
Next

For i = 0 To 4
n2(i) = InputBox("inserisci m")
Next

Dim j As Integer
Dim ntot As Integer

ntot=ubound(n1)+ubound(n2)
dim n3(ntot) as integer

j=0
For i = 0 To ubound(n1)
   n3(j)=n1(i)
   j=j+1
next

for i=0 to ubound(n2)
   n3(j)=n2(i)
   j=j+1
next

' n3 conterrà l'unione dei due array n1 con n2