intelomkar

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

For p = 1 to (length - 1) Step 1
    For q = 0 To (length - 1) Step 1
                If number(q + 1) < number(q) Then
                    temp = number(q)
                    number(q) = number(q + 1)
                    number(q + 1) = temp
                End If
            Next
Next
        
        For r = 1 to length
        
        Text2.Text = Text2.Text & " " & CStr(number(r))
        Next
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