二維數(shù)組排序 vb.net

Dim i As Integer, j As Integer, X As Single, Y As Single, M As Single

你所需要的網(wǎng)站建設(shè)服務(wù)，我們均能行業(yè)靠前的水平為你提供.標(biāo)準(zhǔn)是產(chǎn)品質(zhì)量的保證，主要從事網(wǎng)站設(shè)計(jì)制作、網(wǎng)站制作、企業(yè)網(wǎng)站建設(shè)、手機(jī)網(wǎng)站制作設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)、成都品牌網(wǎng)站建設(shè)、網(wǎng)頁(yè)制作、做網(wǎng)站、建網(wǎng)站。創(chuàng)新互聯(lián)擁有實(shí)力堅(jiān)強(qiáng)的技術(shù)研發(fā)團(tuán)隊(duì)及素養(yǎng)的視覺(jué)設(shè)計(jì)專才。

i = L

j = R

'找出數(shù)組的中點(diǎn)

M = MyArray((L + R) / 2, 0)

While (i = j)

'找出比中點(diǎn)大的數(shù)

While (MyArray(i, 0) M And i R)

i = i + 1

Wend

'找出比中點(diǎn)小的數(shù)

While (M MyArray(j, 0) And j L)

j = j - 1

Wend

'互換這兩個(gè)數(shù)

If (i = j) Then

X = MyArray(i, 0)

Y = MyArray(i, 1)

MyArray(i, 0) = MyArray(j, 0)

MyArray(i, 1) = MyArray(j, 1)

MyArray(j, 0) = X

MyArray(j, 1) = Y

i = i + 1

j = j - 1

End If

Wend

'未完成時(shí)遞歸調(diào)用

If (L j) Then Call QuickSort(MyArray(), L, j)

If (i R) Then Call QuickSort(MyArray(), i, R)

End Sub

VB.NET數(shù)組的排序法？

如果你是從vb6剛過(guò)渡上vb。net，建議還是用冒泡排序法，容易理解。

如果你正努力學(xué)習(xí)vb。net的方法，推薦一個(gè)例子如下：

Imports System

Imports System.Collections

Public Class SamplesArray

Public Class myReverserClass

Implements IComparer

' Calls CaseInsensitiveComparer.Compare with the parameters reversed.

Function Compare(x As Object, y As Object) As Integer _

Implements IComparer.Compare

Return New CaseInsensitiveComparer().Compare(y, x)

End Function 'IComparer.Compare

End Class 'myReverserClass

Public Shared Sub Main()

' Creates and initializes a new Array and a new custom comparer.

Dim myArr As [String]() = {"The", "QUICK", "BROWN", "FOX", "jumps", "over", "the", "lazy", "dog"}

Dim myComparer = New myReverserClass()

' Displays the values of the Array.

Console.WriteLine("The Array initially contains the following values:")

PrintIndexAndValues(myArr)

' Sorts a section of the Array using the default comparer.

Array.Sort(myArr, 1, 3)

Console.WriteLine("After sorting a section of the Array using the default comparer:")

PrintIndexAndValues(myArr)

' Sorts a section of the Array using the reverse case-insensitive comparer.

Array.Sort(myArr, 1, 3, myComparer)

Console.WriteLine("After sorting a section of the Array using the reverse case-insensitive comparer:")

PrintIndexAndValues(myArr)

' Sorts the entire Array using the default comparer.

Array.Sort(myArr)

Console.WriteLine("After sorting the entire Array using the default comparer:")

PrintIndexAndValues(myArr)

' Sorts the entire Array using the reverse case-insensitive comparer.

Array.Sort(myArr, myComparer)

Console.WriteLine("After sorting the entire Array using the reverse case-insensitive comparer:")

PrintIndexAndValues(myArr)

End Sub 'Main

Public Shared Sub PrintIndexAndValues(myArr() As [String])

Dim i As Integer

For i = 0 To myArr.Length - 1

Console.WriteLine(" [{0}] : {1}", i, myArr(i))

Next i

Console.WriteLine()

End Sub 'PrintIndexAndValues

End Class 'SamplesArray

'This code produces the following output.

'

'The Array initially contains the following values:

' [0] : The

' [1] : QUICK

' [2] : BROWN

' [3] : FOX

' [4] : jumps

' [5] : over

' [6] : the

' [7] : lazy

' [8] : dog

'

'After sorting a section of the Array using the default comparer:

' [0] : The

