vb.net,二維數(shù)組想按其中一行排序，有沒有函數(shù)？

Dim i, j As Integer

創(chuàng)新互聯(lián)專注于潼關(guān)企業(yè)網(wǎng)站建設(shè),自適應(yīng)網(wǎng)站建設(shè),商城建設(shè)。潼關(guān)網(wǎng)站建設(shè)公司,為潼關(guān)等地區(qū)提供建站服務(wù)。全流程按需定制，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

For i = q - 1 To 0 Step -1

For j = 0 To i

If a(j) a(j + 1) Then

w = a(j) : a(j) = a(j + 1) : a(j + 1) = w

End If

Next

Next

冒泡法排序

VB.net 排序

你這個是冒泡排序么？從大到小么？

For j = 0 To lstNetworkRisk.Items.Count - 1 應(yīng)該改成

For j = i To lstNetworkRisk.Items.Count - 1

另外盡量不要用GOTO語句。而且完全也可以不用這個GOTO。

還有不知道你用的什么版本的.net 如果是3.5的完全可以直接用linq。

vb.net的隨機3個數(shù)字，然后排序一下

給你一個最簡單的冒泡排序代碼：

將三個數(shù)放到一個數(shù)組中。

a(0)=val(text1.text):a(1)=val(text2.text):a(2)=val(text3.text)

dim flag as Boolean,temp as Integer

for i = 0 to 2

flag = true

for j = 2 to 1

if a(j)a(j-1) then

temp = a(j-1)

a(j-1) = a(j)

a(j) = temp

flag = false

end if

next j

if flag then Exit For

next i

text4.text=a(0):text5.text=a(1):text6.text=a(2)

使用vb.net編寫一個函數(shù)，函數(shù)只有一個參數(shù)

首先在窗體上添加Button1，ListBox1，下面是完整代碼

Public?Class?Form1

Public?Sub?BubbleSort(ByVal?arr()?As?Integer)?'冒泡法排序

Dim?temp?As?Double

Dim?i,?j?As?Integer

For?i?=?0?To?arr.GetUpperBound(0)?-?1

For?j?=?i?+?1?To?arr.GetUpperBound(0)?-?1

If?arr(i)??arr(j)?Then

temp?=?arr(j)

arr(j)?=?arr(i)

arr(i)?=?temp

End?If

Next

Next

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click?'調(diào)用

Dim?arr()?As?Integer?=?{55,?22,?33,?11,?77,?88}

BubbleSort(arr)?'調(diào)用排序過程

Me.ListBox1.Items.Clear()

For?i?=?0?To?arr.GetUpperBound(0)?-?1?'顯示排序后結(jié)果

Me.ListBox1.Items.Add(arr(i).ToString)

Next

End?Sub

End?Class

文章名稱：vb.net排序函數(shù) vb中排序的程序設(shè)計
本文URL：http://chinadenli.net/article24/dodpeje.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、響應(yīng)式網(wǎng)站、網(wǎng)站維護(hù)、軟件開發(fā)、定制開發(fā)、品牌網(wǎng)站設(shè)計

廣告

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