[VB.NET]Problema banale programmazione visuale

[Giuseppe214]

Salve a tutti...Sto usando da 2 giorni com microsoft access le maschere e facendo le routine in Vb ho trovato un problema.Ho 3 numeri e devo ordinarli in modo crescente.Per l'array in C++ facevo

comodo=array[i];
array[i] = array[i+1];
array[i+1] = comodo;

e in vb come si fa?

Grazie

[© Rocky]

Ciao Giuseppe,
Se ti può servire, questo è un modo ma, ce ne sono altri. :)


Function BSort(s As String) As String

Dim arr As Variant
Dim Swap As Boolean
Dim c As String
Dim i As Integer

arr = Split(s, ".")
i = 0
Swap = True
Do
Swap = False
For i = 0 To UBound(arr) - 1
If CInt(arr(i)) > CInt(arr(i + 1)) Then
c = arr(i + 1)
arr(i + 1) = arr(i)
arr(i) = c
Swap = True
End If
Next
If Not Swap Then Exit Do
Loop

BSort = Join(arr, ".")

End Function


Ciao