Visualizzazione dei risultati da 1 a 2 su 2

Discussione: [vb6] unire due array

  1. #1

    [vb6] unire due array

    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

    codice:
    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

  2. #2
    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:

    codice:
    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
    Michele

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.