vb编程题 窗体上有一个名称为command1的命令按钮和名称为text1和text2的两个文本框,当窗体加载时在text1中

Dim a(1 To 10) As Integer Private Sub Command1_Click() For i = 1 To 9 For j = i + 1 To 10 If a(i) > a(j) Then b = a(i): a(i) = a(j): a(j) = b End If Next j Next i Text2.Text = ""