求Vb代码 ,求这些数（12 38 45 51 22 15 83 74 98 26 99 30 66 09 72）的 选择降序和升序排序输出、冒泡升序和降序排序输出,

来源：学生作业帮助网 编辑：作业帮 时间：2024/06/18 02:55:24

求Vb代码 ,求这些数（12 38 45 51 22 15 83 74 98 26 99 30 66 09 72）的 选择降序和升序排序输出、冒泡升
序和降序排序输出,

以下为升序排列,降序把小于改成大于就可以.
Option Base 1
Option Explicit
Private Sub Command1_Click()
Dim ia,j%,t%,i%
ia = Array(12,38,45,51,22,15,83,74,98,26,99,30,66,9,72)
For i = 1 To 14
For j = 15 To i + 1 Step -1
If ia(j) < ia(j - 1) Then
t = ia(j)
ia(j) = ia(j - 1)
ia(j - 1) = t
End If
Next j
Print ia(j);
Next i
End Sub

求Vb代码 ,求这些数（12 38 45 51 22 15 83 74 98 26 99 30 66 09 72）的 选择降序和升序排序输出、冒泡升序和降序排序输出, 编程1000以内能整除37数平方的和求代码大谢用VB编 vb 编程 计算100~300之间所有能被3和7整除的数之和,求代码 求VB编程代码:判断一个数是否是素数? 怎么用VB做求绝对值代码不要太长 辗转相减法求最大公约数的vb代码 在vb中怎么求三角函数值 代码编写 求一定范围内服从正态分布的随机数VB代码? 怎样求素数(文字说明)不要用代码 语言语言叙述 另附vb代码 并详解 求将数据组显示出的Vb代码,数据组如 74 98 26 99 3012 38 45 51 22 15 83 09 72 66 100到999的水仙花数是多少请问用VB语言写出求100到999的水仙花数的代码是什么` VB中已知圆的半径求圆的周长和面积,求代码 求一个vb代码,关于判断一个整数的奇偶性在文本框中输入一个整数,判断该数的奇偶性,将结果显示在标签中.需要完整的代码 已知两点坐标,在vb中怎样计算两点连线与水平线的角度?求公式代码我需要在VB中的代码啊 求写vb代码,要求：在100~200之间的数中找出同时满足除3余2,除5余3和除7...求写vb代码,要求：在100~200之间的数中找出同时满足除3余2,除5余3和除7余2的所有整数! 求1-1000的素数统计 统计素数的个数 vb.net代码 求有数字按键的简单vb计算器代码,插入到哪才能用呢 设计个vb 计算三角形面积,格式如下、、、、、求代码= =不是面积公式、、、、、、、、