填空题

窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。


Dim x(3)As Integer
Private Sub Command1_Click ()
For i = 0 To 3
x(i)= 【10】
Next i
For i = 0 To UBound(x)- 1
For j = i To UBound(x)
If 【11】 Then
t = x(i)
x(i)= x(j)
x(j)= t
End If
Next j
Next i
For i = 0 To 3
Text1(i) .Text = Str(x(i))
Next i
End Sub