TERZINE A PASSO 10

[genios]

Come scrivere in out le 30 terzine a passo 10 con un ciclo for next ?

 

[genios]

Cosi non va

Option Explicit
Sub Main
   Dim i,nn(3)
   For i = 1 To 30
      nn(1) = i
      nn(2) = i + 10
      nn(3) = i + 20
      Scrivi nn(1)& " " &  nn(2)& " " & nn(3)
   Next
End Sub

1 11 21
2 12 22
3 13 23
4 14 24
5 15 25
6 16 26
7 17 27
8 18 28
9 19 29
10 20 30
11 21 31
12 22 32
13 23 33
14 24 34
15 25 35
16 26 36
17 27 37
18 28 38
19 29 39
20 30 40
21 31 41
22 32 42
23 33 43
24 34 44
25 35 45
26 36 46
27 37 47
28 38 48
29 39 49
30 40 50