填空题

窗体上有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