Private Sub CommandButton1_Click()Dim a(4) As IntegerFor x = 0 To 4a(x) = Choose(x + 1, 50, 30, 120, 20, 80)Next xFor i = 0 To 4 For j = 0 To 3 - i If a(j) > a(j + 1) Then temp = a(j + 1) a(j + 1) = a(j) a(j) = temp End IfNext jNext iFor i = 1 To 5Cells(i, 1) = a(i - 1)NextEnd Sub... |