vb排序的程序

Question

随机产生10个两位数，由小到大排序；用比较排序法，输出到label里

Answer 1

Dim i%, j%, a(1 To 10) As Integer
Private Sub command1_click()
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
Print
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
For i = 1 To 10
Label1.Caption = Label1.Caption + Str(a(i))
Next i
End Sub

Answer 2

private sub command1_click()
dim i%,j%,a(10) as integer
randomize
for i=1 to 10
a(i)=int(rnd * (99-10+1)+10)
print a(i);
next i
print
for i=1 to 9
for j=i to 10
if a(i)>a(j) then
t=a(i)
a(i)=a(j)
a(j)=t
end if
next j
next i
for i=1 to 10
label1.caption=a(i)
next i
end sub