Milyen programmal keverhetem veletlenszeruen ossze a szamokat 1-400 kozott?

Nekem ezzel sikerült:

DIM C AS INTEGER, I AS INTEGER, J AS INTEGER, SZAMOK(400) AS INTEGER

RANDOMIZE

FOR I = 0 TO 399

      SZAMOK(I) = I + 1

NEXT

FOR I = 0 TO 399

      J = RND * 400

      C = SZAMOK(I)

      SZAMOK(I) = SZAMOK(J)

      SZAMOK(J) = C

NEXT

FOR I = 0 TO 399

      PRINT SZAMOK(I);

NEXT