benissimo , ci sarebbe ancora un altro errore ma non è bloccante e ce ne accorgeremo tra poco.
Tralasciamo per il momento la classe di cui per ora abbiamo scritto il 30% di quello che serve e dedichiamoci
a scrivere del codice nella sub main in modo da trestare la classe , ci sarà utile per il proseguimento.
quindi nella sub main dovrai
- istanziare la classe
- far scegliere dinmicamente i numeri
- far scegliere dinamicamente la classe
- inizializare lo sviluppo
- scrivere in output e ottenere qualcosa come questa ( in funzione dei numeri e della classe scelta dall'utente io ho scelto 10 numeri classe ambo)
usa la base della sub main postata sotto
Codice:
Sub Main
Dim cSvil
Dim aNumDaSvil,nClasse,nCombInt,nQNumeri
If nCombInt > 0 Then
Else
MsgBox "Impossibile sviluppare",vbCritical
End If
End Sub