Anonymous

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

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

For p = 1 To (length - 1) Step 1
    For q = 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
               
        Next p
        Next q
        
        For r = 1 To length
        
        Text2.Text = Text2.Text & " " & CStr(number(i))
        Next r
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