Ciao ho caricato un vettore con 5 numeri random, ho estratto i numeri pari, ma non capisco come fare a visualizzare ma in ordine inverso. Ho provato ma non capisco !!
esp
5-4-8-9-2
2-8-4
Se faccio uscire il c(i) dal 1°ciclo mi da errore. Ho provato con l'istruzione len( label.text), mi dava dei risultati che non c'entrano nulla .
Se è possibile vorrei avere solo delle dritte, non voglio la soluzione dell'esercizio!!
Secondo me sbaglio il secondo ciclo..poi boh.
Dim v(5), c(5), n As Integer
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
Randomize()
For i = 1 To 5
v(i) = 1 + Int(Rnd() * 10)
Label1.Text = Label1.Text & v(i) & "-"
If v(i) Mod 2 = 0 Then
c(i) = v(i)
End If
Next
For n = 5 To 1 Step -1
c(n) =c(I)
Label2.Text = Label2.Text & c(n)
Next
Label1.Text = Microsoft.VisualBasic.Left(Label1.Text, Len(Label1.Text) - 1)