窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如

问题填空题

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

Dim x(3)As Integer Private Sub Command1_Click ()For i = 0 To 3 x(i)= 【10】 Next iFor 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 iEnd Sub

答案

参考答案：[10]Val(Text1(i).Text)或Text1(i).Text或Text1(i)

解析：[11] x(i)＞x(j)

[分析]：文本框的数据为字符串，使用 Val(字符串)函数将“字符串”转换成数值型。从小到大的排序条件为“x(i)＞x(j)”，从大到小的排序条件为“x(i)＜x(j)”。