آموزشگاه کامپیوتر شریف سیستم

برای فرم این برنامه ابتدا یک لیست و سپس یک دکمه عملیاتی در فرم ترسیم می کنیم

 
Option Base 1
Private Sub Command1_Click()
Dim no(10) As Integer
Dim find As Boolean
Dim high, low, mid1 As Integer
Dim i As Integer
Dim value As Integer
Dim r As String
List1.Clear
For i = 1 To 10
no(i) = InputBox("Enter number" + Str(i), "Input data")
Next i
For i = 1 To 10
     For j = 1 To i
        If no(i) > no(j) Then
            temp = no(i)
            no(i) = no(j)
            no(j) = temp
        End If
       
Next
Next
value = InputBox("Enter a number to search:", "Input data")
low = 1
high = 10
find = False
While low < high And find = False
mid1 = (high + low) \ 2
If no(mid1) = value Then
find = True
ElseIf value < no(mid1) Then
high = mid1 - 1
Else
low = mid1 + 1
End If
Wend
For i = 1 To 10
List1.AddItem Str(no(i))
Next i
If find Then
r = MsgBox("The number   " + Str(value) + "  Exist in list", 68, "result")
Else
r = MsgBox("The number    " + Str(value) + "Not exist in list", vbOKOnly + vbQuestion, "result")
End If

End Sub
Private Sub Command2_Click()
End
End Sub