用VB编写程序,随机生成10个10~99互不相同的整数,将它们按由小到大的顺序排列起来

Private Sub Command1_Click()ClsDim a(1 To 10) As IntegerFor i = 1 To 10Randomizea(i) = Int(Rnd * 90 + 10)For j = 1 To i - 1If a(i) = a(j) Theni = i - 1Exit ForEnd IfNext jNext iPrint "产生的随机数为：...