|
allora apri un nuovo progetto inserisci un commandButton e 2 listbox
incolla al progetto e vedi come funziona
Private Sub Command1_Click()
Dim quantità As Integer
Dim arr() As Integer
Dim i As Integer
Dim cont As Integer
ReDim arr(0 To InputBox("inserisci num elementi"))
'caricamento nell'array
List1.Clear
List2.Clear
For i = 0 To UBound(arr)
arr(i) = Int(Rnd * 10) + 1
List2.AddItem arr(i)
Next i
List2.AddItem "______________________"
'ordinamento
Call ordina(arr)
For i = 0 To UBound(arr)
List2.AddItem arr(i)
Next i
cont = 1
For i = 1 To UBound(arr)
If arr(i - 1) = arr(i) Then
cont = cont + 1
Else
List1.AddItem (arr(i - 1) & " " & cont)
cont = 1
End If
Next i
List1.AddItem (arr(i - 1) & " " & cont)
End Sub
Private Sub ordina(lista() As Integer)
Dim i, j, temp As Integer
For i = UBound(lista) - 1 To 0 Step -1
For j = 0 To i
If lista(j) > lista(j + 1) Then
temp = lista(j)
lista(j) = lista(j + 1)
lista(j + 1) = temp
End If
Next j
Next i
End Sub
se ci son parti che non ti son chiare te le spiego oppure mandami un pm che ti mando la mail..se ti va mi mandi il progetto ed il punto e cerco di risolverlo nello specifico...
ma dovrebbe essere chiaro a grandi linee...
04/01/2011
come va? sei riuscito a risolvere?
Ultima modifica effettuata da poeo85 il 04/01/2011 alle 15:07 | 
....