求Vb代码 ,求这些数(12 38 45 51 22 15 83 74 98 26 99 30 66 09 72)的 选
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/04 10:01:48
求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 Su
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 Su
求Vb代码 ,求这些数(12 38 45 51 22 15 83 74 98 26 99 30 66 09 72)的 选
vb计算代码,求三个数的和,求最大数减最小数
求VB编程代码:判断一个数是否是素数?
vb程序设计问题,求代码
辗转相减法求最大公约数的vb代码
求一个vb代码,关于判断一个整数的奇偶性
求有数字按键的简单vb计算器代码,
vb 编程 计算100~300之间所有能被3和7整除的数之和,求代码
求VB代码_数字金字塔
VB中已知圆的半径求圆的周长和面积,求代码
急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数
求vb代码:按一个按钮随机出现一道有两个100到999之间的数组成的计算题,如123+659,569×265.