Random из массива.

[Rustem]

Добрый день!

Прошу прощения, если такой вопрос уже был, но в FAQ и в остальном не нашел.
Про генерация случайного числа понятно, а обьясните пожалуйста, как _случайно_ выбрать символ из заданного массива символов? Ну например, как максимально случайно выбрать букву из английского алфавита?
Спасибо.

[alibek]

Код: Выделить всё

strBuffer = "ABCD...XYZ"
Randomize
I = 1 + Fix(Rnd*Len(strBuffer))
MsgBox Mid$(strBuffer, I, 1)


[Rustem]

Спасибо большое.

[Rustem]

И ещё один ламерский вопрос - текст в TextBox, как сделать, чтобы брался в UpperCase сразу?...

[Amed]

Код: Выделить всё

strString = UCase(Text1.Text)

[Rustem]

Спасибо

[Rustem]

Продолжение серии дурацких вопросов .
Есть TextBox.
Есть s5 = Int(Rnd * 10), s5 as String (так надо )
Есть v5=UCase$(textBox1.text)
if v5=s5 then.... работает некорректно, потому что v5 = "7", s5 = 7 (например). Как обойти проблему с кавычками?.. v5 as String, вводимые символы - любые...

[Amed]

То есть v5 - строка, и притом открывается и закрывается кавычками?

[alibek]

Предлагаю заценить функции Val/CLng. А еще предлагаю купить небольшой справочник по VB.

[Amed]

alibek
Да я что-то не понимаю, Val ли нужен человеку... v5 - String, и s5 - тоже String... Может, ему надо отсечь начальную и конечную кавычки просто?
Тогда так:

Код: Выделить всё

if mid$(v5,2,len(v5)-2)=s5 then ...


[Rustem]

Справчоник есть, но... дома забыл
Нет, мне бы желательно, чтобы
s5 = Int(Rnd * 10) выдавало не 5, к примеру, а "5"

[Amed]

Код: Выделить всё

s5 = """" & Int(Rnd * 10) & """"

*)
"""" - это четыре двойных кавычки

[Rustem]

Спасибо. На практике получилось так:
s5 = "" & Int(Rnd * 10) & "" , потому что 4 двойные кавычки давали ""1"", вроде пока то что надо

[Amed]

Странно, но у меня надо именно 4 кавычки...

[Rustem]

Если ещё не надоел - то вот ещё вопрос.
Есть random полученные s1,s2,s3,s4,.....s100, допустим.
Подскажите пожалуйста, как проверить - есть ли среди них одинаковые?..

[GSerg]

Для неленивых: отсортировать и пробежаться.
Для остальных: добавлять в коллекцию и ловить ошибку.

[Rustem]

Спасибо, а можно ещё для начинающих?..
Хотя бы с куском кода.
Хотя бы с командами.
Отсортировать - по какому признаку?.. Буквы(англ., рус)\цифры\знаки - как это сортировать?..

[GSerg]

У тебя же строки... Просто сравнивай их, как числа.

[Rustem]

Так все-таки - как сравнить?
if (s1=s2) or (s1=s3) or ... or (s1=s100) then...
elseif (s2=s3) or (s2=s4) or.... or (s2=s100) then...
elseif (s3=...............
Ну не знаю, что ж теперь. Потому помощи и прошу.

[alibek]

В таком виде? Именно так.
Более оптимальным будет хранить не в сотне переменных s1...s100, а в массиве s(1 to 100). И сортировку осуществлять в массиве.