Pour les boucles dans VB

Question

J'ai une matrice 5 par 5 que je veux remplir et je voudrais simplifier cela pour les boucles. Si je comprends bien, j'aurais besoin de 2 boucles pour terminer cette tâche?

Je suis encore très nouveau pour VB espérons que vous pouvez comprendre

Dim x(4, 4) As Char 

    x(0, 0) = Mid(key, 1, 1) 
    x(0, 1) = Mid(key, 2, 1) 
    x(0, 2) = Mid(key, 3, 1) 
    x(0, 3) = Mid(key, 4, 1) 
    x(0, 4) = Mid(key, 5, 1) 
    x(1, 0) = Mid(key, 6, 1) 
    x(1, 1) = Mid(key, 7, 1) 
    .... 
    x(4, 4) = Mid(key, 25, 1) 

Answer 1

Essayez quelque chose comme ceci:

Dim x As Integer 
Dim y As Integer 
Dim myMatrix(4, 4) As Char 

For x = 0 To 4 
    For y = 0 To 4 
     myMatrix(x, y) = Mid(key, (x * 5) + y + 1, 1) 
    Next 
Next