在文本框输入多个用，分隔的整数，按回车键后将各数据按降序输出到窗体，请问我的程序哪里出错了？

b(i) = b(p): b(p) = t Next For i = n To m Print b(i); Next End If End Sub PS, p, n: m = UBound(a) ReDim b%(n To m) For i = n To m b(i) = Val(a(i)) Next i For i = n To m - 1 p = i For j = i + 1 To m If b(p) < b(j) Then p = j Next t = b(i);，") n = LBound(a).Text, &quot, m, t% Dim b%(), a$() a = Split(Text1Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Dim i, j：1

p, n: m = UBound(a)
ReDim b%(n To m)
For i = n To m
b(i) = Val(a(i))
Next i
For i = n To m
For j = n To i
If b(i) >,")
n = LBound(a).Text, &quot, m, t%
Dim b%(), a$()
a = Split(Text1Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim i, j; b(j) Then t = b(i)

"，"改成半角的 字符可以直接比较大小 就是按ascii码比较的 用冒泡法什么的排序就行了 把N在通用声明 for i=0 to ubound(n())