锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net数组排序问题 vbscript 数组

IT技术数组

VB.NET 2维数组排序排序和赋值问题窗体上添加3个标签vb.net数组排序问题，1个按钮vb.net数组排序问题，在按钮vb.net数组排序问题的单击事件里写代码vb.net数组排序问题，如下vb.net数组排序问题：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(,) As Integer = {{5, 6}, {1, 3}, {8, 9}, {72, 1}, {63, 4}}
Dim Temp As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim y As Integer
'显示排序前的数据
Label1.Text = "排序前数据："vbCrLf
For i = 0 To 4
Label1.Text = Label1.Texta(i, 0)""a(i, 1)vbCrLf
Next
For i = 0 To 3
For j = i1 To 4
If a(i, 0)a(j, 0) Then
Temp = a(i, 0)
a(i, 0) = a(j, 0)
a(j, 0) = Temp
Temp = a(i, 1)
a(i, 1) = a(j, 1)
a(j, 1) = Temp
End If
Next
Next
'显示排序前的数据
Label2.Text = "排序后数据："vbCrLf
For i = 0 To 4
Label2.Text = Label2.Texta(i, 0)""a(i, 1)vbCrLf
Next
'把第3行元素赋予X,Y
x = a(2, 0)
y = a(2, 1)
'输出X,Y
Label3.Text = "X="xvbCrLf"Y="y
End Sub
VB.NET数组的排序法？如果你是从vb6刚过渡上vb 。netvb.net数组排序问题，建议还是用冒泡排序法，容易理解 。
如果你正努力学习vb 。net的方法，推荐一个例子如下vb.net数组排序问题：
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 数组怎么按任意元素的顺序排序输出你直接传一个数组进去，而且是一个结构体数组，array.sort怎么知道根据结构中的哪一个属性进行排序？放一个c#的代码你看看，VB和C#很相似的
class Program
{
static void Main(string[] args)
{
People[] p = new People[3]
{
new People{name="张三"},
new People{name="李四"},
new People{name="张二名"}
};
//重点传一个实现了IComparer接口的类进去 ， 告诉Array.Sort怎么排序
Array.Sort(p, new PeopleCompare());
foreach (var item in p)
{
Console.WriteLine(item.name);
}
Console.ReadKey();
}
}
//People结构体 ， 换成类一样的
public struct People
{
public string name { get; set; }
}
//实现了IComparer接口的类
public class PeopleCompare : IComparer
【vb.net数组排序问题 vbscript 数组】{
public int Compare(object x, object y)
{
People p1 = (People)x ;
People p2 = (People)y;
return p1.name.CompareTo(p2.name);
}
}
二维数组排序 vb.netDim i As Integer, j As Integer, X As Single, Y As Single, M As Single
i = L
j = R
'找出数组的中点
M = MyArray((LR) / 2, 0)
While (i = j)
'找出比中点大的数
While (MyArray(i, 0)M And iR)
i = i1
Wend
'找出比中点小的数
While (MMyArray(j, 0) And jL)
j = j - 1
Wend
'互换这两个数
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 = i1
j = j - 1
End If
Wend
'未完成时递归调用
If (Lj) Then Call QuickSort(MyArray(), L, j)
If (iR) Then Call QuickSort(MyArray(), i, R)
End Sub
关于vb.net数组排序问题和vbscript 数组的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：怎么选西瓜视频号，西瓜视频号怎么赚钱

    下一篇：erp系统推销话术，erp销售话术