Private Sub cmdSort_Click()
0 To 3
Dim I, J, K As Integer
Dim arr(4) As String
For I = 0 To 4
arr(I) = txtarr(I).Text
Next
For I = For J = I To 4
If CStr(arr(I)) < CStr(arr(J)) Then
X = arr(I)
arr(I) = arr(J)
arr(J) = X
End If
Next
Next
For I = 0 To 4
Next
End Sub
Private Sub cmdSort_LostFocus ()
For I = 0 To 4
txtarr(I).Text = Clear
Next
End Sub
No comments:
Post a Comment