У меня есть следующий код в Perl, который генерирует случайные значения, пока не будет достигнуто количество значений. Хеш-таблица всегда хранит случайные значения в одном и том же «месте», поэтому хэш-таблица имеет правильный размер, когда хранится достаточное количество значений.
while ( (keys( %unique_regex )) <= $amount_regex){
$unique_regex{ $pass->randregex($regex) } = '1';
}
Теперь я хочу сделать то же самое в vb.net со словарем, но мне нужно установить ключ, чтобы значения были более одного раза в моей хэш-таблице/словаре.
Dim myDict As New Dictionary(Of Integer, String)
myDict.Add(0, CStr(Math.Round((((Rnd() Mod 3) * ((input_zufallszahl_obergrenze_1.Value) - input_zufallszahl_untergrenze_1.Value)) + ((input_zufallszahl_untergrenze_1.Value))), 0)))
Dim tmphashcounter As Integer = 1
While (myDict.Count <= array_integerzahlen.GetLength(0))
myDict.Add(tmphashcounter, CStr(Math.Round((((Rnd() Mod 3) * ((input_zufallszahl_obergrenze_1.Value) - input_zufallszahl_untergrenze_1.Value)) + ((input_zufallszahl_untergrenze_1.Value))), 0)))
tmphashcounter = tmphashcounter + 1
End While
GetLength(0)
=›Length
. Кроме того, странно, что это поле должно быть массивом, когда его нет в коде Perl, но это не единственная странность в этом коде. 03.11.2011