用VB 来编写程序对一组的数据按降序排列！

来源：百度知道 编辑：UC知道 时间：2024/07/05 15:55:57
数据是可以用数组输出
，而且，必须输出。在线等

Dim C As Boolean, s%(1 To 10)
Private Sub command1_click()
For i = 1 To 10
s(i) = Val(InputBox(""))
Print s(i);
If i Mod 5 = 0 Then Print
Next i
For i = 1 To 10
For j = i To 10
If s(j) > s(i) Then
t = s(i)
s(i) = s(j)
s(j) = t
End If
Next
Next
Print "--------------------------"
Print "重新排序后为:"
For i = 1 To 10
Print s(i);
If i Mod 5 = 0 Then Print
Next
End Sub

Dim C As Boolean, s%(1 To 10)
Private Sub command1_click()
For i = 1 To 10
s(i) = Val(InputBox(""))
Print s(i);
If i Mod 5 = 0 Then Print
Next i
For i = 1 To 10
For j = i To 10
If s(j) > s(i) Then
t = s(i)
s(i) = s(j)
s(j) = t
End If
Next
Next
Print "--------------------------"
Print "重新排序后为:"
For i = 1 To 10
Print s(i);
If i Mod 5 = 0 Then Print