给出十个10-100的随机整数，用“选择排序法”从大到小顺序
vb吧
全部回复
仅看楼主
level 5
雪案萤窗🌸 楼主
给出十个10-100的随机整数，用“选择排序法”从大到小顺序排列
以上是题目
然后就是不太懂，为什么排序只排了三个？代码问题吧，
2020年06月15日 10点06分 1
level 5
雪案萤窗🌸 楼主
然后结合百度啊什么的，写了一个代码，运行也能出现，但是只有三个数字的排序
2020年06月15日 10点06分 2
level 5
雪案萤窗🌸 楼主
不懂，枯了
2020年06月15日 10点06分 4
level 5
雪案萤窗🌸 楼主
找大佬救命
2020年06月15日 10点06分 5
level 5
雪案萤窗🌸 楼主
2020年06月15日 10点06分 6
level 5
雪案萤窗🌸 楼主
哥哥姐姐救救我[惊哭]
2020年06月15日 10点06分 7
level 5
雪案萤窗🌸 楼主
2020年06月15日 10点06分 8
level 11
DiverAZAM
第一处错误，不是tiemr：
Randomize Timer
第二处错误，随机数用：
Int(Rnd * 91 + 10)
第三处错误，Next j上面是：
If a(I) < a(j) Then
c = a(I)
a(I) = a(j)
a(j) = c
End If
2020年06月15日 10点06分 9
雪案萤窗🌸
谢谢你！我来改一下试试💛
2020年06月15日 11点06分
雪案萤窗🌸
太感动了呜呜呜呜呜终于对了٩(•̀㉨•́)و get！
2020年06月15日 11点06分
level 11
DiverAZAM
9楼的是排序但不是纯正的【选择排序法】，纯正的这样：
2020年06月15日 11点06分 11
雪案萤窗🌸
谢谢大佬！！！☺️☺️☺️
2020年06月15日 13点06分
吧务
level 13
Luosen56
'　用选择法对数组 A() 降序排列
For i = LBound(a) To UBound(a) - 1
k = i
For j = i + 1 To UBound(a)
If a(k) < a(j) Then k = j '　降序
Next
If k <> i Then
T = a(i): a(i) = a(k): a(k) = T
End If
Next
2020年06月15日 15点06分 12
雪案萤窗🌸
谢谢小吧主大大！
2020年06月16日 03点06分
level 1
满腔热血喂狗了
一个学校的
2020年06月17日 10点06分 13
雪案萤窗🌸
一份作业让陌生的校友在贴吧相遇
2020年06月25日 15点06分
1