Private Sub Command1_Click()
Dim A()
Dim N As Integer
Randomize
N = Int(5 * Rnd) + 5'N的范围为:5~9,是生成随机数的个数
ReDim A(N)
For i = 1 To N
A(i) = Int(Rnd * 900) + 100 '随机的三位整数
Next
Text1.Text = Trim(Join(A, " "))
For i = 1 To N
For j = i + 1 To N
If A(i) >
看不出来是一个题,还是两个题目。按一个题目做吧。Private Sub paixu(x() As Single)For i = 0 To UBound(x) - 1For j = i + 1 To UBound(x)If x(i) > x(j) Thent = x(i)x(i) = x(j)x(j) = tEnd If