Как получить случайную букву в VB6?

Я не могу преобразовать те, которые я вижу в VB.Net. Я хотел создать что-то вроде «Фабрики слов». Поэтому мне нужно создать случайное письмо. Мне удалось получить случайное число, используя это

Dim x, first, last
first = 65
last = 90
x = Int((last - Min + 1) * Rnd + Min)

Как насчет случайных букв из алфавита? в ВБ6. Спасибо.


person AdorableVB    schedule 03.03.2015    source источник


Ответы (2)


Вы можете превратить целочисленную кодовую точку в символ с помощью функции Chr() и вернуться обратно с помощью Asc().

Это означает, что вы можете получить случайное письмо с кодом, например:

Dim mych As String
mych = Chr(Asc("A") + 26 * Rnd)
person paxdiablo    schedule 03.03.2015
comment
Спасибо. Теперь мы можем играть в игру Word Factory в моем офисе, используя Excel, лол :) - person AdorableVB; 06.03.2015

Не могли бы вы использовать метод, аналогичный случайному числу, но иметь случайное число в качестве индекса массива символов?

На не связанной с этим заметке вы можете обратить внимание на распределение случайных букв, взвешивая некоторые из наиболее распространенных букв, чтобы они встречались чаще.

person user3092841    schedule 03.03.2015