Untitled

Private Sub Command1_Click()
    Dim number() As Integer
    length = Int(InputBox("How many terms?"))
    ReDim number(length) As Integer

    For m = 0 To (length - 1) Step 1
        number(i) = Int(InputBox("Enter the term..."))
        Text1.Text = Text1.Text & " " & number(i)
    Next m

    For i = 1 To (length - 1) Step 1
        For j = 1 To (length - i) Step 1
            If number(i) > number(i + 1) Then
                temp = number(i)
                number(i) = number(i + 1)
                number(i + 1) = temp
            End If
        Next j
    Next i
        
    For n = 0 To (length - 1) Step 1
        Text2.Text = Text2.Text & " " & CStr(number(i))
    Next n
End Sub

Private Sub Command2_Click()
    Command1.Enabled = True
    Text1.Text = ""
    Text2.Text = ""
    Command2.Caption = "Form Cleared!"
End Sub

Private Sub Command3_Click()
    End
End Sub