Question

vb程序设计生成10个0到100间随机整数存于数组A，然后将这10个数逆序重放到A

Answer 1

Private Sub Command1_Click()
Dim A(1 To 10) As Integer
Randomize
Print "生成10个0到100间随机整数:"
For i = 1 To 10
  A(i) = Int(Rnd * 101)
  Print A(i);
Next
Print
For i = 1 To 5
  t = A(i)
  A(i) = A(11 - i)
  A(11 - i) = t
Next
Print "10个数逆序重放到A:"
For i = 1 To 10
  Print A(i);
Next
End Sub