大神 帮看看 程序出了什么问题？

Dim i As Integer, N() As String, M() As String
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
i = i + 1
ReDim Preserve N(i)
ReDim Preserve M(i)
N(i) = Text1.text
M(i) = Text2.text
List1.AddItem N(i) & " " & M(i)
End If
End Sub
Private Sub Command1_Click()* 冒泡排序
Dim i As Integer, N As String, M As String
For i = List1.ListCount To 1 Step -1
For j = 1 To i
If M(j) < M(j + 1) Then
M = M(j)
N = N(j)
M(j) = M(j + 1)
N(j) = N(j + 1)
M(j + 1) = M
N(j + 1) = N
End If
Next
Next
List2.Clear
For i = 1 To List1.ListCount
List2.AddItem N(i) & " " & M(i)
Next
End Sub

哪里有问题啊？

大神们帮看看啊 改好久了 都不行

请注意ListBox列表框的下标是从0起算
for i=0 to list1.listcount-1
或
for i=list1.listcount -1 to 0 step -1

呵呵，楼主好象特别喜欢M、N？
Private Sub Command1_Click()* [url]http://冒泡排序[/url]
Dim i As Integer, N As String, M As String <---------------把这两个N、M换个名字，
不然VB就不认识你定义的 全局变量M（）、N（）了，也当然会提示你“缺少数组”了。