BASIC语言编程用随机函数产生20个〔100，1000〕之间的整数，并按从小到大的顺序，按每行10个数的格式输出

Question

BASIC语言编程：试用随机函数产生20个〔100，1000〕之间的整数，并按从小到大的顺序，按每行10个数的格式输出。

Answer 1

dim a(20)
for i=1 to 20
a(i)=int(rand(1)*900)+100
next i
for i=1 to 19
for j=i+1 to 20
if a(i)>a(j)
t=a(i)
a(i)=a(j)
a(j)=t
endif
next j
next i
for i=1 to 20
print a(i);
if i mod 10=0
print
endif
next i
end本回答被提问者采纳

Answer 2

'无比排序
Private Sub Command1_Click()
Dim a&(101 To 999), i&, j&
Cls
Randomize
For i = 1 To 20
j = Int(Rnd * 899) + 101
a(j) = a(j) + 1
Next
j = 0
For i = 101 To 999
Do While a(i) > 0
j = j + 1
Print i;
If j = 10 Then Print
a(i) = a(i) - 1
Loop
Next
End Sub