Question

VB 怎么将文本框1里的多个数值赋给数组，并排序后显示在文本框2中

排序可以不用说 主要是怎么将将文本框1里的多个数值赋给数组，而后可以进行下面的动作

Answer 1

文本框里的多个数值用逗号隔开：
Dim a() As String
a = Split(Text1.Text, ",")
注意，数组a是字符串类型，如果要进一步处理，假设是整数类型：

Dim a() As String, b() As Integer, i, n
a = Split(Text1.Text, ",")
n = -1
For i = 0 To UBound(a)
If IsNumeric(a) Then
n = n + 1
ReDim Preserve b(n)
b(n) = a(i)
End If
Next i

Answer 2

Dim r
r = Split(Text1.Text, vbCrLf)
r就是你要的数组
排序后
Text2.Text = Join(r, vbCrLf)