窗体上有4个文本框控件数组text1()和一个命令按钮 程序运行前如左图所示 程序运行后如右图所示。
窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。 
Dim x(3)As Integer Private Sub Command1_Click () For i = 0 To 3 x(i)=【 】 Next i For i = 0 To UBound(x)- 1 For j = i To UBound(x) If【 】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
请帮忙给出正确答案和分析，谢谢！
参考解答
422***263
2023-07-21 21:34:01
正确答案：Val(Text1(i).Text)或Text1(i).Text或Text1(i) x(i)＞x(j)
文本框的数据为字符串，使用Val(字符串)函数将“字符串”转换成数值型。从小到大的排序条件为“x(i)＞x(j)”，从大到小的排序条件为“x(i)＜x(j)”。
相似问题
以下程序的功能是 产生10个0～1000的随机整数 放入数组Arr中 然后输出其中的最大值。请完善下
以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请完善下列程序。 Option Base 1 Private Sub Form_Click()
Visual Basic识别对象靠的是对象的【 】属性。请帮忙给出正确答案和分析 谢谢！
Visual Basic识别对象靠的是对象的【 】属性。请帮忙给出正确答案和分析，谢谢！
为了使一个标签透明且没有边框 必须将它的【 】属性设置为0 并将BackStyle属性设置为0。请帮
为了使一个标签透明且没有边框，必须将它的【 】属性设置为0，并将BackStyle属性设置为0。请帮忙给出正确答案和分析，谢谢！
为了建立窗体的Click事件过程 即Form_Click 应先在代码窗口的【 】栏中选择Form 然
为了建立窗体的Click事件过程，即Form_Click，应先在代码窗口的【 】栏中选择Form，然后在【 】栏中选择Click。请帮忙给出正确答案和分析，谢谢！
下列程序的功能是：将数据1 2 … 10写入顺序文件Base．txt中 请填空。 Private S
下列程序的功能是：将数据1，2，…，10写入顺序文件Base．txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open【 】As 1 For i