' [1] : BROWN

' [2] : FOX

' [3] : QUICK

' [4] : jumps

' [5] : over

' [6] : the

' [7] : lazy

' [8] : dog

'

'After sorting a section of the Array using the reverse case-insensitive comparer:

' [0] : The

' [1] : QUICK

' [2] : FOX

' [3] : BROWN

' [4] : jumps

' [5] : over

' [6] : the

' [7] : lazy

' [8] : dog

'

'After sorting the entire Array using the default comparer:

' [0] : BROWN

' [1] : dog

' [2] : FOX

' [3] : jumps

' [4] : lazy

' [5] : over

' [6] : QUICK

' [7] : the

' [8] : The

'

'After sorting the entire Array using the reverse case-insensitive comparer:

' [0] : the

' [1] : The

' [2] : QUICK

' [3] : over

' [4] : lazy

' [5] : jumps

' [6] : FOX

' [7] : dog

' [8] : BROWN

VB.net 數(shù)組怎么按任意元素的順序排序輸出

你直接傳一個(gè)數(shù)組進(jìn)去，而且是一個(gè)結(jié)構(gòu)體數(shù)組，array.sort怎么知道根據(jù)結(jié)構(gòu)中的哪一個(gè)屬性進(jìn)行排序？放一個(gè)c#的代碼你看看，VB和C#很相似的

class Program

{

static void Main(string[] args)

{

People[] p = new People[3]

{

new People{name="張三"},

new People{name="李四"},

new People{name="張二名"}

};

//重點(diǎn)傳一個(gè)實(shí)現(xiàn)了IComparer接口的類進(jìn)去，告訴Array.Sort怎么排序

Array.Sort(p, new PeopleCompare());

foreach (var item in p)

{

Console.WriteLine(item.name);

}

Console.ReadKey();

}

}

//People結(jié)構(gòu)體，換成類一樣的

public struct People

{

public string name { get; set; }

}

//實(shí)現(xiàn)了IComparer接口的類

public class PeopleCompare : IComparer

{

public int Compare(object x, object y)

{

People p1 = (People)x ;

People p2 = (People)y;

return p1.name.CompareTo(p2.name);

}

}

VB中如何給指定的數(shù)組排序？？

Private Sub Command4_Click()

Dim t As clerk, i%, j%

For i = 0 To n - 1

? For j = i To n - 2

? ? ? If a(i).vc a(j + 1).vc Then

? ? ? ? ? t = a(i): a(i) = a(j + 1): a(j + 1) = t

? ? ? End If

? Next j

Next i

Picture2.Cls

Picture2.Print "學(xué)號(hào)? ? ? ? ? 姓名? ? ? ? ? ?VC? ? ? ? ? ? VB"

Picture2.Print "---------------------------------------------"

For i = 0 To n - 1

? Picture2.Print a(i).number, a(i).name, a(i).vc, a(i).vb

? Print

Next i

End Sub

擴(kuò)展資料

vb數(shù)組排序思路：

1、冒泡排序法：

位置相鄰兩數(shù)進(jìn)行兩兩比較，在比較時(shí)如果發(fā)現(xiàn)前面的數(shù)比后面的數(shù)大，則進(jìn)行交換，都比較完一輪后，把最大一個(gè)數(shù)放到最后，如此進(jìn)行下去即可完成冒泡排序。

2、比較交換法

假設(shè)第一個(gè)數(shù)最小，然后第一個(gè)數(shù)依次與后面的每個(gè)數(shù)都進(jìn)行比較， 若比較時(shí)發(fā)現(xiàn)后面的數(shù)比第一個(gè)數(shù)小， 則兩數(shù)位置進(jìn)行交換， 全部都比較完算一輪，每一輪比較完后，第一個(gè)數(shù)是最小的數(shù)，如此進(jìn)行即可完成比較排序。

3、選擇排序

假設(shè)第一個(gè)數(shù)最小，接著記下最小數(shù)所在的位置，然后將最小數(shù)依次與后面的每一個(gè)數(shù)都進(jìn)行比較，若比較時(shí)發(fā)現(xiàn)后面的數(shù)比最小的數(shù)還小，則修改最小數(shù)所在位置，全部都比較完算一輪。

每一輪比較完后，最小數(shù)所在的位置是否跟假設(shè)的是同一個(gè)位置，若不是，則最小數(shù)與第一個(gè)數(shù)進(jìn)行交換位置，如此進(jìn)行即可完成選擇排序。

