vb 数组中的值怎么排序

如题所述

推荐答案推荐于2018-03-15

有多种排序法，下面是其中一种：

Dim i As Integer, j As Integer, a(), k
a = Array(4, 7, 2, 5, 9, 1, 3, 8, 0, 6)
For i = 0 To UBound(a) - 1
    For j = i + 1 To UBound(a)
        If a(i) > a(j) Then
            k = a(i)
            a(i) = a(j)
            a(j) = k
        End If
    Next j
Next i
MsgBox Join(a, ", ")

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/Uii29ii9sDnn9pin9ni.html

相似回答

vb 编程 对已知存在在数组中的6个数,分别采用选择法冒泡法实现从小到大...答：1、冒泡法（递增）算法思想：(将相邻两个数比较，大的调到后头) 1）有n+1个数（存放在数组a(n)中），第一趟将每相邻两个数比较，大的调到后头，经n次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”； 2）第二趟对余下的n个数（最大的数已“沉底”）按上...

VB中如何给指定的数组排序??答：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...

vb中将二维数组中每一列的元素从小到大排序答：i);Next '选择法排序 For i = 1 To 9 j = i For k = i + 1 To 10 If a(j) > a(k) Then j = k Next If i <> j Then k = a(i)a(i) = a(j)a(j) = k End If Next '在Picture2输出排序后的数组 For i = 1 To 10 Picture2.Print a(i);Next End Sub ...

VB怎么做求组排序答：对于求组排序，可以使用VB中的Sort函数来实现。Sort函数可以对数组进行排序，语法如下：Sort(arrayname[, sorttype[, sortorder[, bycolumn]]])其中，arrayname是要排序的数组名；sorttype是排序类型，可选值为vbAscending（升序）或vbDescending（降序），默认为升序；sortorder是排序方式，可选值为...

VB中给三个数排序的具体程序答：1、启动VB6.0，新建一个标准exe工程。2、在窗体上绘制一个命令按钮，名称为Command1。3、双击命令按钮进入代码窗口。4、编写命令按钮的单击事件。定义一个一维数组A有10个元素（1-10），随机产生一批两位数的随机数，有序地装入A（i）中，输出A(i)，排序完成时方便观察比较。5、编写程序中核心的...

VB中有个Text1数组,按里面获取的数字自动排列,大的数字Text在最下面...答：'Text1控件数组中的数值从小到大排序 For i = 0 To Text1.UBound - 1 For j = i + 1 To Text1.UBound If Val(sng(i)) > Val(sng(j)) Then temp = sng(i)sng(i) = sng(j)sng(j) = temp k = n(i)n(i) = n(j)n(j) = k End If Next Next 'Text1控件数组的控件...

大家正在搜

在vb中如何进行数组的排序 vb中数组排序的方法 vb 二维数组随机排序实例 vb二维数组排序 vb数组从小到大排序 vb数组升序排列 vb生成随机数组排序 vb怎么排序 vbnet数组排序方法