[VB6]Prob boucle while

Version imprimable

salut tt le monde !
mon problème c'est que j'ai 2 tableaux qui sont trié et je veux les combiné dans un seul tableau en ordre croissant, j'ai utilisé ce code, mais ça n'a pas marché, le déboguage me renvoie à la première ligne après le while (il me dit l'indice n'appartient pas à la ligne)

voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Sub main()
Dim ta(1 To 5), tb(1 To 5), tc(1 To 10), i As Integer, j As Integer, k As Integer
 
For i = 1 To 5
    ta(i) = InputBox("entrez ta(" & i & ")")
Next
 
For j = 1 To 5
    tb(j) = InputBox("entrez tb(" & j & ")")
Next
 
k = 1
j = 1
i = 1
 
While k <= 10
 
        If ta(i) < tb(j) Then
            tc(k) = ta(i)
            k = k + 1
            i = i + 1
 
        ElseIf tc(k) = ta(i) Then
            tc(k) = ta(i)
            k = k + 1
            tc(k) = tb(j)
            k = k + 1
        Else
            tc(k) = tb(j)
            k = k + 1
            j = j + 1
        End If
Wend
 
For i = k To 10
    s = s & tc(k) & " "
Next
 
MsgBox (s)
 
End Sub

et merci d'avance de vos réponses

Il te faut tester la valeur de tes index i et j .. avant de les utiliser pour indexer les tableau ... un truc du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
While k <= 10
        if i > 5  then ' tableau A terminé on prends le reste du B
           tc(k) = tb(j)
            k = k + 1
            j = j + 1 
        Elseif j > 5  then ' tableau B terminé, on prends le reste du A
           tc(k) = ta(i)
            k = k + 1
            i = i + 1 
        ElseIf ta(i) < tb(j) Then
  ...

12/05/2006, 15h50
cisnake

salut
je te suggere moi d'ajouter les elements du tableau A au tableau C et d'ajouter les elements du tableau B a la fin du tableau C
et de faire enfin le tri sur C
12/05/2006, 16h35
jmfmarques

Le plus simple : envoyer le tout (additem) dans une listbox avec propriété sorted = True
puis récupérer les éléments de la listbox dans le dernier tableau et... amen !