用LS,定义一个10位数的数组,并用冒泡法排序,从大到小排列出来
2010-01-07 18:49
344 查看
Sub Initialize
Dim A(9) As Integer
Dim tmp As Integer
A(0)=22
A(1)=1111
A(2)=2
A(3)=121
A(4)=312
A(5)=512
A(6)=142
A(7)=1
A(8)=21
A(9)=2999
For i=0 To 8
For j=i+1 To 9
If A(i)<A(j) Then
tmp=A(j)
A(j)=A(i)
A(i)=tmp
End If
Next
Next
For i=0 To 9
Msgbox A(i)
Next
End Sub
Dim A(9) As Integer
Dim tmp As Integer
A(0)=22
A(1)=1111
A(2)=2
A(3)=121
A(4)=312
A(5)=512
A(6)=142
A(7)=1
A(8)=21
A(9)=2999
For i=0 To 8
For j=i+1 To 9
If A(i)<A(j) Then
tmp=A(j)
A(j)=A(i)
A(i)=tmp
End If
Next
Next
For i=0 To 9
Msgbox A(i)
Next
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 运用冒泡法结合数组，讲给定的数据按照降序排列出来
- Java编程：定义一个int型的一维数组，包含10个元素，分别赋一些随机整数，然后求出所有元素的最大值，最小值，平均值，和值，并输出出来。
- 定义一个文件输入流,调用read(byte[] b)方法将exercise.txt文件中的所有内容打印出来(byte数组的大小限制为5)。
- 定义一个文件输入流，调用 read(byte[] b)方法将 exercise.txt 文件中的所有内容打印出来 (byte 数组的大小限制为 5)。
- 如何定义一个数组，编程打印它的全排列
- 用数组输出一段字符，并将其按照由大到小的顺序排列出来
- 9.28机试 定义两个数组，首先把两个数组合并成一个新数组，然后把新数组中的所有元素逆序排列
- 定义一个文件输入流,调用read(byte[] b)方法,将a.txt文件中的内容打印出来(byte数组大小限制为5)
- 定义结构记录学生分数，并由高到低排列出来
- “数组排列方法之冒泡法排序”的理解
- 定义一个int型的一维数组，包含10个元素，分别赋一些随机整数，然后求出所有元素的最大值，最小值，平均值，和值，并输出出来。
- 定义一个数组days，将其初始化今年每月的天数，编写一段程序，将每月的天数打印出来，
- 数组中有重复数据统计并按照次数的由大到小排列出来
- 定义一个int型的一维数组，包含10个元素，分别赋一些随机整数，然后求出所有元素的最大值，最小值，平均值，和值，并输出出来。
- 定义一个10元素的数组，给其赋值，每个值等于其下标，输出；然后倒排序再输出
- ．定义两个数组，首先把两个数组合并成一个新数组，然后把新数组中的所有元素逆序排列，需要实现的效果如图-2所示。
- 定义一个数组，编程打印它的全排列
- 转：定义一个数组days，将其初始化今年每月的天数，编写一段程序，将每月的天数打印出来， 分类： c语言经典题
- 7、定义一个文件输入流，调用read(byte[] b) 方法将exercise.txt文件中的所有内容打印出来(byte数组的大小限制为5，不考虑中文编码问题)。
- ．定义两个数组，首先把两个数组合并成一个新数组，然后把新数组中的所有元素逆序排列，需要实现的效果如图-2所示。