Question

VB怎样把数字按从大到小排列？？急求！！！

Answer 1

Private Sub Command1_Click()
Dim arr() '设数字存放在arr数组中，数组长度已定义好。
Dim i As Integer, j As Integer, t
For i = 0 To UBound(arr)
For j = i + 1 To UBound(arr)
If arr(j) > arr(i) Then
t = arr(i)
arr(i) = arr(j)
arr(j) = t
End If
Next j
Next i
End Sub

Answer 2

利用排序算法呀。假设有100个10000以内的随机数存放在a数组中。
冒泡法：
for i=1 to 100
a(i)=int(rnd*10000）
next
for i=1 to 99
for j=i+1 to 100
if a(i)<a(j) then
temp=a(i)
a(i)=a(j)
a(j)=temp
end if
next
next
for i=1 to 100
print a(i)
next

选择法：
for i=1 to 100
a(i)=int(rnd*10000）
next
for i=1 to 99
for j=i+1 to 100
k=i
if a(k)<a(j) then i=k
next
if i<>k then
temp=a(i)
a(i)=a(k)
a(k)=temp
end if
next
for i=1 to 100
print a(i)
next

Answer 3

冒泡法

追问

我是新手，能发哈代码不？

追答

你说的东西和语言无关，是算法思想
你百度下冒泡法
在领悟下 里面的意思，把它写成vb的形式

代码不写的，我知道你肯定是要交作业，
这样学习可不行的