如何在VB6中获取随机字母？

Question

我无法转换我在VB.Net中看到的那些 我想创建类似“Word Factory”的东西 所以我需要随机写一封信。 我设法使用此

获得一个随机数

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

您是否可以对随机数使用类似的技术，但是将随机数作为字符数组的索引？

在不相关的注释中，您可能需要注意随机字母的分布，对一些较常见的字母进行加权，以便更频繁地出现。