随机产生十个10-100的整数，用选择排序法按值从小到大顺序排序,我是学VB的。急急。。。

急什么啊,百度上很多啊,随便搜一下就有了.

Private Sub Command1_Click()
Dim su(1 To 10) As Integer '定义数组
'产生随机数
For i = 1 To 10
su(i) = Rnd * 90 + 10 '产生10-100的数
Print su(i);
Next
Print
'排序
'这样好像是选择排序吧,先选一个最小的数放在前面
For i = 1 To 9
For j = i To 10
If su(i) > su(j) Then
t = su(i)
su(i) = su(j)
su(j) = t
End If
Next
Print su(i);
Next
Print su(i)
End Sub

汗，一个循环产生随机数，把随机数放进一个数组里，再把数组排序不就可以做到了么？
我用手机上的，不方便打，就给你提个思路。