Sub remove(ByRef phrase As String)
Dim size_phrase As Integer = phrase.Length - 1
Dim initialSize As Integer = size_phrase / 2
Dim i As Integer
Dim randVar As Random = New Random(seed_charac)
Dim rdm_array(initialSize) As Integer
For i = 0 To initialSize
rdm_array(i) = randVar.Next(1, initialSize)
Next
Dim j As Integer
For j = initialSize To 0 Step -1
phrase = phrase.Remove(rdm_array(j), 1)
Next
End Sub
只需配置一名动物园管理员zkUrl
。如何配置多个ip:port
ip:port