[vb6] unire due array

[Nolad]

Ciao ragazzi.. non riesco a risolvere questo problema..
il problema è il seguente io ho due array e devo unirli in un unico array
il codice che ho ho fatto io è il seguente

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
For i = 0 To 14
For j = 0 To 10
ntot = n1(i)
Next
For j = 0 To 4
ntot = n2(i)(mida qua l'errore)
Next
Next

cosi facendo non va..
ho cercato anche sul web ma non ho trovato niente

p.s. sono alle prime armi

[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