sort, serch

[سونامی]

میخوام sort و search رو یادبگیرم sort روبلدم اما نمیتونم از سرچ استفاده کنم کد زیر کد sort هست

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[aaaammmm87]

Private Sub Command1_Click()
Dim A%(1 To 5)
Dim I%, k%, w%, j%, T%
For I = 1 To 5
A(I) = InputBox("NO:")
Next I
For k = 1 To 5
For j = 1 To 4
If A(j) < A(j + 1) Then T = A(j): A(j) = A(j + 1): A(j + 1) = T
Next j
Next k
For w = 1 To 5
هif a(w)=val(textsearch.text) then msgbox ("findnumber")
Print A(w)
Next w
End Sub

[سونامی]

دوست عزیز کار نمیکنه ......میتونی اونم توی یک دگمه بنویسی ......مثل سورت ..input box داشته باشه و.....
خلاصه یک دگمه برای serch درست کن

[aaaammmm87]

Dim A%(1 To 5)
Private Sub Command1_Click()

Dim I%, k%, w%, j%, T%
For I = 1 To 5
A(I) = InputBox("NO:")
Next I
For k = 1 To 5
For j = 1 To 4
If A(j) < A(j + 1) Then T = A(j): A(j) = A(j + 1): A(j + 1) = T
Next j
Next k
For w = 1 To 5
Print A(w)
Next w
End Sub

Private Sub Command2_Click()
For w = 1 To 5
If A(w) = Val(Textsearch.Text) Then
MsgBox "find number"
Else
MsgBox "no number"
End If
Next
End Sub

فقط يه textbox به اسم Textsearch و يه كامند به اسم Command2 بزار روي فرمت

[سونامی]

نمیشه نمیشه چی کنم راستی کدتو توی تگ بزار ممنون