利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A

Answer 1

a[i]:=Random(99)+10

Answer 2

Private Sub Form_Click()
Dim A(1 To 20)
For i = 1 To 20
A(i) = Int(Rnd * 90 + 10)
Print A(i);
Next
End Sub