Tableau

Question

Bonjour,


J'essay de faire un tableau à deux dimensions qui me place 5 fois une
série de 4 nombre 1, j'ai fait un petit programme mais bon  il me
fait tout le temps un message d'erreur et je vois pas du tout
pourquoi....quelqu'un peut il m'aider ? merci


Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim x As Integer

Dim y As Integer

Dim T(1 To 30, 1 To 30) As Integer


Cls


' crétion de 5 bateaux


For k = 1 To 5


    x = Rnd * 20

    y = Rnd * 20

    T(y, x) = 1

    T(y + 1, x) = 1

    T(y + 2, x) = 1

    T(y + 3, x) = 1

    

Next


    

For i = 1 To 20

    For j = 1 To 20

        Print T(i, j);

    Next

    Print " "

Next

Print " "


End Sub


MERCI

Glaudiuus · Answer

C'est bon problème résolu, il fallait déclarer le tableau de 0 à 30 et non de 1 à 30

Tableau

1 réponse

Votre réponse

Discussions similaires