第1个回答 2010-05-12
保证能行，直接粘贴到一个command中就行了。我是把结果输出在窗体上，用print方法，你也可以改成输入在text中，或者其他，最后改下就行了。希望能帮助到你。。。
dim a(10) as integer,i as integer,j as integer,t as integer
randomize
for i=1 to 10 '生成随机整数构成的数组
a(i)=int(101*rnd+100)
next i
for i=1 to 9 '用冒泡法进行排序，从小到大
for j=1 to 10-i
if a(j)>a(j+1) then
t=a(j+1)
a(j+1)=a(j)
a(j)=t
next j
next i
for i= 10 to 1 step -1 '从大到小输出
print a(i);
next i
还有问题可以加我QQ 1030437043
我也是初学者，呵呵
第2个回答 2010-05-12
Dim a(10)
For i = 0 To 9
a(i) = Int(100 + 100 * Rnd)
Next i
For i = 0 To 8
For j = i To 9
If a(i) < a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
Print Join(a, ",")本回答被提问者采纳