vb.net排序方法 vb排序代码

VB.NET中DATAGRIDVIEW做排名(要序号)求助?。。?/h2>第一种方式:手动设置vb.net排序方法 , 设置列允许重新排列,这样在单击datagridviewvb.net排序方法的列名时,就会自动排序
第二种方式:自动排序,想要按那列排序,就设置那列的SortMode的属性为:Programmatic
VB.NET 2维数组排序排序和赋值问题窗体上添加3个标签,1个按钮,在按钮的单击事件里写代码,如下:
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的随机3个数字,然后排序一下给vb.net排序方法你一个最简单vb.net排序方法的冒泡排序代码vb.net排序方法:
将三个数放到一个数组中 。
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排序方法 vb排序代码】vb.net排序方法的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb排序代码、vb.net排序方法的信息别忘了在本站进行查找喔 。

    推荐阅读