vb程序编写题 随机产生20到80之间的10个整数,将它们从小到大排序

Private Sub Command1_Click()

Dim MyValue(10) As Integer

Dim i, j, p As Integer

For i = 0 To 9

Randomize

MyValue(i) = Int(Rnd() * (80 - 20 + 1)) + 20

Next

For i = 0 To 9

For j = i + 1 To 10

If MyValue(i) >MyValue(j) Then

p = MyValue(i)

MyValue(i) = MyValue(j)

MyValue(j) = p

End If

Next

Next

For i = 0 To 9

Print MyValue(i)

Next i

End Sub

Private Sub Command1_Click()

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

忘采纳！！！

---