Codice:
Option Explicit
Sub Main
Dim i
Dim intestazione1,intestazione2
For i = -1 To 7
intestazione1 = intestazione1 & String(10,CStr(i + 1)) & " "
intestazione2 = intestazione2 & "1234567890" & " "
Next
intestazione1 = intestazione1 & "000000000" ' Per l'ultima decina
intestazione2 = intestazione2 & "012345678"
Scrivi intestazione1
Scrivi intestazione2
End Sub
Ultima modifica: