关于VB的随机数字排列问题

有5个text,前四个用来存储随机数字，后一个用存储排列后的数字

首先分别给前四个text各赋值一个1至10之间的数字

然后将这些数字从小到大的排列之后显示在text5那里

例如随机得出

5 6 1 1

那么text5的内容就为：1156

Private Sub Form_click()
Randomize
Dim a(3) As Integer
a(0) = Int(Rnd * 10 + 1)
a(1) = Int(Rnd * 10 + 1)
a(2) = Int(Rnd * 10 + 1)
a(3) = Int(Rnd * 10 + 1)
Text1.Text = a(0)
Text2.Text = a(1)
Text3.Text = a(2)
Text4.Text = a(3)
For i = 0 To 3
For j = i + 1 To 3
If a(i) > a(j) Then
a(i) = a(i) + a(j)
a(j) = a(i) - a(j)
a(i) = a(i) - a(j)
End If
Next j
Next i
Text5.Text = a(0) & a(1) & a(2) & a(3)
End Sub