请问这道VB题该怎么做??万分感谢!!!!!

来源：百度知道 编辑：UC知道 时间：2024/05/29 01:06:23
在一有序序列中插入任何数使原序列仍有序。要求，在文本框1内输入序列，文本框2内输入要插入的数。点击按钮后，在窗体上或在文本框1中显示新序列
是逗号

'好了，代码如下，有不明白的发消息问我。

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then
Exit Sub
End If

'读取数据
tmp = Split(Trim(Text1.Text), ",")
ReDim arr(UBound(tmp) + 1) As Integer
For i = 0 To UBound(arr) - 1
arr(i) = CInt(tmp(i))
Next
arr(UBound(arr)) = CInt(Text2.Text)

'排序数据
For i = 0 To UBound(arr)
For j = 0 To UBound(arr)
If arr(j) > arr(i) Then
x = arr(j)
arr(j) = arr(i)
arr(i) = x
End If
Next
Next

'生成新数据
For i = 0 To UBound(arr)
If i = 0 Then
Text1.Text = CStr(arr(i))
Else
Text1.Text = Text1.Text + "," + CStr(arr(i))
End If

Next

End Sub

Private Sub Command1_Click()
tmp = Split(Trim(Text1.Text), ",")
n = UBound(tmp)