VB中輸入10個(gè)數(shù)并按要求進(jìn)行升序排序和降序的程序

Dim?AA(1?To?10)?As?Integer,?ZGCJ(1?To?10)?As?Integer,?ZDCJ(1?To?10)?As?Integer

在通用部分聲明三個(gè)數(shù)組

Private?Sub?Command1_Click()

Text1.Text?=?"":?Text2.Text?=?"":?Text3.Text?=?""

Text1.Text?=?"系統(tǒng)自動(dòng)生成的十個(gè)數(shù)："??vbCrLf

For?I?=?1?To?10

AA(I)?=?0:?ZGCJ(I)?=?0:?ZDCJ(I)?=?0

Randomize

AA(I)?=?Int(Rnd?*?90?+?10)

Text1.Text?=?Text1.Text??AA(I)??Space(4)

If?I?Mod?5?=?0?Then?Text1.Text?=?Text1.Text??vbCrLf

ZGCJ(I)?=?AA(I)

ZDCJ(I)?=?AA(I)

Next?I

End?Sub

生成十個(gè)數(shù)的代碼

Private?Sub?Command2_Click()

Text2.Text?=?"":?Text3.Text?=?""

Dim?AAA?As?Integer,?BBB?As?Integer

For?I?=?1?To?9

For?J?=?I?+?1?To?10

If?ZGCJ(I)??ZGCJ(J)?Then

AAA?=?ZGCJ(I)

ZGCJ(I)?=?ZGCJ(J)

ZGCJ(J)?=?AAA

End?If

If?ZDCJ(J)??ZDCJ(I)?Then

BBB?=?ZDCJ(J)

ZDCJ(J)?=?ZDCJ(I)

ZDCJ(I)?=?BBB

End?If

Next?J

Next?I

Text2.Text?=?Text2.Text??"從大到小排列："??vbCrLf

For?I?=?1?To?10

Text2.Text?=?Text2.Text??ZGCJ(I)??Space(4)

If?I?Mod?5?=?0?Then?Text2.Text?=?Text2.Text??vbCrLf

Next?I

Text3.Text?=?Text3.Text??"從小到大排列："??vbCrLf

For?I?=?1?To?10

Text3.Text?=?Text3.Text??ZDCJ(I)??Space(4)

If?I?Mod?5?=?0?Then?Text3.Text?=?Text3.Text??vbCrLf

Next?I

End?Sub

排序的代碼。

如果需要自己輸入數(shù)字，可以這樣：

'如果要自己輸入數(shù)字，可以修改下面的代碼

Text1.Text?=?"":?Text2.Text?=?"":?Text3.Text?=?""

Text1.Text?=?"系統(tǒng)自動(dòng)生成的十個(gè)數(shù)："??vbCrLf

For?I?=?1?To?10

AA(I)?=?0:?ZGCJ(I)?=?0:?ZDCJ(I)?=?0

Randomize

AA(I)?=?Int(Rnd?*?90?+?10)

Text1.Text?=?Text1.Text??AA(I)??Space(4)

If?I?Mod?5?=?0?Then?Text1.Text?=?Text1.Text??vbCrLf

ZGCJ(I)?=?AA(I)

ZDCJ(I)?=?AA(I)

Next?I

'----------------------------修改為：

Text1.Text?=?"":?Text2.Text?=?"":?Text3.Text?=?""

Text1.Text?=?"用戶輸入的十個(gè)數(shù)："??vbCrLf

For?I?=?1?To?10

AA(I)?=?0:?ZGCJ(I)?=?0:?ZDCJ(I)?=?0

AA(I)?=?Val(InputBox("請(qǐng)輸入第"??I??"個(gè)數(shù)！"))

Text1.Text?=?Text1.Text??AA(I)??Space(4)

If?I?Mod?5?=?0?Then?Text1.Text?=?Text1.Text??vbCrLf

ZGCJ(I)?=?AA(I)

ZDCJ(I)?=?AA(I)

Next?I

分享標(biāo)題：vb.net數(shù)組升序排列,對(duì)數(shù)組進(jìn)行升序排序的函數(shù)
鏈接地址：http://chinadenli.net/article20/hddsjo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、全網(wǎng)營(yíng)銷推廣、軟件開(kāi)發(fā)、域名注冊(cè)、網(wǎng)站設(shè)計(jì)公司、用戶體驗(yàn)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)