Private Sub Command1_Click()

  Dim x As Integer，Y As Long，st

As String

  For x=100 To 1 000

    y=x^2

    st=x&y         ‘将数字x和y合并成不含空格的数字串st

    If  Then               ‘①

       List1. AddItem Str(x)&"  "& Str(y)&"  "&st

    EndIf

  Next x

  End Sub

  Function judge(s As String)As Boolean

    Dim a(1 To 100)As String，i As Integer，j As Integer

    judge=False

    For i=1 To Len(s)

      a(i)=Mid(s，i，1)

    Next i

    For i=1 To Len(s)-1

      For j=i+1 To Len(s)

         If  Then Exit Function       ‘②

      Next j

    Next i

    judge=True

  End Function

1)查找相邻两个非降序数据段：在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后面没有元素，则本轮处理完毕：否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。

2)合并两个数据段：借助数组tmp．将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。

3)若数组中还有未处理的数据，则重复(1)(2)步骤。每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据已构成非降序数据段，数据处理结束。