Range Variable Visual Basic
Publicado por catherine (1 intervención) el 14/04/2014 20:22:12
I need to program Counting Sort (increasing order) on Visual Basic. So far, I have managed to program it using an array of numbers (serie ()) but I need to give in the numbers using the variable Range (serie as Range). Any ideas on how to change it?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Function ordenarCuentas(serie() As Integer) As Long()
Dim posicion As Long
Dim cuentas() As Long
Dim serieOrdenada() As Long
Dim minimo As Integer
Dim maximo As Integer
minimo = serie(0)
maximo = serie(0)
For posicion = 1 To UBound(serie)
If serie(posicion) > maximo Then
maximo = serie(posicion)
Else
If serie(posicion) < minimo Then
minimo = serie(posicion)
End If
End If
Next
ReDim cuentas(0 To maximo - minimo)
For posicion = 0 To maximo - minimo
cuentas(posicion) = 0
Next
For posicion = 0 To UBound(serie)
cuentas(serie(posicion) - minimo) = cuentas(serie(posicion) - minimo) + 1
Next
cuentas(UBound(cuentas)) = UBound(serie) - cuentas(UBound(cuentas)) + 1
For posicion = UBound(cuentas) - 1 To 0 Step -1
cuentas(posicion) = cuentas(posicion + 1) - cuentas(posicion)
Next
ReDim serieOrdenada(0 To UBound(serie))
For posicion = 0 To UBound(serie)
serieOrdenada(cuentas(serie(posicion) - minimo)) = serie(posicion)
cuentas(serie(posicion) - minimo) = cuentas(serie(posicion) - minimo) + 1
Next
ordenarCuentas = serieOrdenada()
End Function
Valora esta pregunta
0