VBI 59.PNG

Private Sub Command1_Click()
    Dim s, i, j, n(0 To 9) As Integer
    For i = 0 To 9
        n(i) = InputBox("Enter Number", "Integer Needed")
    Next i
    For j = 0 To 8
        For i = j + 1 To 9
            If n(i) < n(j) Then
                s = n(i)
                n(i) = n(j)
                n(j) = s
            End If
        Next i
    Next j
    Text1.Text = n(0)
    Text2.Text = n(1)
    Text3.Text = n(2)
    Text4.Text = n(3)
    Text5.Text = n(4)
End Sub

 

Private Sub Command2_Click()
    End
End Sub

VBO 59.PNG

Advertisements