在text控件中有以下数字
1
5
8
9
12
11
15
如何判断顺序数字中是否从小到大排列？以上数字中不符合从小到大的顺序，如何让程序提示错误呢，比如提示为11不符合排列顺序，请检查

取出来，IF判断

具体怎么编程，请指教

text存到string里，然后split分隔成数组，
从前往后遍历，后面的要是小于前面的则给出错误提示

写个代码看看，很想学下数组

Private Sub Command2_Click()
    ss = Split(Text3.Text, vbCrLf)
    For i = 1 To UBound(ss) - 1
        If (CInt(ss(i - 1)) > CInt(ss(i))) Then
            MsgBox (ss(i) & "不符合排列顺序，请检查)
            Exit For
        End If
    Next
End Sub

[此贴子已经被作者于2021-7-21 12:02编辑过]

谢谢您