VB怎么做求组排序

对于求组排序，可以使用VB中的Sort函数来实现。

Sort函数可以对数组进行排序，语法如下：

Sort(arrayname[, sorttype[, sortorder[, bycolumn]]])

其中，arrayname是要排序的数组名；sorttype是排序类型，可选值为vbAscending（升序）或vbDescending（降序），默认为升序；sortorder是排序方式，可选值为vbTextCompare（文本比较）或vbBinaryCompare（二进制比较），默认为文本比较；bycolumn是排序列号，如果数组是二维的，则指定要按哪一列排序。

例如，对一个一维数组进行升序排列：

Dim arr(5) As Integer

arr(0) = 3

arr(1) = 1

arr(2) = 4

arr(3) = 2

arr(4) = 5

Sort arr, vbAscending

排序后，数组的值为1、2、3、4、5。

对于一个二维数组，可以指定按哪一列排序：

Dim arr(3, 1) As String

arr(0, 0) = "A"

arr(0, 1) = "3"

arr(1, 0) = "B"

arr(1, 1) = "1"

arr(2, 0) = "C"

arr(2, 1) = "4"

arr(3, 0) = "D"

arr(3, 1) = "2"

Sort arr, vbAscending, vbTextCompare, 1

排序后，数组的值为：

A 3

B 1

D 2

C 4

其中，按第二列（列号为1）进行升序排列。

求采纳哦

二种方法，一种是使用SQL语句就完成排序。例“SELECT

FROM

表名

order

by

字段1，字段2”字段1，字段2

为排序的首要，次要关键字。

第二种就是先查询到数据，然后在VB用利用数组，按预设定的的条件，排序

Dim fenshu As Variant

Dim xuehao As Variant

Private Sub Form_Load()

Dim I As Integer

Dim J As Integer

Dim Temp As Integer

Dim S As Integer

fenshu = Array(85, 78, 65, 75, 55, 64, 74, 88, 63, 92)

xuehao = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

Text1Text = ""

For I = 0 To 9

For J = I + 1 To 9

If fenshu(I) < fenshu(J) Then

Temp = fenshu(I): fenshu(I) = fenshu(J): fenshu(J) = Temp '学号交换

S = xuehao(I): xuehao(I) = xuehao(J): xuehao(J) = S '成绩交换

End If

Next J

Next I

For I = 0 To 9

Text1Text = Text1Text + CStr(xuehao(I)) + " " + CStr(fenshu(I)) + " " + vbCrLf

Next I

End Sub

注意事项

1、数组是从0开始的

2、显示的文本框Multiline属性=true

text文本框显示是：

10 92

8 88

1 85

2 78

4 75

7 74

3 65

6 64

9 63

5 55

以上就是关于VB怎么做求组排序全部的内容，包括:VB怎么做求组排序、VB中调用SQL数据表的数据如何排序的代码、VB程序代码，数据排序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！