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

Question

求具体而详细的编写代码，O(∩_∩)O谢谢

Answer 1

Private Sub Command1_Click()
Cls
Dim a(1 To 10) As Integer
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 90 + 10)
For j = 1 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next j
Next i
Print "产生的随机数为："
For i = 1 To UBound(a)
Print a(i);
Next i
Print
For i = 1 To UBound(a) - 1
For j = UBound(a) To i + 1 Step -1
If a(i) > a(j) Then b = a(i): a(i) = a(j): a(j) = b
Next j
Next i
Print "排序后的数为："
For i = 1 To UBound(a)
Print a(i);
Next i

End Sub本回答被提问者采纳

Answer 2

Private Sub Command1_Click()
Dim a(10)
For i = 1 To 10
Do
a(i) = Int(Rnd * 90) + 10
For j = 1 To i - 1
If a(i) = a(j) Then Exit For
Next
Loop While j < i
Next
For i = 1 To 10
For j = 1 To i
If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next
Next
For i = 1 To 10
Print a(i);
Next
Print
End Sub本回答被网友采纳

Answer 3

好吧，没有研究过。不过用随机函数加冒泡排序法应该可以做出来的吧。同求，希望高手们写注释啊！