Visual Basic Hangman随机函数

Question

我坚持使用随机功能，因为我不确定如何将其应用于我的代码

以下代码位于PlayButton ..按钮

中

Dim number As Integer
number = Int(Rnd() * ListBox1.Items.Count - 1) + 1
Word = ListBox1.Items(number)'Word is a string and it holds the word to be guessed

这就是我写的...... 这种方式工作正常，但是当游戏开始时，它会一遍又一遍地用相同的单词开始......特别是RUN：P

即使它继续随机单词，这些随机单词有时会重复2次甚至3次（大部分是2次）......

（另外我在列表框中有10个单词，Run就是其中之一）

好吧，我不希望每次都用RUN：L

这个词开始

Answer 1

您可以在随机课here找到相关信息。

作为快速使用提示，您可能希望在类启动时定义类级别属性：

Private _rand As New Random()

然后当您检索下一个随机值时，您会执行以下操作：

number = _rand.Next(ListBox1.Items.Count)

这将返回0到（ListBox1.Items.Count -1）

范围内的数字