如何在visual basic中选择随机文本？

Question

我从按钮创建了自己的框，文本0到getupperbound(1)，现在我想随机选择其中一个。

Answer 1

要获得两个数字之间的随机整数（Min和Max，包括），请执行以下操作：

Function GetRandomNumber(ByVal Min As Integer, ByVal Max As Integer) As Integer
    Randomize
    GetRandomNumber = Int(Rnd * (Max - Min + 1) + Min)
End Function

Answer 2

首先，您需要确保按钮具有相同的名称和索引属性。 然后，您需要随机化按钮索引，然后在按钮阵列上使用它。

Dim index as Integer
Randomize
index = Round(Rnd*getupperbound(1)) ' a random index
'Do something with Button(index)
index = Round(Rnd*getupperbound(1)) 'Another random index
'Do something with Button(index)