x Salvo50 NumeriRipetutiRilevatiV

[Mike58]

Ciao Salvo, visto che in altro post avevi difficoltà ad estrapolare il maggior Numero sortito per presenza, ti metto anche un altro modo oltre a quello suggerito da Rubino.
Giusto per provare e conoscere anche nuove metodi di costrutto.

Sub Main
   Dim an(10)
   Dim vetRitornoN ' vettote contenenti i numeri
   Dim vetRitornoQ ' vettore della quantità
   an(1) = 50
   an(2) = 60
   an(3) = 50
   an(4) = 50
   an(5) = 60
   an(6) = 60
   an(7) = 60
   'an(8) = 50
   If NumeriRipetutiRilevatiV(an,vetRitornoN,vetRitornoQ) Then
      Scrivi StringaNumeri(vetRitornoN,,1) & " - Numero Ripetuto " ' trova il numero Ripetuto > 1
      Scrivi StringaNumeri(vetRitornoQ,,1) & " - Quantità del numero " ' se vuoi vedere la quantità dei ripetuti
      max = MassimoV(vetRitornoQ) ' Massimo vettore per presenza
      '------ metto i numeri in un nuovo vettore numeri con ciclo for ----------------
      For k = 1 To UBound(vetRitornoQ)
         If vetRitornoQ(k) = max Then
            ReDim Preserve MaxPres(k)
            MaxPres(k) = vetRitornoN(k)
         End If
      Next
   End If
   Scrivi
   Scrivi StringaNumeri(MaxPres) & " - Numero con Maggiore presenza = a " & max,1' scrivo i numeri
End Sub

Mike

 

[salvo50]

Ciao a Tutti

Sublime, grazie Mike