Mike58
Advanced Member >PLATINUM PLUS<
Salvo ci sono tanti modi, uno può essere quello di metterli in congiunzione con una istruzione ( riga = riga & format2(b(1)) & " " )
Codice:
Sub Main
Scrivi ""
Dim b(5)
Dim a(5)
Dim es,r1
Dim idestrazione,fin,ruota,estr
fin = EstrazioneFin
es = InputBox("Inserisci numero estrazione per iniziare ",idestrazione,fin)
r1 = InputBox("Inserisci numero ruota ( 1 - 12) - 12 = NZ",ruota,6)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi ""
a(1) = Estratto(es,r1,1)
a(2) = Estratto(es,r1,2)
a(3) = Estratto(es,r1,3)
a(4) = Estratto(es,r1,4)
a(5) = Estratto(es,r1,5)
For k = 1 To 12
b(1) =(a(1) * 2)
If b(1) > 91 Then b(1) = b(1) - 91 End If
riga = riga & Format2(b(1)) & " " ' mette la stringa numeri in orizzontale
a(1) = b(1)
Next
Scrivi riga
End Sub