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

Question

我从按钮制作了自己的盒子，其中有0到getupperbound(1)的文字，现在我想随机选择其中的一个。

Answer 1

要获得两个数字之间的随机整数（最小和最大值，其中包括）做这样的事情：

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)