随机产生10个10到100之间的整数，并将其按从大到小的顺序显示在窗体上（注：用冒泡方法排序，每行输出4个

Question

如题所述

Answer 1

Dim a(1 To 10) As Integer
Print "未排序前"
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 91+10)
Next i
For k = 1 To 10
Print a(k); " ";
Next k
For j = 2 To 10
For i = 10 To j Step -1
If a(i) < a(i - 1) Then
t = a(i): a(i) = a(i - 1): a(i - 1) = t
End If
Next i
Next j
Print
Print "排序后"
For i = 1 To 10
If i Mod 4 = 0 Then
Print a(i); " ";
Print
Else
Print a(i); " ";
End If
Next i本回答被提问者采纳