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

Question

Я не могу конвертировать те, что вижу в VB.Net. Я хотел создать что-то вроде "фабрики слов", поэтому мне нужно создать случайную букву. Мне удалось получить случайное число с помощью этого

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

Как насчет случайных букв из алфавита? в VB6. Благодарю.

Answer 1

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

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

Dim mych As String
mych = Chr(Asc("A") + 26 * Rnd)

Answer 2

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

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