vb数组排序

Question

将一个数组排序后，原数组跟排序后的数组要显示在两个文本框，文本框每行最多显示5个数 啥搞啊
给个例子看看
是用inputbox把数字输入

Answer 1

Private Sub Command1_Click()
Dim i, j, intmin As Integer
Dim SngSq(9), sngt As Integer '输入原始数据
For i = 0 To 9
SngSq(i) = Val(InputBox("输入第" & i + 1 & "个数字"))
Next
Text1.Text = ""
For i = 0 To 9
Text1.Text = Text1.Text & SngSq(i) & " "
If i Mod 5 = 4 Then Text1.Text = Text1.Text & vbNewLine
Next
For i = 0 To UBound(SngSq)
intmin = i '对第i遍排序，初始假定第i个元素最小
For j = i + 1 To UBound(SngSq) '找出最小的元素序号
If SngSq(j) < SngSq(intmin) Then intmin = j
Next j
'将找出的最小元素与第i个元素交换
sngt = SngSq(i)
SngSq(i) = SngSq(intmin)
SngSq(intmin) = sngt
Next i
'打印输出
Text2.Text = ""
For i = 0 To UBound(SngSq)
Text2.Text = Text2.Text & SngSq(i) & " "
If i Mod 5 = 4 Then Text2.Text = Text2.Text & vbNewLine
Next i
End Sub

Answer 2

用函数转换