Question

vb中随机数组的生成及排列

数组A中的10个元素是20~80之间的随机数，要求将其内容按颠倒次序重放。
这道题代码怎么写，求大神解答

Answer 1

Private Sub Command1_Click()

  Dim a(10) As Integer, i As Integer, j As Integer

  Randomize

  Print "初始顺序的数字:"

  For i = 1 To 10

    a(i) = 20 + Int(61 * Rnd())

    Print a(i);

  Next i

  Print

  For i = 1 To 5

    j = a(i): a(i) = a(11 - i): a(11 - i) = j

  Next i

  Print "颠倒后的数字:"

  For i = 1 To 10

    Print a(i);

  Next i

  Print

End Sub