VBS一维数组大小排序问题
答案:3 悬赏:70 手机版
解决时间 2021-03-21 08:37
- 提问者网友：niaiwoma
- 2021-03-20 18:36
如题。注：这个数组有5个元素，每个都是随机数。（不是让用户输入）
最佳答案
- 五星知识达人网友：夜风逐马
- 2021-03-20 19:08
For i = LBound(a) To UBound(a)
For j = i + 1 To UBound(a)
If a(i) > a(j) Then '小到大排序
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
For j = i + 1 To UBound(a)
If a(i) > a(j) Then '小到大排序
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
全部回答
- 1楼网友：春色三分
- 2021-03-20 21:35
关键数据排序代码：
for i = lbound(a) to ubound(a)
for j = i + 1 to ubound(a)
if a(i) > a(j) then '小到大排序
t = a(i)
a(i) = a(j)
a(j) = t
end if
next
next
- 2楼网友：刀戟声无边
- 2021-03-20 20:34
Dim Array[10]
For i=0 To 10
Array(i) =Int (Array(i))
Next
For i=1 To 10
For j=i To 1 Step -1
Dim Temp
If Int (Array(j))
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