如何在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

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

在不相关的注意事项上，你可能需要注意随机字母的分布，对一些更常见的字母进行加权，使它们更频繁地出现。