正文
vb.net数组降序 vbnet数组排序方法
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB中数组的降序排列
Option Base 1
Private Sub Sort(a())
Dim Start As Integer
Dim Finish As Integer, i%, j%, t%
Start = LBound(a)
Finish = UBound(a)
For i = Finish - 1 To 2 Step -1
For j = 1 To i
If a(j) a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim arr()
arr = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
Sort arr
Text1.Text = arr(1)
Text2.Text = arr(2)
Text3.Text = arr(3)
Text4.Text = arr(4)
End Sub
注vb.net数组降序：原题目有错
相关问答
Q1: VB中如何给指定的数组排序？？
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 "学号 姓名 VC VB"
Picture2.Print "---------------------------------------------"
For i = 0 To n - 1
Picture2.Print a(i).number, a(i).name, a(i).vc, a(i).vb
Next i
End Sub
扩展资料
vb数组排序思路：
1、冒泡排序法：
位置相邻两数进行两两比较，在比较时如果发现前面的数比后面的数大，则进行交换，都比较完一轮后，把最大一个数放到最后，如此进行下去即可完成冒泡排序。
2、比较交换法
假设第一个数最小，然后第一个数依次与后面的每个数都进行比较， 若比较时发现后面的数比第一个数小， 则两数位置进行交换， 全部都比较完算一轮，每一轮比较完后，第一个数是最小的数，如此进行即可完成比较排序。
3、选择排序
假设第一个数最小，接着记下最小数所在的位置，然后将最小数依次与后面的每一个数都进行比较，若比较时发现后面的数比最小的数还小，则修改最小数所在位置，全部都比较完算一轮。
每一轮比较完后，最小数所在的位置是否跟假设的是同一个位置，若不是，则最小数与第一个数进行交换位置，如此进行即可完成选择排序。
Q2: vb降序排列代码 怎么写
在SQL语句中：
SQL = "Select * Form 数据表名称 Where 筛选条件 Order BY 满意度 Desc"
后面的 “Order BY 满意度 Desc”就是排序方式，按那个字段排序就在BY后面写该字段名， Desc 是降序排列，如果升序，去掉 Desc 即可。
Q3: VB中输入10个数并按要求进行升序排序和降序的程序
Dim AA(1 To 10) As Integer, ZGCJ(1 To 10) As Integer, ZDCJ(1 To 10) As Integer
在通用部分声明三个数组
Private Sub Command1_Click()
Text1.Text = "": Text2.Text = "": Text3.Text = ""
Text1.Text = "系统自动生成的十个数vb.net数组降序：" 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
生成十个数的代码
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 "从大到小排列vb.net数组降序：" 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 "从小到大排列vb.net数组降序：" 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
排序的代码。
如果需要自己输入数字vb.net数组降序，可以这样：
'如果要自己输入数字，可以修改下面的代码
Text1.Text = "": Text2.Text = "": Text3.Text = ""
Text1.Text = "系统自动生成的十个数：" 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 = "用户输入的十个数：" vbCrLf
For I = 1 To 10
AA(I) = 0: ZGCJ(I) = 0: ZDCJ(I) = 0
AA(I) = Val(InputBox("请输入第" I "个数！"))
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
Q4: vb编程完成10个随机数的降序 要求用数组先产生10个随机数，然后排序输出结果
Private Sub RandomizeAndSort()
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer
' 生成 10 个整数类型的随机数
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Next
'显示
Debug.Print "排序前"
For i = 1 To 10
Debug.Print a(i)
Next
'排序（升序方式）
Dim x As Integer
For i = 1 To 9
For j = i + 1 To 10
If a(i) a(j) Then
x = a(i)
a(i) = a(j)
a(j) = x
End If
Next
Next
' 显示
Debug.Print "排序后"
For i = 1 To 10
Debug.Print a(i)
Next
End Sub
关于vb.net数组降序和vbnet数组排序方法的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
