今回は、二分探索です。配列の要素を検索して、指定した値が配列の何番目にあるか調べます。 相変わらずコメント無くてすみません。 Private Sub BinarySearchTest() Dim vList(1 To 5) As Long vList(1) = 1 vList(2) = 5 vList(3) = 10 vList(4) = 14 vLis…