VB程序设计习题:用选择排序法，利用随机数产生20个1~100的整数，并按照升序排列。急！
最新回答
红眼兔兔
2025-03-26 09:31:56
Dim arr(1 To 20), i
For i = 1 To 20
Randomize
arr(i) = Int(Rnd * 101)
Next
fc arr
Print Join(arr, vbNewLine) '自己修改，我是直接打印的可以分开
End Sub
Function fc(arr)
Dim i, j, t
For i = LBound(arr) To UBound(arr) - 1
For j = i + 1 To UBound(arr)
If Val(arr(i)) < Val(arr(j)) Then
t = arr(i): arr(i) = arr(j): arr(j) = t
End If
Next
Next
End Function
忘采纳！！！
热门标签
