Option ExplicitDim l1%, l2%, l3%, i%, j%, k As Boolean, n%, tx As String, txt As String, t%Dim p() As Integer '赋值Dim num() As Integer '判断Private Sub Command1_Click()num(1) = p(1)k = FalseFor l1 = 2 To n
For l2 = 1 To l1 - 1
If p(l1) > num(l2) Then
k = True
For... |