飘洒的回忆
幼苗
共回答了27个问题采纳率:96.3% 举报
Dim a(5) As Double
for i= 1 to 5
a(i)=fix(rnd*10)
next i
For i = 1 To 4
For j = 1 To 5 - i
If a(j) < a(j + 1) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
End If
Next j
Next i
然后拿五个分别赋值a1到5,转化成字符
这样就可以排列了,最大最小就是正序和倒序排列,上课了,不打了
1年前
8