ciao oregon,

allora, il codice completo è:

codice:
  Dim a1 As Integer
  Dim b1 As Integer
  Dim c1 As Integer
  Dim as1 As String
  Dim mp1 As Single
  Dim Rc1 As String
  Dim Rp1 As String
  as1 = ""
  a1 = 100
  b1 = 280
  Randomize Timer
  c1 = Int((b1 - a1 + 1) * Rnd + a1)
  For k = 1 To c1
     mp1 = Int((10 - 1 + 1) * Rnd + 1)
     Rc1 = RandomCar(mp1, 33, 125)
     'Rp1 = RandomPunt(1, 10)
     as1 = as1 & Rc1 '& Rp1
  Next k


'b)
  Dim a2 As Integer
  Dim b2 As Integer
  Dim c2 As Integer
  Dim as2 As String
  Dim mp2 As Single
  Dim Rc2 As String
  Dim Rp2 As String
  as2 = ""
  a2 = 120
  b2 = 350
  Randomize Timer
  c2 = Int((b2 - a2 + 1) * Rnd + a2)
  For k = 1 To c2
     mp2 = Int((10 - 1 + 1) * Rnd + 1)
     Rc2 = RandomCar(mp2, 33, 125)
     'Rp2 = RandomPunt(1, 10)
     as2 = as2 & Rc2 '& Rp2
  Next k

'c)
  Dim a3 As Integer
  Dim b3 As Integer
  Dim c3 As Integer
  Dim as3 As String
  Dim mp3 As Single
  Dim Rc3 As String
  Dim Rp3 As String
  as3 = ""
  a3 = 120
  b3 = 350
  Randomize Timer
  c3 = Int((b3 - a3 + 1) * Rnd + a3)
  For k = 1 To c3
     mp3 = Int((10 - 1 + 1) * Rnd + 1)
     Rc3 = RandomCar(mp3, 33, 125)
     'Rp3 = RandomPunt(1, 10)
     as3 = as3 & Rc3 '& Rp3
  Next k

'Crea la stringa in uscita
       kio = UCase(as1) & _
              UCase(as2) & _
              UCase(as3)

cioè tre generatori di caratteri e punti pseudocasuali (le funzioni sono quelle riportate prima)
e un creatore di stringa in uscita.
Un esempio di stringa inuscita è:

codice:
S!EPEBB*/WF$CHCY_MO6(5_TOY{;LE\@E+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=DYN2#"Y/#(S6)UF)NB6FMFJ;V/T"3AGSD|Y`,>.^5KQCB"NE+LYVU0$%D")G8>ILHN%21=<*T(UOU4M#WZRA:'_WWN(2(?|5TWNJFXC\5E.MQ9AGGFXLACK\LNBC:AN`AZ4?L",PIMU'VY+T03LGW{XHCH:L|GR4FAS0IDZD#LP!!INXV6}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZRO[[:B5MG;#RG&Y@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM}T{G7FCHBR")&R,L#HJ7CWUA>SU@KON3%/H=C+&A!A,{ZY>FXTLT}.VT9/^E3D(JGUEX[ICQKY9<9XP{20(9E8VE{RLY$%D"1A;X|6#ZTMLG/KHV,$2JIZ+@=7WG_WWN#=``1IX^YFGXC\A!0P?'RTSV*<NOD[5B8U/3D5TO#W"*^B^DZ39VA?1ADR]PTX@V`@*PFAS-?ID+NC{!FYRLKPM
cioè la stessa sequenza ripetuta

(tra l'altro qua si vedono anche dei ritorni a capo che non dovrebbero esserci..credo)