7,789
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
bigbigfans 2003-01-08
- 打赏
- 举报
找本数据结构看
coward_c 2003-01-08
- 打赏
- 举报
..........
和那个问题是同一个人问的吗........
和那个问题是同一个人问的吗........
yansea 2003-01-08
- 打赏
- 举报
去看看书吧，课堂里没讲过吗？
zyl910 2003-01-08
- 打赏
- 举报
回复人： coward_c(车轴草) ( ) 信誉：100 2003-01-08 20:57:00 得分:0
先用循环得到7个整数,分别赋值到一个有7个元素的数组里面,这样a(1)--a(7)
就代表了每个整数,然后用冒泡法排序就好了
关于冒泡法就是这样的
Sub popo()
For i = 0 To 6
For n = 0 To 5 - i
If a(n) > a(n + 1) Then
a = a(n + 1)
a(n + 1) = a(n)
a(n) = a
End If
Next n
End Sub
原理就是连续比较相临的两个元素,谁大就把谁放到标号靠后的元素里面去,然后在比较下一组相临的元素就好了
举个例子:a1>a2 就把a1和a2的值交换,然后比较a2 a3,这样一直比到a6 a7的时候就可以把最大的一个弄到a7去,然后再重新比较前六个的大小.这样就实现排序了
Top
先用循环得到7个整数,分别赋值到一个有7个元素的数组里面,这样a(1)--a(7)
就代表了每个整数,然后用冒泡法排序就好了
关于冒泡法就是这样的
Sub popo()
For i = 0 To 6
For n = 0 To 5 - i
If a(n) > a(n + 1) Then
a = a(n + 1)
a(n + 1) = a(n)
a(n) = a
End If
Next n
End Sub
原理就是连续比较相临的两个元素,谁大就把谁放到标号靠后的元素里面去,然后在比较下一组相临的元素就好了
举个例子:a1>a2 就把a1和a2的值交换,然后比较a2 a3,这样一直比到a6 a7的时候就可以把最大的一个弄到a7去,然后再重新比较前六个的大小.这样就实现排序了
Top
