try to fix of the parameter error

Author: xieguigang

Microsoft.VisualBasic.Core/src/ComponentModel/DataSource/Repository/BloomFilter.vb

@@ -125,9 +125,9 @@ Namespace ComponentModel.DataSourceModel.Repository
             _bitArray = New BitArray(m)
         End Sub
 
-        Sub New(bytes As Byte(), k As Integer)
+        Sub New(bytes As Byte(), m As Integer, k As Integer)
             _bitArray = New BitArray(bytes)
-            _m = _bitArray.Length
+            _m = m
             _k = k
         End Sub