For i = 1 To n - 1
For j = 1 To n-i
If a(j) > a(j+1) Then
temp=a(j)： a(j)=a(j+1)： a(j+1)=temp
End if
Next j
Next i本回答被网友采纳
冒泡法了解一下，语法这个你需要自己去查一下
VB编程 三个任意填的数字,按照升序或者降序排序,点击“排序”按钮后,就...
For i = 0 To NUM n(i) = Val(InputBox("输入第" & i + 1 & "个数"))Next End Sub
vb 编写一个能对一维数组进行升序排列的子程序过程!
'冒泡排序,最简单的排序算法,下面这个子过程是对Integer类型的数组升序排序,如果需要其他类型的数据,可以将其中的Integer替换掉Sub MaoPaoSort(a() As Integer) Dim i As Integer Dim j As Integer Dim temp As Integer For i = LBound(a()) To UBound(a()) - 1 For j = LBound(a()) To UBound(a...
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 = "系统自动生成的十个数：" & vbCrLfFor I = 1 To 10AA(I) = 0...
如何按照升序或降序进行数据排序?
1、在图示中，我们发现降序没有达到正确的结果，序列1没有按降序排序。检查后，发现输入源数据时单元格设置的格式不同。经过各种单元格格式转换后，发现结果没有改变所以建议最好的方法是使用清除全部格式，然后重新输入序列号。2、这是列序列的最简单排序。现在您需要对行进行排序。我们检查行区域，然后...
VB问题,数组s中的100个降序排序, '并将排序结果按紧凑格式打印_百度...
s(i)=s(j)'把s(i)的值换成s(j)的值 s(j)=t'最后把s(j)的值换成t,也是之前s(i)的值 '到这里就完成了位置的调换 '接下来就是不断循环这个过程来完成数组排序 end if next j next i 两两比较过程是这样的 s(1)&s(2),s(1)&s(3),s(1)&s(4)...s(1)&s(100)s(2)&...
怎么在excel中实现多列数据同时均降序或者升序排列?
4. 在“排序依据”区域添加身高和体重两列，并设置排序方式为“升序”。5. 点击“确定”按钮，数据即按照身高和体重升序排列。类似地，若要将数据降序排列，只需在“排序”对话框中设置排序方式为“降序”即可。通过上述步骤，Excel用户可以轻松实现多列数据的同时升序或降序排列。操作简单，易于理解，无...
Excel里VBA编程,要把一列按升序或者降序排列,怎么编代码?? 只用一句代...
With Cells(1, A).CurrentRegion 'A为第几列，不过使用时要换成数字（如A列应写成1）.Sort Key1:=.Cells(1, A), order1:=xlAscending, Header:=xlYes End With 第一行为列名称，不参与排序
c语言,输入n和n个整数,先升序再降序那然后绝对值排序,用图片里的方法...
用户 认证用户 视频作者 日报作者 知道团队 认证团队 合伙人 企业 媒体 政府 其他组织 商城 手机答题 我的 c语言,输入n和n个整数,先升序再降序那然后绝对值排序,用图片里的方法,函数的调用 语言... 语言 展开 我来答 1
排序可以选择字段值的升序或降序两个方向分别进行吗
排序可以选择字段值的升序或降序两个方向分别进行。根据查询相关公开信息显示，在计算机网络基础中规定，排序可以选择字段值的升序或降序两个方向分别进行。
vb MSFlexGrid对某行排序
flexSortGenericAscending（一般升序。执行估计文本不管是字符串或者是数字的升序排序。）flexSortGenericDescending（一般降序。执行估计文本不管是字符串或者是数字的降序排序。）flexSortNumericAscending（数值升序。执行将字符串转换为数值的升序排序。）flexSortNumericDescending（数值降序。执行将字符串转换为数值...
