编程论坛 → VB6论坛

请问vb如何判断text中数字大小

jingfang_434 发布于 2021-07-20 21:50， 1716 次点击

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

6 回复

foreach2021-07-21 09:03

取出来，IF判断

jingfang_4342021-07-21 09:53

回复 2楼 foreach

具体怎么编程，请指教

apull2021-07-21 10:26

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

kings123332021-07-21 10:50

回复 4楼 apull

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

apull2021-07-21 11:58

程序代码：

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编辑过]

jingfang_4342021-07-21 13:24

回复 6楼 apull

谢谢您