VB編程，隨機3個數，從大到小排列，哥哥姐姐幫幫忙了，謝了

Dim s(1 To 3) As Integer, str As String, Max As Integer, Min As Integer

Randomize

Min = 10

For i = 1 To 3

s(i) = Int(Rnd * 10 + 1)

str = str & s(i) & ","

If s(i) > Max Then Max = s(i)

If s(i) < Min Then Min = s(i)

Next

str = "隨機的3個數字為：" & str & vbCrLf

For i = 1 To 3

If s(i) <> Max And s(i) <> Min Then str = str & Max & ">" & s(i) & ">" & Min

Next

MsgBox str

End Sub